19VB程序改错题收集答案在后面

瓯海一高学考专题练习叶胜利编辑VB 中常见的错误1、运行下面的 Visual Basic 程序，单击命令按钮 Command1，出现如下图所示的提示信息：Private Sub Command1_Click() Dim a As Single, b As Single a = Val(Text1.Text) b = 10 If a >= b b = a * a + 2 * b End If Label1.Caption = Str(b)End Sub出现该错误的原因是A．If 语句缺少 Then B．If 语句缺少 ElseC．变量 a 的数据类型说明错误 D．变量 b 的数据类型说明错误2、某 VB 程序的事件过程如下所示：Private Sub Command1_Click ( ) Dim a As Integer a = Val(Text1．Text)Text1．Text = Str(Int( a ))End Sub运行程序，单击按钮 Command1 后弹出如下图所示的错误提示。导致该错误的原因可能是（A．Int 函数计算时出现错误 B．Val 函数应用不正确C．窗体上缺少 Text1 文本框对象 D．变量 a 数据类型定义错误3、某Visual Basic程序段如下： 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 Next i运行该程序段，会出现的错误提示为（A）下标越界（B）子程序或函数未定义（C）要求对象（D）溢出Interger 类型范围在-32768~32767，而 1 到 10 相乘超出这个范围4、某Visual Basic程序如下：Private Sub Command1_Click() Dim a(1 To 10) As Integer1 / 8）瓯海一高学考专题练习叶胜利编辑 Dim i As Integer For i = 1 To 10 a(i) = i * i Next i List1.AddItem Str(a(i))End Sub运行程序，单击命令按钮Command1后，出现的错误提示为（A） 下标越界（B） 子程序或函数未定义（C） 溢出（D） 类型不匹5、有如下的 Visual Basic 程序：Private Sub Command1_Click() Const pi = 3.14 Dim s As Single, r As Single r = Val(text1.Text) pi = 3.1415 s = pi * r ^ 2 Label1.Caption = "面积为" + Str(s)End Sub程序运行后，单击命令按钮 Command1，出现如图所示的错误提示，下列原因分析正确的是（A）常量不能用小数（B）pi 是常量，不允许赋值（C）文本框 Text1 中输入的数据不是常量（D）表达式结果超过了变量类型的范围6、某 Visual Basic 程序如下：Private Sub Command1_Click()Dim a(1 To 10) As Integer Dim i As Integer For i =...