2022年VB调试历年高考题

1、学习资料收集于网络,仅供参考算法及其实现（程序的调试）【学问要点】程序调试的几种形式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 = ValText1.Text 输出语句：Text1.Text = stra 或

2、Label1.Caption = stra 假如 a 是字符串类型,那么输入语句：a = Text1.Text 输出语句：Text1.Text = a 或 Label1.Caption = a 【同步练习】1、（10 年 3 月高考）小金编写了一个统计随机数分布的 试程序的时候显现如右图所示的错误信息：n = 0 m = 0 For i = 1 To 100 If Rnd 05 Then n = n + 1 Else m = m + 1 Next i VB程序,部分程序如下所示,在调小金认真分析该程序段后,发觉其中缺少了 DIf AFor BEnd If C Next 2、（ 10 年 9 月

3、高考）某VB程序的一个大事过程如下：Private Sub Command1_Click Dim a As Integer a = Val Text1Text Text1 Text = Str Sqr a End Sub 程序运行时,单击命令按钮Command1后弹出如下列图的错误信息提示；显现错误的缘由是）（ASqr 函数运算时显现错误BStr 函数运算时显现错误C界面上缺少文本框Text1 D变量 a 类型定义错误学习资料学习资料收集于网络,仅供参考 3、（ 12 年 6 月会考）某 Visual Basic 程序如下：Private Sub Command1_Click Dim a As

4、 String a = d a = ChrAsca - 32 Label1.Caption = a End Sub 运行程序,单击命令按钮Command1后弹出如下列图的出错信息提示,此时程序正执行的语）句是（A）a = d （B）End Sub （C）a = ChrAsca - 32 （D）Label1.Caption = a 4、11 年 6 月会考 以下 Visual Basic 程序 用于运算 10 10 的值：Private Sub Command1_Click Dim n As Integer, s As Integer n = 10 s = 10 n Text1.Text = S

5、trs 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 = Abcx Label1.Caption = Stry End Sub 程序的一个大事过程如下：运行程序,单击命令按钮Command

6、1后弹出如下列图的出错信息提示,引起该错误的语句是）（A）Dim y As Single （B）x = -10 （C）y = Abcx 6、11 年 6 月会考 某 Visual Basic Private Sub Command1_Click Dim a As Integer Dim x As Double a = -4 x = Sqra 学习资料（D）Label1.Caption = Stry 程序的一个大事过程如下：学习资料收集于网络,仅供参考 Label1.Caption = Strx End Sub 运行程序,单击命令按钮Command1后弹出如下列图的出错信息提示,此时程序正执行的

7、语）句是（A）Dim a As Integer （B）Dim x As Double （D）Label1.Caption = Strx （C）x = Sqra 7、（ 12 年 6 月会考）某Visual Basic程序如下：Private Sub Command1_Click Dim a1 To 10 As Integer Dim i As Integer For i = 1 To 10 ai = i * i Next i List1.AddItem Strai End Sub 运行程序,单击命令按钮Command1后弹出如下列图的出错信息提示,此时程序正执行的语）句是（A）For i =

8、1 To 10 （B）ai = i * i （C）Next i （D）List1.AddItem Strai 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 = Strc End Sub 运行程序,单击命令按钮Command1后弹出如下列图的出错信息提示,引起该错误的语句是）（A）For i = 1 To 12 （B）c = c + 1 （C）Next i （D）Text1.Tex = Strc 9、（ 12 年 6 月会考）某Visual Basic程序如下：Private Sub Command1_Click 学习资料学习资料收集于网络,仅供参考 Dim a1 To 10 As Integer Dim i As Integer a1 = 1 F