更多"程序执行结果s的值是 【14】 . Private Sub Com"的相关试题:
[填空题]程序执行结果S的值是 【11】 。
Private Sub Command1_Click( )
i=0
Do
i=i+1
s=i+s
Loop Until i>=4
Print s
End Sub
[填空题]程序执行结果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的值是 【14】 。
Private Sub Command1_Click( )
i=0
Do
s=i+s
i=i+1
Loop Until i>=4
End Sub
[单项选择]下列程序的执行结果为 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 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
[单项选择]下列程序的执行结果为 Private Sub Command1_Click( ) Dim FirStr As String FtrSt="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_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
[填空题]有如下程序,该程序的执行结果是 【6】 。
Private Sub Command1_lick( )
For i= 1 To 4
x= 4
For j =1 To 3
x =3
For k=1 To 2
X= K+5
Next k
Next j
Next i
Print x
End Sub
[填空题]有如下程序,该程序的执行结果是 【6】 。
Private Sub Command1 Click( )
For i=1 To 4
x=4
For j=1 To i
x =3
For k=1 To 2
x= x + 5
Next k
Next j
Next i
Print x
End Sub
[单项选择]下列程序的执行结果为
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