vb常见错误
- 格式:docx
- 大小:23.54 KB
- 文档页数:2
1.某Visual Basic程序如下:
Private Sub Command1_Click()
Dim a As Single, b As Single
Dim c As Single
a = 1
b = 5
c = Sqr(a - b)
Text1.Text = Str(c)
End Sub
运行程序,单击命令按钮Command1后弹出如图所示的出错信息提示,此时程序
正执行的语句是
(A)a = 1 (B)b = 5
(C)c = Sqr(a - b) (D)Text1.Text = Str(c)
2.某Visual Basic程序如下:
Private Sub Command1_Click()
Dim i As Integer, sum As
Integer
sum = 0
For i = 10 To 2 Step -2
sum = sum + i
Next i
Text1.Text = Str(sum)
End Sub
运行程序,单击命令按钮Command1后弹出如图所示的出错信息提示,此时程序
正执行的语句是
(A)Sum = 0 (B)For i = 10 To 2 Step -2
(C)sum = sum + i (D)Text1.Text = Str(sum)
3.某Visual Basic程序如下:
Private Sub Command1_Click()
Dim a(1 To 10) As Integer,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) 类型不匹配
4.某Visual Basic程序段如下:
Dim a(1 To 10) As Integer
Dim iAs Integer
a(1) = 1
For i = 2 To 10
a(i) = a(i - 1) * i
Next i
运行该程序段,会出现的错误提示为
(A)下标越界 (B)子程序或函数未定义
(C)要求对象 (D)溢出