更多"以下程序运行后的输出结果是 【11】 。 Private Sub F"的相关试题:
[填空题]以下程序运行后的输出结果是 【11】 。
Private Sub Form _ Click（ ）
i=10 ：j=0
Do
j=j+1
i=i-1
Loop while i＞2
Print j；
End Sub
[单项选择]程序运行后，单击窗体，屏幕显示的结果是( )。
Private Sub Form_Click（ ）
num1="乙"
num2=76
Select Case numl
Case"甲"
If num2＞=80 Then
Print"德艺优秀"
Else If num2＞=60 Then
Print"德优秀，艺普通"
End If
Case"乙"
If num2>=80 Then
Print"德艺双佳"
Elselfnum2>=60 Then
Print"德艺普通"
End If
End Select
End Sub
A. 德艺双佳
B. 德艺普通
C. 德优秀，艺普通
D. 德艺优秀
[单项选择]以下程序运行后，单击按钮输出结果是
Private Sub Commandl_Click( )
Dim x As Integer，y As Integer，z As Integer
X=4：y=2： Z=3
Call Gopd(x，x，z)
Print x；X；Z
Call Gopd(x，y，y)
Print x；y；y
End Sub
Private Sub Gopd(x As Integer，y As Integer，z As Integer)
X=3 * Z + 1
y=2 * z
z=x + y
End Sub
A. 6 6 12
B. 8 5 10
C. 9 6 12
D. 8 10 10
[填空题]下面程序的输出结果是 【15】 。
Private Sub Form_Click（ ）
i=0
Do Until 0
i=i+1
if i＞10 then Exit Do
Loop
Print i
End Sub
[单项选择]下面程序段，运行后的结果是
Private Sub Command1_Click（ ）
Dim b%(1 To 4)，i%，t#
For i=1 To 4
b(i) =i
Next
t=Tof(b（ ） )
Print"t="；t，
End Sub
Function Tof(a（ ） As Integer)
Dim t#,i%
t=1
For i=2 To UBound(
[单项选择]下面程序段，运行后的结果是 Private Sub Command1_Click（ ） Dim b%(1 To 4) ,i%, t# For i = 1 To 4 b(i) =i Next t =Tof(b（ ） ) Print "t ="; t, End Sub Function Tof(a（ ） As Integer) Dim t#, i% t=1 For i =2 To UBound(a) t=t * a(i) Next Tof = t End Function
A. t=18
B. t=24
C. t=30
D. t=32
[填空题]下列程序的运行机结果是 【15】 。
Private Sub Form_ Click（ ）
Dim k As Integer
n= 5
m= 1
k= 1
Do
m=m+2
k= k+1
Loop While k＜=n
Print m
End Sub
[单项选择]下面程序运行后输出是 ______。
Private Sub Form_Click（ ）
for i=1 to 4
x=1
for i=1 to 3
x=3
for k=1 to 2
x=x+6
next k
next j
next i
print x
End Sub
A. 7
B. 15
C. 157
D. 538
[填空题]下面程序的输出结果是 【15】 。
Private Sub Form_Click（ ）
i=0
Do Until 0
i=i+1
if i＞10 then Exit Do
Loop
Print i
End Sub
[单项选择]设有以下程序：
Private Sub Form_Click（ ）
x =50
For i = 1 To 4
y = InputBox( "请输入一个整数" )
y = Val(y)
lf y Mod 5 = 0 Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为( )。
A. 100
B. 50
C. 120
D. 70
[填空题]阅读以下程序：
Private Sub Form_click（ ）
Dim k, n, m As integer
n = 20
m = 1
k = 1
Do While k ＜= n
m=m+2
k = k + 1
Loop
Print m
End Sub
单击窗体程序的执行结果是 【4】 。
[单项选择]下面程序执行时，输出的结果是( )。
Private Sub Form_Click（ ）
DimiASInteger,j As Integer
i=10
Do
i=i+j
forj=10 toistep-3
i=i+j
nextj
Loop Whilei＜50
Printi;j
End Sub
A. 50 10
B. 50 9
C. 57 10
D. 59 9
[单项选择]下面程序段，运行后的结果是（ ）。
Private Sub Commandl_Click( )
Dim b%(1 To 4)，i%，t#
For i=1 To 4
b(i)=i
Next i
t=Tof(b( ) )
Print"t="；t，
End Sub
Function Tof(a（ ） As Integer)
Dim t#，i%
t=1
For i=2 To UBound(a)
t=t * a(i)
Next i
Tof=t
End Function
A. t=18
B. t=24
C. t=30
D. t=32
[填空题]执行下面的程序，消息框里显示的结果是 【13】 。
Private Sub Form Click（ ）
Dim Str As String，K As Integer
Str="ab"
For k=Len(Str) To 1 Step -1
Str=Str & Chr(Asc(Mid(Str，k，1))+k)
Next k
MsgBox Str
End Sub
[填空题]阅读以下程序：
Private Sub Form_click（ ）
Dim k, n, m As integer
n = 20
m = 1
k = 1
Do While k ＜= n
m=m+2
k = k + 1
Loop
Print m
End Sub
单击窗体程序的执行结果是 【4】 。
