更多"下列程序的执行结果为 Private Sub Command1_Cl"的相关试题:
[单项选择]下列程序的执行结果为
Private Sub Commandl_Click( )
Dim X As Integer,y As Integer
x=12:y=20
Call Value(x,y)
Print X;y
End Sub
Private Sub Value(ByVal m As Integer,ByVal n As Integer)
m=m * 2:n=n-5
Print m;n
End Sub
A. 20 12
B. 12 20
C. 24 15
D. 24 12
[单项选择]下列程序的执行结果为
Private Sub Command1_Click( )
Dim FirStr As String
FirSt="abcdef"
Print Pat(FirStr)
End Sub
Private Function Pat(xStr As String)As String
Dim tempStr As String,strLen As Integer
tempStr=" "
strLen=Len(xStr)
i=1
Do While i<=Len(xStr)-3
tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen -i+1,1)
i=i+1
Loop
Pat=tempStr
End Function
A. abcdef
B. afbecd
C. fedcba
D. defabc
[单项选择]下列程序的执行结果为
Private Sub Command1_Click( )
Dim x As Integer,Y As Integer
x=12:y=20
Call Value(x,y)
Print x;y
End Sub
Private Sub Value(ByVal m As Integer,ByVal n As Integer)
m=m*2:n=n-5
Print m;n
End Sub
A. 20 12
B. 12 20
C. 24 15
D. 24 12
[单项选择]下列程序的执行结果为
Private Sub Command1_Click( )
Dim FirStr As String
FirSt = "abcdef"
Print Pat(FirStr)
End Sub
Private Function Pat( xStr As String) As String
Dim tempStr As String, strLen As Integer
tempStr =""
strLen = Len(xStr)
i=1
Do While i<=Len(xStr)-3
tempStr = tempStr + Mid(xStr, i, 1 ) + Mid(xStr, strLen - i + 1, 1 )
i=i+1
Loop
Pat = tempStr
End Function
A. abcdef
B. afbecd
C. fedcba
D. defabc
[单项选择]下列程序的执行结果为
Private Sub Command1_Click( )
Dim FirStr As String
FirSt="abcdef"
Print Pat(FirStr)
End Sub
Private Function Pat(xStr As String) As String
Dim tempStr As String,strLen As Integer
tempStr=""
strLen=Len(xStr)
i=1
Do While i<=Len(xStr)-3
tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1)
i=i+1
Loop
Pat=tempStr
End Function
A. abcdef
B. afbecd
C. fedcba
D. defabc
[单项选择]下列程序的执行结果为
Private Sub Command1_Click( )
Dim FirStr As String
FirSt="abcdef"
Print Pat(FirStr)
End Sub
Private Function Pat(xStr As String)As String
Dim tempStr As String,strLen As Integer
tempStr=" "
strLen=Len(xStr)
i=1
Do While i<=Len(xStr)-3
tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen -i+1,1)
i=i+1
Loop
Pat=tempStr
End Function
A. abcdef
B. afbecd
C. fedcba
D. defabc
[单项选择]下列程序的执行结果是( )。
Private Sub Form_Activate( )
Dim score(3)As Integer,total As Integer
Dim aa score AS Variant
score(1)=50:score(2)=14:score(3)=36
total=0:i=0
For Each aa score In score
i=i+1
tota1=tota1+aa_score
Print i,aa_score,tota1
Next
End Sub
A. 1 0 0
B. 1 50 50
C. 0 50 50
D. 0 0 0
[填空题]程序执行结果s的值是 。
Private Sub sub1(Byval p As Integer)
p=p*2
End Sub
Private Sub Command1_ Click( )
Dim i As Integer
i=3
Call sub 1 (i)
if i>4 then i=i mod 2
Print cstr(i)
End Sub
[填空题]程序执行结果s的值是 【7】 。
Private Sub sub1(Byval p As Integer)
p=p*2
End Sub
Private Sub Command1_click( )
Dim i As Integer
i=3
Call sub1(i)
if i>4 then i=i mod 2
Print cstr(i)
End Sub
[填空题]程序执行结果s的值是 【7】 。
Private Sub sub1(Byval p As Integer)
p=p*2
End Sub
Private Sub Command1_Click( )
Dim i As Integer
i=3
Call sub1(i)
if i>4 then i=i mod 2
Print cstr(i)
End Sub
[填空题]程序执行结果s的值是 【7】 。
Private Sub sub1(Byval p As Integer)
p=p*2
End Sub
Private Sub Command1_Click( )
Dim i As Integer
i=3
Call sub1(i)
if i>4 then i=i mod 2
Print cstr(i)
End Sub