单项选择题

在窗体中添加一个名称为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
<上一题 目录 下一题>
热门 试题

填空题
下面程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数。请在‘空白处填入适当语句将程序补充完整。 Private Sub Form_Click() sum＝0 For i＝1 To 1000 If______Then sum＝sum+i End If Next i MsgBox sum End Sub
填空题
在窗体上画一个命令按钮，其名称为Command1，然后编写如卞程序： Private Sub Command1-Click() Dim a(10) As Integer Dim x As Integer For i＝1 To 10 a(i)＝i Next i x＝1 MsgBox a(f(x)+x) End Sub Function f(y As Integer) y＝y+2 f＝y End Function 程序运行后，单击命令按钮，消息框的输出结果为______。
相关试题