VB调试历年高考题.docVIP

算法及其实现 （程序的调试） 【知识要点】 程序调试的几种形式 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) Labe