更多"下列程序的执行结果为 Private Sub Command1_Cl"的相关试题:
[单项选择]下列程序的执行结果为
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 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 s1 As String，s2 As String
S1；="abcdef"
Call Invert(s1，s2)
Print s2
End Sub
Private Sub Invert (ByVal xstr As String，ystr As String)
Dim tempstr As String
i=Len(xstr)
Do While i>=1
tempstr=tempstr+Mid(xstr，i，1)
i=i-1
Loop
ystr=tempstr
End Sub
A. fedcba
B. abcdef
C. afbecd
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
