2011年浙江省高中信息技術(shù)會考試卷(17)
發(fā)布:2024/4/20 14:35:0
一、選擇題(算法)
-
1.下列表達(dá)式中,符合 Visual Basic表達(dá)式書寫規(guī)范的是( )
組卷:5引用:2難度:0.9 -
2.在Visual Basic中,若需將350位學(xué)生的借閱卡號 (如“H001036”)分別存儲在數(shù)組code的code(1)~code(350)元素中,則下列說明語句最合適的是( )
組卷:4引用:1難度:0.9 -
3.下列Visual Basic表達(dá)式的值等于2的是( )
組卷:8引用:4難度:0.7
二、填空部分
-
10.張強(qiáng)編寫了一個(gè)Visual Basic程序,用于查找所有相同身高的同學(xué)編號。程序運(yùn)行界面如圖所示,在列表框List1中顯示所有同學(xué)的編號和身高(按身高從低到高排列),在文本框Text1中輸入需要查找的身高,單擊“查找”按鈕Command1,在列表框List2中顯示所有此身高的同學(xué)編號。數(shù)組a和數(shù)組b分別存儲同學(xué)的編號和對應(yīng)的身高(身高已從低到高排列)。
解決此問題的程序代碼如下:
Const n As Integer=10'n為學(xué)生數(shù)
Dim a(1To n) As String'數(shù)組a用于存儲學(xué)生的編號
Dim b(1To n) As Integer'數(shù)組b用于存儲學(xué)生的身高
Private Sub Command1_Click ( ?。?br />'此過程用于在列表框List2中顯示給定身高的所有學(xué)生的編號,代碼略。
End Sub
'以下函數(shù)用于查找給定身高的學(xué)生的相關(guān)信息
Private Function FindEx(k As Integer) As Integer
Dim f As Boolean,i As Integer,j As Integer,m As Integer
i=1:j=n
f=False
Do While (i<=j) And Not (f)
m=Fix((i+j)/2)
If k=b(m) Then
f=①
Else
If k<b(m) Then
j=m-1
Else
②
End If
End If
Loop
If f Then FindEx=m Else FindEx=0'找到返回m,否則返回0
End Function
Private Sub Form_Load
'此過程用于對數(shù)組a和數(shù)組b進(jìn)行賦值,并把數(shù)據(jù)顯示在列表框List1中。代碼略
End Sub
(1)FindEx函數(shù)主要采用的算法是
(2)在程序①和②橫線處,填入適當(dāng)?shù)恼Z句或表達(dá)式,把程序補(bǔ)充完整:
程序中①橫線處應(yīng)填入
程序中②橫線處應(yīng)填入組卷:0引用:1難度:0.1
三、操作題
-
11.打開考生文件夾下“VB”文件夾中的“test.jye.ai”,該VB程序的功能是:運(yùn)行程序,出現(xiàn)“奔跑”畫面;單擊“加速”按鈕Command1,奔跑速度加快;單擊“停止”按鈕Command2,奔跑停止;單擊“結(jié)束”按鈕Command3,退出程序。程序運(yùn)行界面如圖。
完成以下操作:
(1)將命令按鈕Command2的Caption屬性值設(shè)置為“停止”;
(2)為“加速”按鈕Command1添加Click事件過程,并將“VB”文件夾下“code.jye.ai”文件中的所有代碼復(fù)制到該事件過程中。調(diào)試程序正確,并保存窗體文件test。frm和工程文件test。vbp。組卷:0引用:1難度:0.9