更多"下列程序段的运行结果是______。 Dim t As Single"的相关试题:
[单项选择]下面程序段,运行后的结果是 Private Sub Commandl_Click( ) Dim b%(1 To 4),i%,t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print"t=";t, End Sub Function Tof(a( ) As Integer) Dim t#,i% t=1 For i=2 To UBound(
[单项选择]以下程序段运行的结果是______。
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 c As Integer,num As Integer
Num=29483
Do
c=num Mod 10
Print c;
num=num/10
Loop While num<>0
[填空题]下列程序段运行结果是______。
Dim c As Integer,num As Integer
Num=29483
Do
c=num Mod 10
Print c;
num=num/10
Loop While num<>0
[填空题]下列程序段的运行结果是______。
Dimt As Single,S As Single
Dimn As Integer
S=0:t=1
Forn=1 To 5
t=t*n
s=s+1
Nextn
Debug.Print S
[填空题]下列程序段的运行结果是______。
Dimt As Single,S As Single
Dimn As Integer
S=0:t=1
Forn=1 To 5
t=t*n
s=s+1
Nextn
Debug.Print S