更多"下列程序段运行后消息框的输出结果为______。 s＝'Access"的相关试题:
[填空题]以下程序段运行后消息框的输出结果为______。
s=“Access”
Dim str As String
For i=1 To Len(s)
str=UCase(Mid(S，I，1))+str
Next i
MsgBox str
[填空题]下列程序段运行后消息框的输出结果为______。
s＝"Access"
Dim Str As String
For i＝1 To Len(s)
str＝UCase(Mid(S,i,1) ) +str
Next i
MsgBox str
[填空题]下列程序段运行后消息框的输出结果为______。
s＝"Access"
Dim Str As String
For i＝1 To Len(s)
str＝UCase(Mid(S,i,1) ) +str
Next i
MsgBox str
[单项选择]以下程序运行后，消息框的输出结果是( )。
OPTION BASE 1
PRIVATE SUB COMMAND1_CLICK( )
DIM A(10) , P(3) AS INTEGER
K=5
FOR I=1 TO 10
A(I) = I
NEXT I
FOR I=1 TO 3
P(I)=A(I*I)
NEXT I
FOR I=1 TO 3
K=K+P(I) ~ 2
NEXT I
MSGBOX K
END SUB
A. 33
B. 28
C. 35
D. 37
[单项选择]以下程序运行后，消息框的输出结果是( )。
a=sqr(3)
b=sqr(2)
c=a＞b
MsgBox c+2
A. -1
B. 1
C. 2
D. 出错
[填空题]运行下面程序，其输出结果(str2的值)为 【13】 。
Dim str1，str2 As String
Dim i As Integer
str1="abcdef"
For i=1 To Len(str1)Step2
str2=UCase(Mid(str1，i，1))+str2
Next
MsgBox str2
[填空题]运行下面程序，其输出结果(str2的值)为 【13】 。
Dim str l，str2 As String
Dim I As Integer
str l= “abcdef”
For l To Len (strl) Step2
str2=UCase (Mid (strl，I ,1))十str2
Next
MsgBoxstr2
[填空题]运行下面程序，其输出结果(str2的值)为 【13】 。
Dim str1，str2 As String
Dim i As Integer
strl="abcdef"
For i=1 To Len(str1) Step2
str2=UCase(Mid(str1，i，1))+str2
Next
MsgBox str2
[填空题]运行下面程序，其输出结果(str2的值)为 【13】 。
Dim str1，str2 As String
Dim i As Integer
strl= "abcdef"
For i=1 To Len(str1) Step 2
str2=UCase(Mid(strl,i,1))+str2
Next
MsgBox str2
[填空题]运行下面的程序，其输出结果(str2的值)为______。
Dim str1，str2 As String
Dim i As Integer
str1="abcdef"
For i=1 To Len(str1) Step 2
str2=UCase(Mid(str1，i，1))+str2
Next
MsgBox str2
[填空题]某个窗体已编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为
Private Sub Form_Click（ ）
a=1
i=1
Do Until i＞10
a=a+2
i=i+3
Loop
MsgBox a
End Sub
[填空题]某个窗体己编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为
Private Sub Form_Click（ ）
a＝1
i＝1
Do Until i＞10
a＝a+2
i＝i+3
Loop
MsgBox a
End Sub
