更多"下列程序的执行结果为( )。
Ptivate Sub Co"的相关试题:
[单项选择]下列程序的执行结果为 Ptivate Sub Commandl_Click（ ） Dim FirStr As String FirStr="abcdef" Print Pct (FirStr) End Sub Private Function Pct(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，l) + Mid(xStr，strLen - i+i ，1) i=i + 1 Loop Pct=tempStr End FunCtion
A. abcdef
B. afbecd
C. fedcba
D. defabc
[单项选择]下列程序的执行结果为( )。
Ptivate Sub Commandl_Click（ ）
Dim FirStr As String
FirStr="abcdef"
Print Pct (FirStr)
End Sub
Private Function Pct(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，l) + Mid(xStr，strLen - i+i ，1)
i=i + 1
Loop
Pct=tempStr
End FunCtion
A. void
B. int
C. new
D. long
[单项选择]下列程序的执行结果为( )。
Ptivate Sub Command_Click（ ）
DimFirStr As String
FirStr="abcdef"
PrintPat(FirSb)
End Sub
PrivateFunctionPat(xStr As String)As String
DimtempStr As String，strLen As Integer
tempStr=""
strLen=Len(xStr)
i=1
DoWhile i＜=Len(xStr)-3
tempStr=tempSlx+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
[单项选择]有如下程序： Ptivate Sub Form_Click（ ） Dim Check，Counter Cbeck=True Counter=0 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub 程序运行后，单击窗体，输出结果为（）。
A. 15 0
B. 20 -1
C. 10 True
D. 10 False
[填空题]程序执行结果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
