2018-2019學(xué)年浙江省嘉興市高二(下)期末信息技術(shù)試卷(Ⅱ卷)
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.在每小題給出的四個(gè)選項(xiàng)中,只有一個(gè)符合題目要求)
-
1.下列做法有利于提高信息安全性的是( )
組卷:10引用:1難度:0.4 -
2.關(guān)于信息的表達(dá)與交流,下列說法正確的是( ?。?/h2>
組卷:16引用:2難度:0.6 -
3.以下應(yīng)用中,體現(xiàn)了人工智能技術(shù)的有( )
①K歌軟件對(duì)演唱者的表演進(jìn)行智能打分
②某支付APP支持的人臉識(shí)別付款方式
③Word軟件自動(dòng)識(shí)別輸入的拼寫和語法錯(cuò)誤
④將學(xué)生的答卷掃描之后,教師進(jìn)行網(wǎng)絡(luò)閱卷
⑤某購物網(wǎng)站提供的拍照搜索商品功能組卷:3引用:2難度:0.6 -
4.用UltraEdit軟件觀察字符的內(nèi)碼,部分界面如圖所示,下列說法正確的是( ?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/201912/112/f3346473.png" style="vertical-align:middle" />
組卷:6引用:2難度:0.4 -
5.使用GoldWave軟件處理音頻文件“配音。wav”,部分界面如圖所示,下列說法正確的是( ?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/202003/178/951fecfa.png" style="vertical-align:middle" />
組卷:2引用:2難度:0.6
二、非選擇題(本大題共4小題,其中第13小題4分,第14小題8分,第15小題7分,第16小題7分,共26分)
-
15.編寫VB程序,功能為:單擊“發(fā)牌”按鈕“Command1”后,從一副撲克牌(不包括大王、小王、J、Q、K、A)中隨機(jī)抽取5張牌,牌的花色(????)忽略,顯示在列表框“List1”中。如果這5張牌由一個(gè)對(duì)子和一個(gè)順子(3張牌連續(xù))組成,則在標(biāo)簽“Label1”中顯示“運(yùn)氣不錯(cuò):)”,否則顯示“運(yùn)氣一般:|”。程序運(yùn)行界面如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下:
Private Sub Command1_Click ( ?。?br />List1.Clear
Dim five(1 To 5)As Integer
Dim i As Integer,j As Integer,k As Integer
Dim p As Integer,find_pair As Boolean
'隨機(jī)抽取5張牌,將牌的點(diǎn)數(shù)存儲(chǔ)在數(shù)組five中,并在List1中顯示。代碼略
i=5:p=1:find_pair=False
Do While i>=2
j=p
Do While j<=i-1
If five(j)>five(j+1)Then
t=five(j):five(j)=five(j+1):five(j+1)=t
ElseIf five(j)=five(j+1)And Not find_pair Then
t=five(1):five(1)=five(j):five(j)=t
t=five(2):five(2)=five(j+1):five(j+1)=t
find_pair=True
i=i+1
p=_______
Exit Do
End If
j=j+1
Loop
i=i-1
Loop
k=0
For i=3 To 4
If Then k=k+1
Next i
If five(1)=five(2)And k=2 Then
Label1.Caption=“運(yùn)氣不錯(cuò):)“
Else
Label1.Caption=“運(yùn)氣一般:|“
End If
End Sub
請(qǐng)回答下列問題:
(1)窗體標(biāo)題顯示的文字為“對(duì)子和順子”,是通過修改窗體的
(2)完善程序在橫線處填寫正確代碼。
(3)程序代碼中,加框處代碼有錯(cuò),請(qǐng)改正。
(4)單擊“發(fā)牌”按鈕隨機(jī)抽取的5張牌為“2、1、2、3、2”,則在標(biāo)簽“Label1”中顯示的是組卷:0引用:1難度:0.5 -
16.奇數(shù)n階幻方是指由自然數(shù)1、2、…、n2組成的n×n的方陣,其中每個(gè)元素值都不相等,且每行、每列與對(duì)角線上的n個(gè)元素之和都相等。
N階幻方的構(gòu)造方法有很多種,下面是“右上方填數(shù)法”的算法:
(1)將1放在第一行中間一列;
(2)2~n2依次填在上一個(gè)數(shù)的右上方位置(即行減1列加1):
若上一個(gè)數(shù)的行數(shù)為1時(shí),則當(dāng)前數(shù)的行數(shù)為n;
若上一個(gè)數(shù)的列數(shù)為n時(shí),則當(dāng)前數(shù)的列數(shù)為1。
(3)如果按上面規(guī)則確定的位置上已有數(shù),則把當(dāng)前數(shù)放在上一個(gè)數(shù)的下面。
例如當(dāng)n為3時(shí),如圖a所示,1在第1行第2列,則2的位置為第3行第3列;
再如3在第2行第1列,則4的位置應(yīng)為第1行第2列,但該位置已有數(shù),因此4就放在3所在位置的正下面。
“左上方填數(shù)法”的方法類似于“右上方填數(shù)法”,以3階幻方為例,“右上方填數(shù)法”和“左上方填數(shù)法”所構(gòu)造的幻方如圖a、圖b所示。圖a 右上方填數(shù)法 圖b 左上方填數(shù)法
Private Sub Command1_Click( ?。?br />Dim a(1 To 100)As Integer
Dimx As Integer,y As Integer,x1 As Integer,y1 As Integer
Dim n As Integer,s As Integer,pos As Integer,st As String
n=Val(Text1.Text)
For i=1 To n*n
a(i)=0
Next i
s=1
x=1
y=(n+1)\2
a(y)=s
Do While ①
s=s+1
x1=x:y1=y
x=x-1
y=y-1
If x<1 Then x=n
If y<1 Then y=n
If a((x-1)*n+y)>0 Then ②
a(pos)=s
Loop
st=““
For i=1 To n*n
st=st+wid(a(i))
If i Mod n=0 Then
List1.AddItem st
st=““
End If
Next i
End Sub
'自定義函數(shù)wid的功能是使數(shù)字在方陣對(duì)齊
Function wid(p As Integer) As String
'代碼省略
End Function
請(qǐng)回答下列問題:
(1)采用“左上方填數(shù)法”構(gòu)造5階幻方,則方陣中第3行第4列應(yīng)填入的數(shù)字為
(2)請(qǐng)?jiān)跈M線處填入合適的代碼。組卷:0引用:1難度:0.4