2016-2017學(xué)年浙江省湖州市安吉縣上墅私立高級(jí)中學(xué)高二(下)第二次月考信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共9小題,每小題2分,共24分,每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的,不選、多選、錯(cuò)選均不得分)
-
1.關(guān)于信息安全與網(wǎng)絡(luò)道德,下列做法正確的是( ?。?/h2>
組卷:40引用:13難度:0.9 -
2.下列有關(guān)瀏覽器與網(wǎng)頁(yè)的說(shuō)法,正確的是( ?。?/h2>
組卷:47引用:11難度:0.9 -
3.小春用 Word 軟件撰寫了一篇觀后感,經(jīng)老師審閱后文檔的部分截圖如圖所示,下列描述 正確的是( ?。?br />
組卷:12引用:6難度:0.9 -
4.下列應(yīng)用中,沒(méi)有運(yùn)用人工智能的是( ?。?/h2>
組卷:8引用:7難度:0.9 -
5.在 Flash 軟件中編輯“退出”按鈕元件的部分界面如圖所示,下面描述正確的是( ?。?br />
組卷:20引用:8難度:0.7
【加試題】四、解答題(共2小題,滿分9分)
-
16.編寫VB程序,實(shí)現(xiàn)如下功能:在文本框Text1中輸入篩選關(guān)鍵詞“ca”,單擊“篩選”按鈕Command1,在列表框List1所列字符串中查找左邊與“ca”相匹配的字符串,并在列表框List2中輸出(運(yùn)行效果如圖所示);否則,在列表框List2中顯示“無(wú)篩選結(jié)果”.
實(shí)現(xiàn)上述功能的VB代碼如下,但加框處代碼有錯(cuò),請(qǐng)改正.
Dim a(1To 20)As String'用于存儲(chǔ)20個(gè)字符串
'將20個(gè)字符串分別保存賦值給數(shù)組元素a(1)、a(2)、a(3)、a(4)、…、a(19)、a(20),并在列表框List1中顯示
Private Sub Form_Load ( )
'代碼略
End Sub
Private Sub Command1_Click ( ?。?br />Dim s As String,n As Integer,i As Integer
Dim flag As Boolean'變量flag用于標(biāo)記是否在數(shù)組a中篩選到左邊與s匹配的字符串
List2.Clear'篩選時(shí)清空上次篩選結(jié)果
s=Text1.Text
n=Len(s)
flag=False
For i=1To 20
If =s Then'(1)
List2.AddItem a(i)
flag=True
End If
Next i
If flag=False Then
'(2)
End If
End Sub.組卷:5引用:2難度:0.1 -
17.運(yùn)動(dòng)會(huì)田徑比賽,記分裁判把各賽道運(yùn)動(dòng)員的成績(jī)表交給錄入員錄入到計(jì)算機(jī)中,錄入人員編制了如下程序.運(yùn)行程序,按道次順序依次輸入8個(gè)成績(jī),道次號(hào)存放在數(shù)組a中,相應(yīng)道次的運(yùn)動(dòng)員比賽成績(jī)存放于數(shù)組b中,并將原始成績(jī)顯示在列表框List1中.單擊“成績(jī)排序”按鈕(Command1),將原始成績(jī)從好到差排序,排序結(jié)果顯示在列表框List2中.運(yùn)行效果如圖所示.
實(shí)現(xiàn)上述功能的VB程序如下:
(1)請(qǐng)?jiān)跈M線處填入合適代碼.
Dim a(1To 8)As Integer'存儲(chǔ)道次編號(hào)
Dim b(1To 8)As Single'存儲(chǔ)運(yùn)動(dòng)員成績(jī)
Dim num As Integer
Private Sub Command1_Click ( )
Dim i As Integer,j As Integer,k As Integer,p As Integer
Dim t As Single
For i=1To 7
k=i
For j=i+1To 8
If
k=j
End If
Next j
If k<>i Then
p=a(i):a(i)=a(k):a(k)=p
t=b(i):b(i)=b(k):b(k)=t
End If
Next i
For i=1To 8
List2.AddItem Str(a(i)) &“道:“& Str(b(i))
Next i
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)'按回車鍵錄入比賽成績(jī)
Dim cj As Single
If KeyAscii=13Then
num=num+1
cj=Val(Text1.Text)
If cj>0And num<=8Then
a(num)=num
List1.AddItem Str(a(num)) &“道:“& Str(b(num))
Else
MsgBox“輸入無(wú)效“
End If
Text1.Text=““
End If
End Sub
(2)在Command1_Click組卷:5引用:3難度:0.1