2010年浙江省高中信息技術(shù)會(huì)考試卷（5）
發(fā)布：2024/10/28 13:0:2
一、非選擇題
-
1．有如下Visual Basic程序段：
a=“1100101“
b=Mid（a,2，4）+“101“
該程序段運(yùn)行后，變量b的值為．組卷：8引用：2難度：0.5
一、非選擇題
-
3．有如下Visual Basic程序段：
該程序段運(yùn)行后，變量 x 的值為（ ?。?/h2>組卷：0引用：2難度：0.5 -
4．普源為晚上的班級(jí)聯(lián)歡會(huì)設(shè)計(jì)了一個(gè)抽獎(jiǎng)程序，將所有同學(xué)的編號(hào)和對(duì)應(yīng)的姓名分別保存在數(shù)組a（全班共50個(gè)同學(xué)，編號(hào)為1到50）和數(shù)組b中，程序會(huì)隨機(jī)產(chǎn)生一個(gè)1到50的正整數(shù)（同時(shí)包括1和50），作為中獎(jiǎng)編號(hào)．
程序界面如圖所示，左邊列表框List1中顯示同學(xué)的編號(hào)和姓名，單擊“抽獎(jiǎng)“按鈕（Command1），在標(biāo)簽Label3中顯示抽中的編號(hào)，同時(shí)在標(biāo)簽Label4中顯示“恭喜***同學(xué)“，其中具體同學(xué)的姓名從數(shù)組b中獲取．
解決此問題的程序段如下：
Dim a（1To 50）As Integer
Dim b（1To 50）As String
Function search（m As Integer） As Integer
search=0
For i=1To 50
If m=a（i） Then
search=a（i）
End If
Next i
End Function
Private Sub Command1_Click （ ?。?br />Dim c As Integer,t as integer
Randomize
①
Label3．Caption=Str（c）
t=search（c）
If t＜＞0Then
Label4．Caption=“恭喜“+②+“同學(xué)“
End If
End Sub
Private Sub Form_Load （ ）
'此過程用于對(duì)數(shù)組a和數(shù)組b進(jìn)行初始賦值，代碼略
End Sub
（1）函數(shù)search中所用的算法是． （選填：順序查找 或 對(duì)分查找）在程序①和②橫線處，填入適當(dāng)?shù)恼Z(yǔ)句或表達(dá)式，把程序補(bǔ)充完整：
（2）程序中①橫線處應(yīng)填入．
（3）程序中②橫線處應(yīng)填入．組卷：16引用：1難度：0.1