更多"单击窗体时,下列程序的执行结果是( )。
Private "的相关试题:
[单项选择]单击窗体时,下列程序的执行结果是( )。
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. blooean isAlive( )
B. Thread currentThread( )
C. String getName( )
D. smtic boolean interrupted( )
[单项选择]单击窗体时,下列程序代码的执行结果为______ 。
Private Sub Test (x As Integer)
x=x*2+1
If x < 6 Then
Call Test(x)
End If
x-x*2+1
Print x;
End Sub
Private Sub Command1_ Click ( )
Test 2
End Sub
A. 23 47
B. 5 11
C. 10 22
D. 23 29
[单项选择]单击命令按钮,下列程序的执行结果是 Private Sub Blck (x As Integer) x = x * 2 + l If x <6 Then Call Blck(x) End If x = x * 2 + 1 Print x; End Sub Private Sub Commandl_Click( ) Blck 2 End Sub
A. 23 47
B. 10 36
C. 22 44
D. 24 50
[单项选择]单击命令按钮时,下列程序的执行结果是
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 Commandl_Click( )
s=Sat(1)+Sat(2)+Sat(3)+Sat(4)
Print s
End Sub
Public Function Sat(N As Integer)
Static Sum
For i=1 To N
Sum=Sum+i
Next i
Sat=Sum
End Function
A. 15
B. 25
C. 35
D. 45
[单项选择]单击命令按钮时,下列程序的执行结果是 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( )
Dima 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+2
End Function
Function SecProc(x As Integer,y As Integer,z As Integer)
SecProc=FirProc(z,x,y) +x+7
End Function
A) 20 B) 25 C) 37 D) 32