[填空题]下列程序段的运行结果是______。
Dimnum As Integer，a As Integer,b As Integer
a=88：b=24
Do
While b＜＞0
num=a Modb
a=b
b=num
Wend
Printa
Loop

更多"下列程序段的运行结果是______。 Dimnum As Integ"的相关试题:

[填空题]下列程序段的运行结果是______。 Dimnum As Integer，a As Integer,b As Integer a=88：b=24 Do While b＜＞0 num=a Modb a=b b=num Wend Printa Loop

查看答案

[填空题]下面程序段的运行结果是【15】。 Option Base 1 Private Sub swap (a（　） As Integer) For I=1 to 10/2 t=a (I) a (I) =a (10-I+l) a (10-I+1)=t Next I End Sub Private Sub Form Click（　） Dim x(10) As Integer For I=1 to 10 x(I) =1*2 Next I Swap x （　） For I=1 to 10 Print x (I) Next I End Sub

查看答案

[填空题]下面程序段的运行结果是【15】。
Option Base 1
Private Sub swap (a（　） As Integer)
For I=1 to 10/2
t=a (I)
a (I) =a (10-I+l)
a (10-I+1)=t
Next I
End Sub
Private Sub Form Click（　）
Dim x(10) As Integer
For I=1 to 10
x(I) =1*2
Next I
Swap x （　）
For I=1 to 10
Print x (I)
Next I
End Sub

查看答案

[填空题]下面程序段的运行结果是【15】。 Option Base 1 Private Sub Swap (a（　） As Integ For I=1 to 10/2 t=a(I) a(I)=a(10-I+1) a(10-I+1)=t Next I End Sub Private Sub Form_Click（　） Dim x(10) As Integer For I=1 to 10 x(I)=I*2 Next I Swap x（　） For I=1 to 10 Print x(I) Next I End Sub

查看答案

[填空题]下面程序段的运行结果是【15】。
Option Base 1
Private Sub Swap (a（　） As Integ
For I=1 to 10/2
t=a(I)
a(I)=a(10-I+1)
a(10-I+1)=t
Next I
End Sub
Private Sub Form_Click（　）
Dim x(10) As Integer
For I=1 to 10
x(I)=I*2
Next I
Swap x（　）
For I=1 to 10
Print x(I)
Next I
End Sub

查看答案

[填空题]下面程序段的运行结果是【14】。 Option Base 1 Private Sub swap(a( ) As Integer) For I = 1 to 10/2 t =a(I) a(I) = a(10-I+l) a(10-I+1) = t Next I End Sub Private Sub Form Click( ) Dim x(10) As Integer For I = 1 to 10 x(I) = I * 2 Next I Swap x( ) For I=1 to 10 Print x(I) Next I End Sub

查看答案

[填空题]下面程序段的运行结果是【14】。
Option Base 1
Private Sub swap(a( ) As Integer)
For I = 1 to 10/2
t =a(I)
a(I) = a(10-I+l)
a(10-I+1) = t
Next I
End Sub
Private Sub Form Click( )
Dim x(10) As Integer
For I = 1 to 10
x(I) = I * 2
Next I
Swap x( )
For I=1 to 10
Print x(I)
Next I
End Sub

查看答案

[填空题]下面程序段的运行结果是【14】。
Option Base 1
Private Sub swap(a（　）As InteSer)
For I=1 to 10/2
t=a(i)
a(i)=a(10-1+1)
a(10-1+1)=t
Next1
End Sub
Private Sub Form_Click（　）
Dim x(10)As Integer
For I=1 to 10
x(i)=I*2
Next1
Swap x（　）
For1=1 to 10
Print x (i)
Next I
End Sub

查看答案

[单项选择]下面程序段，运行后的结果是
Private Sub Command1_Click（　）
Dim b%(1 To 4)，i%，t#
　　For i=1 To 4
　　　　b(i) =i
　　Next
　　t=Tof(b（　） )
　　Print"t="；t，
End Sub
Function Tof(a（　） As Integer)
Dim t#,i%
　　t=1
　　For i=2 To UBound(

查看答案

[单项选择]下面程序段，运行后的结果是
Private Sub Command1_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 c As Integer,num As Integer
Num=29483
Do
　c=num Mod 10
　Print c；
　num=num/10
Loop While num＜＞0

查看答案

[单项选择]下面程序段，运行后的结果是（）。　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(a) 　　　　　　t=t * a(i) 　　　　Next i 　　　　Tof=t 　　End Function
A. RunSQL
B. RunApp
C. Requery
D. Quit

查看答案

我来回答:

提交