⽤Dim A (1 to 15) As Integer语句定义的数组的元素个数是()。
A.14
B.15
C.16
D.17
A.14
B.15
C.16
D.17
写如下事件过程:
Private Sub Command1_Click()
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
for j = 2 To 4
array1(i, j) = i + j
next j
next i
Text1.Text = arrry1(2, 3) + array(3, 4)
End Sub
程序运行后, 单击命令按钮, 在文本框中显示的值是______
A.12
B.13
C.14
D.15
阅读下列程序并写出程序运行结果。
Private Sub Form_Click()
Dim A(1 To 3) As String
Dim c As Integer
Dim j As Integer
A(1) = "4"
A(2) = "8"
A(3) = "12"
c = 1
For j = 1 To 3
c = c + Val(A(j))
Next j
Print c
End Sub
写出程序运行时单击窗体后,窗体Form1上的结果。
A.2468109751001
B.1357910864100
C.24681097531
D.2468109753100
以下程序运行输出的a的值为(),b的值为()。
Private Sub Command1 _Click()
Dim a As Integer, b As Integer
a = 1
b = 0
Do While a <= 5
b = b + a * a
a = a + 1
Loop
Print a, b
End Sub
Private Sub Command1_Click()
Dim a (10,10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
for j = 1 To 3
a (i, j) = (i – 1) * 3 + j
Print a(i, j );
next j
next i
End Sub
程序运行后, 单击命令按钮, 窗体上显示的是______
A.1 2 3 2 4 6 3 6 9
B.2 3 4 3 4 5 4 5 6
C.1 4 7 2 5 8 3 6 9
D.1 2 3 4 5 6 7 8 9
Private Sub Command1_Click()
Dim a
a =
Array(“a”,”b”,”c”,”d”,”e”,”f,”,”g
”)
Print a(1); a(3); a(5)
End Sub
A.a b c
B.b d f
C.
D.a c e
E.出错
Private Sub Form_Click()
Dim last_one As Long
Dim last_two As Long
Dim this_one As Long
Dim i As Integer
last_one = 1 '数列的第二个数
last_two = 2 '数列的第三个数
i = 4 '从数列的第四个数求起
Do
this_one = last_one + last_two
last_one = last_two
last_two = ------1-------
If i = 17 Then
Form1.Print "No:17="; this_one
End If
------2------
Loop While this_one <= 100000000#
Form1.Print "No:";------3------; "is > 1E+8"
End Sub
A.下标越界 死循环
B.数据溢出 下标越界
C.变量类型不匹配 死循环
D.数据溢出 死循环
这是一个用户名校验程序,如用户名正确,即输出欢迎字样,否则,弹出警告窗并直接退出程序。
Dim UserName(2) As String, inputName As String
Dim Flag As Boolean ‘flag=true表示用户名正确;flag=false表示用户名不正确
Private Sub Form_Load()
Dim I As Integer
UserName(0) = "AA" : UserName(1) = "BB" : UserName(2) = "CC"‘共三个用户名
----1----
inputName = InputBox("请输入名称:", "身份确认", " ")
For I = 0 To 2
If ----2----Then
Flag = True
End If
Next I
If Flag =False Then
----3---- ("用户身份确认失败!退出应用", vbOKOnly, " 警告")
End
End If
End Sub
Private Sub Form_Paint()
picShowMsg.Print "欢迎您!" + inputName
End Sub
Private Sub Command1 _Click()
Dim i As Integer
For i = 0 To 1 2
Print();Space(2)
Next i
End Sub