[单项选择]下列程序的执行结果为（）。　　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. 0 0
B. 1 1
C. 0 2
D. 1 2

更多"下列程序的执行结果为（）。　　Private Sub Com"的相关试题:

[填空题]程序执行结果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的值是【14】 . Private Sub Command l-Click （　） I =0 Do S= I +S I = I + l Loop Until I ＞=4 End Sub

查看答案

[单项选择]下列程序的执行结果为 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. aPDecd
C. fedcba
D. defabc

查看答案

[填空题]程序执行结果s的值是【14】。 Private Sub Command1_Click（　） i=0 Do s=i+s i=i+1 Loop Until i＞=4 End Sub

查看答案

[填空题]程序执行结果S的值是【11】。
Private Sub Command1_click（　）
i=0
Do
i=i+1
s=i+s
Loop Until i＞=4
Print s
End Sub

查看答案

[填空题]程序执行结果S的值是【11】。
Private Sub Command1_Click（　）
i=0
Do
i=i+1
s=i+s
Loop Until i＞=4
Print s
End Sub

查看答案

我来回答:

提交

更多"下列程序的执行结果为（ ）。 Private Sub Com"的相关试题:

更多"下列程序的执行结果为（）。　　Private Sub Com"的相关试题: