【单选题】执行下面的程序,输出的结果是 ______ 。 Private Sub Command1_Click() ch $ = 'Welcome to China!' n = Len(ch $ ) For i =1 To n-1 s$ =Mid(ch$ ,i,1) If s$ ='o' Then m=m + 1 Next i Print m End Sub
【单选题】执行下面程序后,输出的结果是( )。 Private Sub Form_Click() Dim a() a = Array(1, 2, 3, 4) j = 1 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub
【简答题】执行下面的程序,消息框里显示的结果是_______。 Private Sub Form_Click() Dim Str As String Str='' S='Access' Fori=Len(S)To 1 Step-l Str=Str&Mid(S,i,1) Next i MsgBox Str End Sub