更多"下列程序的执行结果是( )。 Private Sub Form_A"的相关试题:
[单项选择]下列程序的运行结果是 Private Sub Form_Click( ) Dim k As Integer n=5 m=1 k=1 Do m=m+2 k=k+1 Loop Until k>n Print m End Sub
A. 1
B. 12
C. 11
D. 32
[单项选择]下面程序段,运行后的结果是 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(
[单项选择]下面程序运行后的结果是( )。
Private Sub Form_Click( )
Dim s As Integer,k As Integer,i As Integer,n As Integer
s=1
fori=1 to 3
forj=i to 3
for k=j to istep-1
s=s*k
nextk,J,i
print s
End Sub
A. 6
B. 72
C. 144
D. 432
[单项选择]下列程序的运行结果是( )。
Private Sub Form_Click( )
Dim k As Integer
n=5
m=1
k=1
Do
m=m+2
k=k+1
Loop Until k>n
Print m
End Sub
A. 1
B. 12
C. 11
D. 32
[单项选择]下列程序运行时输出的结果是( )。
Private Sub Form_Click( )
Dim a( )
a=Array(“天天向上”,“清华大学”,“天长地久”,“程序设计”)
for I=Lbound(a,1) to Ubound(a,1)
if ieft(a(I),1)="天”then print a(I);
next I
End Sub
A. 天天向上
B. 天天向上天长地久
C. 出错信息
D. 天天向上清华大学天长地久程序设计
[单项选择]单击命令按钮时,下列程序的执行结果是 Private Sub Command1_Click( ) Dim a As Integer,b As Integer,c As Integer a=3 b=4 C=5 Print SecProc(c,b,a) End Sub Function Fir Proc(x As Integer,y As Integer,z As Integer) Fir Proc=2*x+y+3*z End Function Function SecProc(x As Integer,y As Integer,z As Integer) SecProc=FirProc(z,x,y)+x End Function
A. 20
B. 22
C. 28
D. 30
[单项选择]单击命令按钮时,下列程序的执行结果是
Private Sub Commandl_Click( )
Dim a As Integer,b As Integer,c As Integer
a=3:b=4:c=5
Print SecProc(c,b,a)
End Sub
Function FirProc(x As Integer,y As Integer,z As Integer)
FirProc=2*x+y+3*z
End Function
Function SecProc(x As Integer,y As Integer,z As Integer)
SecProc=FirProc(z,x,y) +x
End Function
A. 20
B. 22
C. 28
D. 30
[单项选择]单击命令按钮时,下列程序的执行结果是 Private Sub Book( x As Integer) x=x*2+1 If x<6 Then Call Book(x) End If x=x * 2 + 1 Print x; End Sub Private Sub Command2_Click( ) Book 2 End Sub
A. 23 47
B. 10 36
C. 22 44
D. 24 50
[单项选择]单击窗体时,下列程序的执行结果是 Private Sub Invert(By Val xstr As String,ystr As String) Dim tempstr AS String Dim I AS Integer I=Len(xstr) Do While I>=1 tempstr=tempstr + Mid(xstr,I,1) I=I - 1 Loop ystr=tempStr End Sub Private Sub Form_Click( ) Dim s1 As String,s2 As String S1="abcdef" Invert S1,S2 Print S2 End Sub
A. abcdef
B. afbecd
C. fedcba
D. defabc
[填空题]有如下程序,该程序的执行结果是 【6】 。
Private Sub Command1 Click( )
For i=1 To 4
x=4
For j=1 To i
x =3
For k=1 To 2
x= x + 5
Next k
Next j
Next i
Print x
End Sub
[单项选择]单击命令按钮时,下列程序的执行结果是 Private Sub Book(x As Integer) x=x * 2 + l If x<6 Then Call Book(x) End If X=X * 2 + 1 Print x; End Sub Private Sub Command2_Click( ) Book2 End Sub
A. 23 47
B. 10 36
C. 22 44
D. 24 50
[单项选择]单击命令按钮时,下列程序的执行结果是
Private Sub Command1_Click( )
BT4
End Sub
Private Sub BT(x As Integer)
x=x * 2 + 1
If x<6 Then
Call BT(x)
End If
x=X * 2
Print x;
End Sub
A. 15
B. 16
C. 17
D. 18
[单项选择]单击—次命令按钮后,下列程序的执行结果是
Private Sub Command1_Click( )
S=P(1)+P(2)+P(3)+P(4)
Print S
End Sub
Public Function P(N As Integer)
Static Sum
For i=1 To N
Sum=Sum+i
Next i
P=Sum
End Function
A. 15
B. 25
C. 35
D. 45