单项选择题

执行以下Command1的Click事件过程，在窗体上显示
Option Base 0
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．abc
B．bdf
C．ace
D．出错

<上一题目录下一题>

热门试题

单项选择题

有如下程序 Private Sub Command1_Click() a = 100 Do s=s+a a=a+1 Loop While a＞120 Print a End Sub 程序运行后，单击命令按钮，其输出的结果为

A．100
B．120
C．201
D．101

单项选择题

编写如下事件过程： Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i＞= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form Click() Dim s1 As String, s2 As String s1= teacher sub1 s1, s2 Print s2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是

A．rehcaet
B．tahreee
C．themee
D．eerthea

相关试题