更多"下列程序输出的结果为 【13】 。 Private Sub Comma"的相关试题:
[单项选择]以下程序的输出结果是( )。 Option Base 1 Private Sub Command1_Click（ ） Dim a(10),p(3) as Integer k=5 For I-1 to 10 a(i)=I Next I For j=1 to3 p(i)=a(I*j) Next j For I=l to 3 k=k+ p (I)*2 Next I Print k End Sub
A. 33
B. 28
C. 35
D. 37
[单项选择]下列程序的执行结果为 Private Sub Comrnandl_Click( ) Dim p As Integer, q As Integer p=12：q=20 Call Value(p, q) Print p; q 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 Form_Click（ ）
Dim k As Integer
n＝5
m＝1
k＝1
Do
m＝m+2
k＝k+1
Loop Until k＞n
Print m
End Sub
A. 1
B. 12
C. 11
D. 32
[填空题]下列程序输出的结果为 【13】 。
Private Sub Command1 Click
Dim a As Boolean
a=True
If a Then GoTo 11 Else GoTo 22
11:
Print"VC"
22:
Print"VC"
End Sub
[填空题]下列程序输出的结果为 【12】 。
Private Sub Commandl_Click( )
Dim a As Boolean
a = True
If a Then GoTo 11 Else GoTo 22
11:
Print "VB";
22:
Print "VC"
End Sub
[单项选择]下列程序的执行结果为 Private Sub Commandl_Click（ ） Dim s1 As String ,s2 As String s1= "abcd" Call Transfer(sl，s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String，ystr As String) Dim tempstr As String ystr=tempstr End Sub
A. dcba
B. abdc
C. abcd
D. dabc
[单项选择]下列程序的执行结果为
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
[填空题]下列程序输出的结果为 【13】 。
Private Sub Command1 Click
Dim a As Boolean
a=True
If a Then GoTo 11 Else GoTo 22
11:
Print"VC"
22:
Print"VC"
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. afbecd
C. fedcba
D. defabc
[填空题]下列程序的输出结果是 【16】
Private Sub Command1_Click（ ）
Dim a(1 To 20)
Dim i
For i=l To 20
a(i)=i
Next i
For Each i In a（ ）
a (i) =20
Next i
[单项选择]以下程序的输出结果是( )。
Option Base 1
Private Sub Command1 Click（ ）
Dim a(10)，p(3)as Integer
k=5
For I=1 to 10
a(i)=I
Next I
For j=1 to 3
p(i)=a(I*j)
Next j
For I=1 to 3
k=k+p(I)*2
Next I
Print k
End Sub
A. 33
B. 28
C. 35
D. 37
[单项选择]以下程序的输出结果是D) 9 12 Option Base 1 Private Sub Command1_Click（ ） Dim s(10)，p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next I For i=1 To 3 k=k+ p(i)*2 Next i Print k End sub
A. 33
B. 28
C. 35
D. 37
