在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
For i=1 To 4
x=4
For j=1 To 3
X=3
For k=1 To 2
x=x+6
Next
Next
Next
Print x
End Sub 程序运行后,单击命令按钮,输出的结果是
A.7
B.15
C.157
D.538
第1题:
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a(5) As String
For i = 1 To 5
a(i) = Chr(Asc("A") + (i - 1))
Next i
For Each b In a
Print b;
Next
End Sub
程序运行后,单击命令按钮,输出结果是( )。
A.ABCDE
B.1 2 3 4 5
C.abcde
D.出错信息
第2题:
在窗体上画一个命令按钮,然后编写如下事件过程:
运行后的输出结果是______。
A.5
B.1
C.2
D.6
第3题:
在窗体上画一个名称为 \"Command1\" 的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a As String
A="123456789"
For i=1 To 5
Print Space(6-i);Mid $ (a,______ ,2*i-1)
Next i
End Sub
程序运行后,单击命令按钮,窗体上的输出结果是
5
456
34567
2345678
123456789
请填空。
第4题:
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(5)As String For i=1 T0 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后,单击命令按钮,输出结果是______。
A.ABCDE
B.1 2 3 4 5
C.abode
D.出错信息
第5题:
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_ Click() Dim arr (10) For i = 1 To 10 arr (i) = i ^ 2 Next i Print arr(i - 2) End Sub程序运行后,单击命令按钮,在窗体上输出的是______。
A.49
B.64
C.81
D.100
第6题:
在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程:
程序运行后,单击命令按钮,其输出结果为__________。
第7题:
在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程:
Private Sub Corrtmandl Click()
a$=”Nationalcomputer rank Examination”
n=Len(a$)
S=0
For i=1 To n
b$=Mid(a$,i,1)
Ifb$=”n”Then
s=s+1
End If
Next i
Print s
End Sub
程序运行后,单击命令按钮,输出结果是【 】。
第8题:
( 8 )在窗体上画一个名称为 “ Command1 ” 的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a As String
a = "123456789"
For i = 1 To 5
Print Space(6 - i); Mid$(a, 【 8 】 , 2 * i - 1)
Next i
End Sub
程序运行后,单击命令按钮,窗体上的输出结果是
5
456
34567
2345678
123456789
请填空。
第9题:
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() Dim a(5)As String Fori=1 To 5 a(i)=Chr(Asc("A")+(11)) Nexti For Each b In a Print b Next End Sub 程序运行后,单击命令按钮,输出结果是( )。
A.ABCDE
B.1 2 3 4 5
C.abcde
D.出错信息
第10题:
在窗体上画一个命令按钮,然后编写如下事件过程:
程序运行后,依次输入3,2,1,0,-1,-2,则输出结果是__________。