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）类型不匹配