浙江省 2012 年高中信息技术会考-算法与程序设计题(6 月卷)
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim s As String, t As Single
For i = 1 To 22
For j = 1 To 23 - i
If ① Then
s = a(j): a(j) = a(j + 1): a(j + 1) = s
t = b(j): b(j) = b(j + 1): b(j + 1) = t
End If
Next j
Next i
For i = 1 To 10
List2.AddItem a(i) + " " + ②
Next i
End Sub
Private Sub Form_Load()
'此过程用于对数组 a 和数组 b 进行赋值,并显示在 List1 中,代码略
End Sub
(1)程序中加框部分的算法是 。 (选填:选择排序/冒泡排序)
(2)在程序①和②划线处,填入适当的语句或表达式,把程序补充完整:
程序中①划线处应填入 。
程序中②划线处应填入 。
2012 年 6 月高中信息技术会考
算法与程序设计题(第二套)
四、程序设计题(本题共 3 小题,第 1-2 小题,每小题 3 分,第 3 小题 6 分,共 12 分)
1.有如下 Visual Basic 程序段:
a = 4
b = 3
c = 1
c = b * b - 4 * a * c
s = Abs(c)
该程序段运行后,变量 s 的值为_________。
2.有如下 Visual Basic 程序:
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(Text1.Text)
If a Mod 2 = 0 Then
b = a + 1
ElseIf a Mod 3 = 0 Then
第 2 页 共 18 页