2010年浙江省高中信息技術會考試卷（4）
發布：2024/12/25 16:0:2
一、填空題（共4小題，每小題3分，滿分12分）
-
1．有如下Visual Basic程序段：
a=29：b=6
a=a Mod b
b=a+Len（“Input“）
該程序段運行后，變量b的值為。組卷：0引用：1難度：0.6 -
2．有如下Visual Basic程序段：
x=2010
s=10
If x＜2012Then s=s+x
Label1．Caption=Str（s）
該程序段運行后，在標簽Label1上顯示的是。組卷：0引用：1難度：0.6
二、填空題（共4小題，每小題3分，滿分12分）
-
7．有如下Visual Basic程序段：
Dim a As Integer,b As Integer,c As Integer
a=20
b=0
c=2
Do While a＞b And a＞c
b=b+1
c=c+b
Loop
問：該程序段運行后，
（1）語句“b=b+1”執行的次數為．
（2）變量c的值為．組卷：11引用：2難度：0.3 -
8．學校“電腦周“活動已經結束，林敏在班里舉行了一個“我最關注的競賽項目“的投票活動，她設計了一個Visual Basic程序，把所有同學的投票情況輸入到電腦里，先將各項目得票數和項目名分別保存在數組a和數組b中，第i個項目的得票數保存在a（i）中，對應的項目名保存在b（i）中。
程序界面如圖所示，左邊列表框List1中顯示同學評選的原始數據，單擊“得票統計“按鈕（Command1），所有得票數從高到低顯示在列表框List2中。
解決此問題的算法流程圖如圖所示，排序部分的程序段如下：
Dim a（1To n） As Single
Dim b（1To n） As String
Private Sub Command1_Click （ ）
Dim i As Integer,j As Integer,k As Integer,x As Single,y As String
For i=1To n-1'假設共有n個競賽項目
k=i
For j=i+1To n
If a（k）＜a（j） Then ①
Next j
If k＜＞i Then
x=a（i）
a（i）=a（k）
a（k）=x
y=b（i）
b（i）=b（k）
b（k）=y
②
Next i
For i=1To n
List2．AddItem Str（a（i））+““+b（i）
Next i
End Sub
Private Sub Form_Load （ ）
'此過程用于對數組a和數組b進行初始賦值，代碼略
End Sub
（1）解決此問題用的算法是。 （選填：選擇排序 或 冒泡排序）
在程序①和②橫線處，填入適當的語句或表達式，把程序補充完整：
（2）程序中①橫線處應填入。
（3）程序中②橫線處應填入。組卷：0引用：1難度：0.1