2017-2018學(xué)年浙江省紹興市越城區(qū)蕺山外國(guó)語學(xué)校高二(下)期末信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分,每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的,不選、錯(cuò)選、多選均不得分.)
-
1.下列描述中正確的是( ?。?/h2>
組卷:10引用:1難度:0.6 -
2.下列應(yīng)用中,體現(xiàn)了人工智能技術(shù)的有( ?。?br />①家里用掃地機(jī)器人掃地
②電腦開機(jī)后自動(dòng)播放音樂
③通過人臉識(shí)別進(jìn)行住宿登記
④通過網(wǎng)絡(luò)與遠(yuǎn)在外地的網(wǎng)友在線對(duì)弈
⑤微信聊天時(shí)通過語音進(jìn)行漢字輸入組卷:7引用:1難度:0.4 -
3.用 Word 軟件編輯某文檔的部分界面如圖所示。
下列說法正確的是( ?。?/h2>組卷:7引用:1難度:0.2 -
4.某算法的部分流程圖如圖所示。執(zhí)行這部分流程,依次輸入 21,6,則下面說法錯(cuò)誤的是( ?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/201810/188/d6b479fa.png" style="vertical-align:middle" />
組卷:0引用:2難度:0.3 -
5.關(guān)于 Access 數(shù)據(jù)表的操作,下列說法正確的是( ?。?/h2>
組卷:4引用:1難度:0.4
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題3分,第17小題6分,共26分)
-
16.小李基于冒泡排序算法編寫了一個(gè) VB 程序,功能如下:在文本框 Text1 中輸入產(chǎn)生隨機(jī)數(shù)的個(gè)數(shù) n,單擊“隨機(jī)產(chǎn)生”按鈕 Command1,在列表框 list1 中顯示 n 個(gè)兩位數(shù)(不重復(fù))的排序前數(shù)據(jù),單擊“數(shù)據(jù)排序”按鈕 Command2,在列表框 list2 中顯示數(shù)據(jù)升序排序結(jié)果。程序運(yùn)行界面如圖所示。
實(shí)現(xiàn)上述功能的 VB 程序如下,但加框處代碼有錯(cuò),請(qǐng)改正。
Dim a(1To 100)As Integer
Dim n As Integer
Private Sub Command1_Click( )
Dim i As Integer,j As Integer,temp As Integer
Dim flag As Boolean
n=Val(Text1.Text)
Randomize
For i=1 To n
‘(1)
flag=False
For j=1 To i-1
If temp=a(j) Then
i=i-1
flag=True
Exit For
End If
Next j
If flag=False Then
a(i)=temp
List1.AddItem Str(a(i)
End If
Next i
End Sub
Private Sub Command2_Click( ?。?br />Dim i As Integer,j As Integer
i=1
Do While i<=n-1
j=i+1
Do While j<=n
If Then‘(2)
t=a(i):a(i)=a(j):a(j)=t
End If
j=j+1
Loop
i=i+1
Loop
For m=1To n
List2.AddItem Str(a(m))
Next m
End Sub組卷:0引用:1難度:0.3 -
17.小明編寫了一個(gè)尋找奇妙整數(shù)的 VB 程序。此整數(shù)的平方與立方正好用了 0~9 的 10 個(gè)數(shù)且每個(gè)數(shù)只用一次,例如 69 的平方為 4761,69 的立方為 328509,4761 和 328509 剛好用了 0~9的10 數(shù),并且沒有重復(fù)使用?,F(xiàn)需從 1 至 1000 尋找這樣的奇妙整數(shù)并在列表框 list1 中顯示,設(shè)計(jì)界面如第 17 題圖所示。實(shí)現(xiàn)上述功能的 VB 程序段如下:
(1)請(qǐng)?jiān)跈M線處填入合適代碼
Dim a(0 To 9)As Boolean'判斷 0-9 的 10 個(gè)數(shù)是否使用
Private Sub Command1_Click( ?。?br />Dim n As Integer
Dim k As Integer
'存儲(chǔ)從字符串 s1
或 s2中提取的字符
Dim f As Boolean
'判斷字符 k 是否重復(fù)出現(xiàn)
Dim s1As String'存儲(chǔ)字符串(平方數(shù))
Dim s2As String'存儲(chǔ)字符串(立方數(shù))
Dim i As Integer,j As Integer
For n=1To 1000
For i=0To 9
a(i)=True
Next i
f=True
s1=CStr(n^2)
s2=CStr(n^3)'Cstr ( ?。┖瘮?shù)的作用是將數(shù)字型變量改變成字符型變量
For j=1To Len(s1)
①
If a(k)=True Then
a(k)=False
Else
f=False
Exit For
End If
Next j
If
②
Then
j=0
Do While j<=9
If a(j)=True Then
f=False
Exit Do
End If
j=j+1
Loop
If f=True Then List1.AddItem Str(n)
End If
Next n
End Sub
Function Judge(s As String) As Boolean
Dim i As Integer,k As Integer
i=1:judge=True
Do While
③
k=Val(Mid(s,i,1))
If a(k)=True Then
a(k)=False
Else
Judge=False
Exit Do
End If
i=i+1
Loop
End Function
(2)根據(jù)程序可以判斷數(shù)字 43組卷:2引用:1難度:0.4