更多"下列程序段的运行结果是______。 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
[单项选择]
下面是一段javabean程序,该程序的运行结果是()。
public class NullTest
public static void main(String[] args)
int M = 0;
String str = null;
StringBuffer sb = new StringBuffer("= ");
sb.append(str);
sb.append(M++);
System.out.println(sb.toString( ));
A. =null
B. =null0
C. =null1
D. =nullM
[填空题]下面程序段的运行结果是 【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
[填空题]下面程序段的运行结果是 【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
[填空题]
运行下面的程序段后,屏幕显示的运行结果是()。
CLEAR
SET TALK OFF
STORE 3 T0 n
ss(n)
FUNCTION SS
PARAMETERS X
y=1
p=0
FoR i=1 TO x
y=y*i
p=p+y
ENDFoR
RETURN P
ENDFUNC
[填空题]下列程序段运行结果是______。
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 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 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
[单项选择]下面程序段,运行后的结果是 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(
[填空题]下面程序段的运行结果是______。
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
[填空题]下列程序段的运行结果是______。
Sub sele( )
Dimn as Integer
i=21:n=3
DoWhilei>n
i=i-n
Loop
Printi
End Sub