更多"下列程序段运行结束后,消息框中的输出结果是()。 Dim c As "的相关试题:
[单项选择]下列程序段运行结束后,消息框中的输出结果是______。
Dim C As Boolean
a=Sqr(3)
b=Sqr(2)
c=a>b
MsgBox c
A. -1
B. 0
C. False
D. True
[单项选择]以下程序段运行的结果是______。
Dim a(-1 To 5)As Boolean
Dim flag As Boolean
flag=False
Dim i As Integer
Dim j As Integer
Do Until flag=True
For i=-1 To 5
j=j+l
If a(i)=False Then
a(i)=True
Exit For
End If
If i=5 Then
flag=True
End If
Next
Loop
Print j
A. 20
B. 7
C. 35
D. 8
[单项选择]以下程序段运行的结果是______。 Dima(-1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer Do Until flag=True For i=-1 To 5 j=j+1 If a(i)=False Then a(i)=True Exit For End If If i=5 Then flag=True End If Next Loop Print j
A. 20
B. 7
C. 35
D. 8
[单项选择]以上程序段运行的结果是:______.
Dim a(-1 To 5) As Boolean
Dim flag As Boolean
flag = False
Dim i As Integer
Dim j As Integer
Do Until flag = True
For i = -1 To 5
j=j+1
if a(i)= False Then
a(i)= True
Exit For
End If
If i = 5 Then
flag = True
End If
Next
Loop
Print j
A. 20
B. 7
C. 35
D. 8
[单项选择]以下程序段运行的结果是: ______。 Dim a(-1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer Do Until flag=True For i=-1 To 5 j=j+1 If a(i)=False Then a(i)=True Exit For End If If i=5 Then flag=True End If Next Loop Print j
A. 20
B. 7
C. 35
D. 8
[填空题]执行下面程序后,消息框显示的结果是______。
Dim a As Integer
Sub sum(b As Integer)
a=a+b
End Sub
Private Sub Command1_Click( )
Call sum(3)
Call sum(4)
Call sum(5)
MsgBox a
End Sub
[填空题]执行下面的程序,消息框的输出结果是______。
Dim a(1 To 10),b(1 To 5)As Integer
sum=0
For i=1 To 10
a(i)=i
Next i
For i=1 To 5
b(i)=a(i*2)
Next i
For i=1 To 5
sum=sum+b(i)^2
Next i
MsgBox sum
[单项选择]以下程序运行后,消息框的输出结果是( )。 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
[填空题]以下程序段运行后消息框的输出结果为______。
s="Access"
Dim str As String
For i=1 To Len(s)
str=UCase(Mid(S,I,I))+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