VB调试历年高考题.doc

算法及其实现（程序的调试）【知识要点】程序调试的几种形式1.固定搭配，如：If 搭配 End if；For i 搭配 Next i；Do While 搭配 Loop2.对象名.属性名 ，如：Text1.Text；Label1.Caption3.数据类型，如：数值类型： 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 = 0m = 0For i = 1 To 100 If Rnd 05 Then n = n + 1 Else m = m + 1Next i小金仔细分析该程序段后，发现其中缺少了 ( )AForBEnd IfCNextDIf2、（10年9月高考）某VB程序的一个事件过程如下：Private Sub Command1_Click ( ) Dim a As Integer a = Val ( Text1Text )Text1Text = Str ( Sqr ( a ) ) End Sub程序运行时，单击命令按钮Command1后弹出如图所示的错误信息提示。出现错误的原因是（ ）ASqr函数计算时出现错误BStr函数计算时出现错误C界面上缺少文本框Text1D变量a类型定义错误 3、（12年6月会考）某Visual Basic程序如下：Private Sub Command1_Click()Dim a As Stringa = da = Chr(Asc(a) - 32)Label1.Caption = aEnd Sub运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，此时程序正执行的语句是 （ ）（A）a = d（B）End Sub（C）a = Chr(Asc(a) - 32)（D）Label1.Caption = a4、(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