单项选择题

在窗体上中一个命令按钮Command1，编写如下事件代码：
Private Sub Command1_Click()
S="ABBACDDCBA"
For i=6 To 2 Step-2
x=Mid(s,i,i)
y=Left(s,i)
z=Right(s,i)
z=x&y&z
Next i
MsgBox z
End Sub
运行窗体后，单击命令按钮，则消息框输出的结果是( )。

A．AABAAB
B．ABBABA
C．BABBAB
D．BBABBA
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() A=75 If a＜60 Then x=1 If a＜70 Then x=2 If a＜80 Then x=3 If a＜90 Then x=4 MsgBox x End Sub 运行窗体，单击命令按钮，则消息框的输出结果是( )。
A．1
B．2
C．3
D．4
单项选择题
在窗体中有一个命令按钮Command1，对应的事件代码如下： Private Sub Command1_Enter() Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer For 1=1 To 10 Num=InputBox( 请输入数据： ， 输入 ,1) If Int(num 2)=num 2 Then a=a+1 Else b=b+1 End If Next i MsgBox( 运行结果：a= & Str(a) &： ,h= & Str(b)) End Sub 运行以上事件所完成的功能是( )。
A．对输入的10个数据求累加和
B．对输入的10个数据求各自的余数，然后再进行累加
C．对输入的10个数据分别统计有几个是整数，有几个是非整数
D．对输入的10个数据分别统计有几个是奇数，有几个是偶数
相关试题