下面的程序运行结果是()。Private Sub Form_Click() i=0 Do i=i+1 if i>10 then Exit Do Loop U
下面的程序运行结果是()。 Private Sub Form_Click() i=0 Do i=i+1 if i>10 then Exit Do Loop Until i<10 Print i End Sub
A.0
B.1
C.10
D.11
下面的程序运行结果是()。 Private Sub Form_Click() i=0 Do i=i+1 if i>10 then Exit Do Loop Until i<10 Print i End Sub
A.0
B.1
C.10
D.11
下面的程序运行结果是()。 Private Sub Form_Click() I=0 DoUntil0 i=i+1 if i>10 then Exit Do Loop Printi End Sub
A.0
B.10
C.11
D.出错
下面的程序运行结果是()。 Private Sub Form_Click() i=0 Do i=i+1 if i>10 then Exit Do Loop Until i<10 Print i End Sub
A.0
B.1
C.10
D.11
阅读下面的程序: Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后,单击命令按钮,窗体上输出的结果是
A.3
B.9
C.14
D.21
执行下面的程序,输出的结果是 ______ 。 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
A.1
B.2
C.8
D.0
执行下面的程序,当输入3时,输出的结果是【 】 Private sub Command1_Click() i=2 j= InputBox(" j = ") On j GoTo 20,30,40,50 i=i+2 20:i=i+2 30:i=i+2 40:i=i+2 50:i=i+2 Print i End Sub
A.0
B.1
C.’’
D.False
执行下面的程序,单击窗体后窗体消息框内显示结果是()。 PRIVATE SUB FORM_CLICK() DIM STR AS STRING, K AS INTEGER STR="AB" FOR K = LEN(STR) TO 1 STEP -1 STR=STR&CHR(ASC(MID(STR, K, 1)) +K) NEXT K MSGBOX STR END SUB
A.ABCE
B.ABCD
C.ABDB
D.ABFB
执行下面的程序,消息框里显示的结果是 【 】 。
Private Sub Form_Click()
Dim Str As String, K As Integer
Str="ab"
For k=Len(Str) TO 1 Step-1
Str=Str & Chr(Asc(Mid(Str,k,1))+k)
Next k
MsgBox Str
End Sub
执行下面的程序,击窗体后在窗体上显示的第一行结果是(),第三行结果是()。
Private Sub Form_click()
Dim mystr, mystr1, mysrr2 As String
mystr1 = "B"
For i = 1 To 3
mystr2 = LCase(mystr1)
mystr1 = mystr1 & mystr2
mystr = mysre & mystr1
Print mystr
mystr1 = Chr(Asc(mystr1) + i)
Next i
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
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!