当发生Command1_C1ick事件后，以下程序的输出结果是 Private Sub Command1_Click() Dim i As Integer Dim a(10) As Integer For i＝9 To 0 Step -1 a(i)=10-i Next i Print a(2);a(5);a(8) End Sub

A．2 5 8

B．7 4 1

C．8 5 2

D．3 6 9

[单选题]下列程序的执行结果为 Private Sub Command1_C1ick( ) Dim sl As String，s2 AS String s1="abcdef" Call lnvert(s1，s2) Print s2 End Sub Private Sub lnvert(ByVal xstr As String，ystr As String) Dim tempstr As Stdng i=Len(xstr) Do While i＞=1 tempstr=tempstr+Mid(xstr，i

[试题]下列程序的输出结果是______。Private Sub Command1_Click()D．im arr(1To 10)F．or i＝1 To 10arr(i)＝iNext iF．or Each i In arr()arr(i)＝arr(i)*2+1Next iMsgBox arr(7)E．nd Sub

[单选题]下面程序运行后的输出结果是______。Private Sub Command1_ Click ( ) for j = 1 To 10 if j Mod 3 ＜＞ 0 then a =a+j/3 Next j Print aEnd SubA．20B．10C．3D．9

[单选题]当Form1_Click事件发生时，程序的输出结果是( )。 Private Sub Form_Click() Dim M As Integer，k As Integer，t As Integer M=5：k=7 Select Case M Case Is＜0 M=M+5 Case 1 To 10 t=M：M=k：k=t Case Else M=k Mod 3 End Select Print M，k，t End SubA．5 5 7B．5 7 5C．7 5 5D．7 5 7

[单选题]下列事件过程运行后输出结果是 Private Sub Command1_Click() Print Format$(123,456，"###,##%") End SubA．123.46%B．123.45%C．123.456%D．12345.6%

[单选题]下列事件过程运行后输出结果是Private Sub Command1_Click()Print Format$(123,456, "###,##%")E．nd SubA．123.46%B．123.45%C．123.456%D．12345.6%

[单选题]下列事件过程运行后输出结果是 Private Sub Command1_Click() Print Formats(123,456，"###,##%") End SubA．123.46%B．123.45%C．123.456%D．12345.6%

[单选题]有如下事件程序，运行该程序后输出结果是Private Sub Command33_Click()D．im X As Integer，y As Integerx=1：Y=0D．o Until y<=25y=y+X*XX=X+1 ‘Loop ’ 。MsgBox“x一”＆X＆,“y=”＆yE．nd SubA．x=1，y=0B．x=4，y=25C．x=5，y=30D．输出其他结果

[单选题]（ 30 ）下面程序的输出结果是Private Sub Command1_Click()ch$= ” ABCDEF ”proc chPrint chE．nd SubPrivate Sub proc(ch As String)S= ””F．or k=Len(ch) To 1 Step-1s=s&Mid(ch,k,1)Next kch=sE．nd SubA． ） ABCDEFB． ） FEDCBAC． ） AD． ） F

[单选题]以下语句的输出结果是______。 Private Sub Command1_Click() x=10 y=1 Print x+y=101； End SubA．11B．101C．110D．False