VB调试历年高考题

算法及其实现
（程序的调试）
【知识要点】
程序调试的几种形式
1.固定搭配，如：
★If 搭配 End if；★For i 搭配 Next i；★Do While 搭配 Loop
2.对象名.属性名，如：
★Text1.Text；★Label1.Caption
3.数据类型，如：
数值类型： Integer——整数型；Long——长整型；
Single——实数型；Double——双精度实数型；
字符串型：String；逻辑型：Boolean；
4.赋值，如：
★如果a是数值类型，那么输入语句：a = Val(Text1.Text)
输出语句：Text1.Text = str(a) 或Label1.Caption = str(a)
★如果a是字符串类型，那么输入语句：a = Text1.Text
输出语句：Text1.Text = a 或Label1.Caption = a
【同步练习】
1、（10年3月高考）小金编写了一个统计随机数分布的VB程序，部分程序如下所示，在调
试程序的时候出现如右图所示的错误信息：
n = 0
m = 0
For i = 1 To 100
If Rnd > 0．5 Then
n = n + 1
Else
m = m + 1
Next i
……
小金仔细分析该程序段后，发现其中缺少了 ( ) A．For B．End If C．Next D．If
2、（10年9月高考）某VB程序的一个事件过程如下：
Private Sub Command1_Click ( )
Dim a As Integer
a = Val ( Text1．Text )
Text1．Text = Str ( Sqr ( a ) )
End Sub
程序运行时，单击命令按钮Command1后弹出如图所示的错误信息提示。

出现错误的原因是
（）A．Sqr函数计算时出现错误B．Str函数计算时出现错误
C．界面上缺少文本框Text1 D．变量a类型定义错误
3、（12年6月会考）某Visual Basic
程序如下：
Private Sub Command1_Click()
Dim a As String
a = "d"
a = Chr(Asc(a) - 32)
Label1.Caption = a
End Sub
运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，此时程序正执行的语句是（）（A）a = "d" （B）End Sub
（C）a = Chr(Asc(a) - 32) （D）Label1.Caption = a
4、(11年6月会考)下列Visual Basic程序用于计算1010的值：
Private Sub Command1_Click()
Dim n As Integer, s As Integer
n = 10
s = 10 ^ n
Text1.Text = Str(s)
End Sub
运行程序时，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的原因是（）（A）变量s的数据类型说明不当
（B）变量n的数据类型说明不当
（C）文本框Text1的宽度不够
（D）s值太大，因此不能在文本框Text1中输出
5、(11年6月会考)某Visual Basic程序的一个事件过程如下：
Private Sub Command1_Click()
Dim x As Single
Dim y As Single
x = -10
y = Abc(x)
Label1.Caption = Str(y)
End Sub
运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的语句是
（）（A）Dim y As Single （B）x = -10
（C）y = Abc(x) （D）Label1.Caption = Str(y)
6、(11年6月会考)某Visual Basic程序的一个事件过程如下：
Private Sub Command1_Click()
Dim a As Integer
Dim x As Double
a = -4
x = Sqr(a)
Label1.Caption = Str(x)
End Sub
运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，此时程序正执行的语句是（）（A）Dim a As Integer （B）Dim x As Double
（C）x = Sqr(a) （D）Label1.Caption = Str(x)
7、（12年6月会考）某Visual Basic程序如下：
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i As Integer
For i = 1 To 10
a(i) = i * i
Next i
List1.AddItem Str(a(i))
End Sub
运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，此时程序正执行的语句是（）（A）For i = 1 To 10 （B）a(i) = i * i
（C）Next i （D）List1.AddItem Str(a(i))
8、（12年6月会考）某Visual Basic程序如下：
Private Sub Command1_Click()
Dim x As Integer, c As Integer, i As Integer
c = 0
For i = 1 To 12
If 12 Mod i = 0 Then
c = c + 1
End If
Next i
Text1.Tex = Str(c)
End Sub
运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的语句是
（）（A）For i = 1 To 12 （B）c = c + 1
（C）Next i （D）Text1.Tex = Str(c)
9、（12年6月会考）某Visual Basic程序如下：
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i As Integer
a(1) = 1
For i = 2 To 10
a(i) = a(i - 1) + i
List1AddItem Str(a(i))
Next i
End Sub
运行程序，单击命令按钮Command1后，出现的错误提示为（）（A）下标越界（B）子程序或函数未定义
（C）溢出（D）类型不匹配。