更多"执行下列程序，输入框中显示的默认字符串为上【6】： Private "的相关试题:
[填空题]执行下列程序，输入框中显示的默认字符串为 【6】 ：
Private Sub Command1_Click（ ）
InputBox "ok"，"输入参数"，Format("&H12")
End Sub
[填空题]执行下列程序，输入框中显示的默认字符串为上【6】：
Private Sub Command l_Click （ ）
Input Box”ok”“输入参数”，Format(”GHl2”’
End Sub
[填空题]执行下列程序，输入框中显示的默认字符串为 【7】 。
Private Sub Command1_Click( )
InputBox "Ok" , "输入参数", Format(" &H12" )
End Sub
[填空题]执行下列程序，输入框中显示的默认字符串为 【7】 。
Private Sub Command1_Click( )
InputBox "Ok" , "输入参数", Format(" &H12" )
End Sub
[填空题]执行下列程序，输入框中显示的默认字符串为 【11】 ；
Pirate Sub Command 1_Click（ ）
InputBox"ok"，"输入参数"，Format("&H12")
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
[单项选择]下列程序的执行结果为
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( )
Tota1=0
Counter=1
Do
Print Counter
Tota1=tota1+Counter
Print total
Counter=Counter+1
If total>=10 Then
Exit Do
End lf
Loop While Counter＜=10
End Sub
A. 5
B. 10
C. 12 D。20
[单项选择]下列程序的执行结果为
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_C1ick( )
Dim sl As String，s2 AS String
s1="abcdef"
Call lnvert(s1，s2)
Print s2
End Sub
Private Sub lnvert(ByVal xstr As String，ystr As String)
Dim tempstr As Stdng
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 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
