高中信息技术VB程序的调试会考复习题.docx

高中信息技术 VB程序的调试 会考复****题
学校:___________姓名：___________班级：___________考号：___________
一、选择题
1．数组排序。点击“产生随机数”按钮，让计算机随机产生10个整数，并对这10个整数进行标号，再点击“排序”按钮，对这10个整数进行从大到小排序。如图所示。
程序代码如下：
Dim a(1 To 10) As Integer　
Dim i, j, k, kt As Integer　
Private Sub Command1_Click()
　　 '清除列表框数据
For i ＝ 1 To 10
　 Randomize　 '随机数初始化
　a(i) ＝ Int(Rnd() * 1000)
　 Str(i) ＋ ”＝” ＋ Str(a(i))
Next i
＝ True　'激活排序按钮
End Sub
Private Sub Command2_Click()
For i ＝ 1 To 9　
　 k ＝ i
For j ＝____①____To 10
　 If a(j) > a(k) Then k ＝ j
Next j
　 If i <> k Then
__②____
　End If
Next i

For i ＝ 1 To 10
Str(i) ＋ ” ＝” ＋ Str(a(i))
Next i
End Sub
请在①、②划线处填入合适的语句或表达式，把程序补充完整：
程序中①划线处应填入__________________；
程序中②划线处应填入__________________。
【答案】①I+1；②t=a（k）:a(k)=a(i):a(i)=t
【解析】
2．Sub test2()
a = 12：b = 12：c = 5
= ""
= ""
If a > b Or Not b<c Then
= "monday"
Else
= "tiger"
End If
=" +"
End sub
该程序段运行后，在标签Label3的Caption属性值是( )
A． "monday" B． "tiger" C． "mondaytiger" D． ""
【答案】A
【解析】
3．在窗体上画一个命令按钮，名称为command1，单击命令按钮，执行如下事件过程：
Private Sub Command1_Click()
Dim a As String
Dim c As String
a = "software and hardware"
c = Mid(a, 14, 8)
= c
End Sub
则在文本框Text1中显示的信息是（ ）
A、software and hardware
B、software
C、hadrware
D、and
【答案】C
【解析】
4．有如下Visual Basic程序段：
s=1
for i= 1 to 11 step 3
s=s*i
next i
语句s=s*i共执行的次数为（ ）
A．11 B．10 C．5 D．4
【答案】D
【解析】
5．数学表达式“a>b>c”对应的VB表达式是（ ）
A．a>b>c B．a>b and a>c C．a>b and b>c D．a>b or b>c
【答案】C
【解析】
6． 表达式 abs(int(-)+int())的值是（ ）。
A． 5 B． 0 C． 1 D． 2
【答案】B
【解析】
7．对以下程序段的说法正确的是（ ）
s=0
i=0
Do While s<10
i=i+1
s=s+i*i
Loop
A．该程序的循环体执行了3次
B．该程序段结束后i的值为3
C．该程序段结束后i的值为4
D．该程序段结束后s的值为13
【答案】ABD
【解析】
8．在Visual Basic代码中，将多个语句合并在一