1、算法及其实现（程序的调试）【知识要点】程序调试的几种形式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)如
2、果 a 是字符串类型，那么输入语句： a = Text1.Text输出语句： Text1.Text = a 或 Label1.Caption = a【同步练习】1、 （10 年 3 月高考）小金编写了一个统计随机数分布的 VB 程序，部分程序如下所示，在调试程序的时候出现如右图所示的错误信息：n = 0m = 0For i = 1 To 100If Rnd 05 Thenn = n + 1Elsem = m + 1Next i小金仔细分析该程序段后，发现其中缺少了 ( )AFor BEnd If CNext DIf2、 （10 年 9 月高考）某 VB 程序的一个事件过程如下：Private
3、Sub Command1_Click ( ) Dim a As Integera = Val ( Text1Text )Text1Text = Str ( Sqr ( a ) ) End Sub程序运行时，单击命令按钮 Command1 后弹出如图所示的错误信息提示。出现错误的原因是（ ）ASqr 函数计算时出现错误 BStr 函数计算时出现错误C界面上缺少文本框 Text1 D变量 a 类型定义错误3、 （12 年 6 月会考）某 Visual Basic 程序如下：Private Sub Command1_Click()Dim a As Stringa = “d“a = Chr(Asc(a
4、) - 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 Integern = 10s = 10 nText1.Text = Str(s)End Sub运行程序时，单击命
5、令按钮 Command1 后弹出如图所示的出错信息提示，引起该错误的原因是 （ ）（A）变量 s 的数据类型说明不当（B）变量 n 的数据类型说明不当（C）文本框 Text1 的宽度不够（D）s 值太大，因此不能在文本框 Text1 中输出5、(11 年 6 月会考)某 Visual Basic 程序的一个事件过程如下：Private Sub Command1_Click()Dim x As SingleDim y As Single x = -10y = Abc(x) Label1.Caption = Str(y) End Sub运行程序，单击命令按钮 Command1 后弹出如图所示的出错
6、信息提示，引起该错误的语句是（ ）（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 IntegerDim x As Doublea = -4x = Sqr(a)Label1.Caption = Str(x)End Sub运行程序，单击命令按钮 Command1 后弹出如图所示的出错信息提示，此时程序正执行的语句是 （ ）（A）Dim a As Integ
7、er （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 IntegerFor i = 1 To 10a(i) = i * iNext iList1.AddItem Str(a(i)End Sub运行程序，单击命令按钮 Command1 后弹出如图所示的出错信息提示，此时程序正执行的语句是 （ ）（A）For i = 1 To 10 （B
8、）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 Integerc = 0For i = 1 To 12If 12 Mod i = 0 Thenc = c + 1End IfNext iText1.Tex = Str(c)End Sub运行程序，单击命令按钮 Command1 后弹出如图所示的出错信息提示，引起该错误的语句是（ ）（A）For i =
9、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 IntegerDim i As Integera(1) = 1For i = 2 To 10a(i) = a(i - 1) + iList1AddItem Str(a(i)Next iEnd Sub运行程序，单击命令按钮 Command1 后，出现的错误提示为 （ ）（A） 下标越界 （B） 子程序或函数未定义（C） 溢出 （D） 类型不匹配
