单项选择题
在窗体中添加一个名称为C1的命令按钮,然后编写如下事件代码:
Private Sub C1_Click()
str="ABAABAAABABBA"
For i=6 To 2 Step-2
x=Mid(str,i,i)
y=Left(str,i)
z=Right(str,i)
Next i
MsgBox x&y&z
End Sub
单击命令按钮,则消息框的输出结果是( )。
A.ABBAAB
B.ABBABA
C.BABABA
D.BAABBA
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
在窗体中有一个命令按钮Command1,对应的事件代码如下: Private Sub Command1_Enter() Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer For i=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.&:",b="& Str(
B.)
End Sub
<
C.对输入的10个数据分别统计有几个是整数,有几个是非整数
D.对输入的10个数据分别统计有几个是奇数,有几个是偶数
点击查看答案&解析
单项选择题
下列选项中可以得到“3*7=21”结果的VBA表达式为( )。
A."3*7"&"="&3*7
B."3*7"+"="+3*7
C.3*7&"="&3*7
D.3*7+"="+3*7
点击查看答案&解析
相关试题
不属于Office应用程序组件的软件是( )。
在过程定义中有语句: Private Sub GetD...
关系数据库管理系统能实现的专门关系运算包...
下列窗体中不可以自动创建的是( )。
Access字段名不能包含字符( )。