更多"下面程序运行后，窗体中显示 【14】 。 Private Sub "的相关试题:
[填空题]下面程序运行后，窗体中显示______。
Private Sub Command1_Click) （ ）
a$="*":b$="$"
For k=1 To 3
x$=String$(Len(a$) +k，b$)
Print x$；
Next
Print
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 Form_Click（ ）
a=1
i=1
Do Until i＞10
a=a+2
i=i+3
Loop
MsgBox a
End Sub
[填空题]某个窗体己编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为
Private Sub Form_Click（ ）
a＝1
i＝1
Do Until i＞10
a＝a+2
i＝i+3
Loop
MsgBox a
End Sub
[填空题]下列程序运行后，在窗体上打印的结果是 【14】 。
Private Sub test(a， b，c)
a = a + 1： b = b + 2：C = C + 3
End Sub
Private Sub Command1 Click（ ）
x = 1：v = 2：z = 3
Call test(x，y + 3， (z))
Print "Main:"；x；y；z
End Sub
[单项选择]下列程序运行后，单击命令按钮，窗体显示的结果为( )。 Private Function pl(x As Integer,y As Integer,z As Integer) pl=2*x+y+3*z End Function Private Function p2(X As Integer,y As Integer,z As Integer) p2=p1(z,y,x)+x End Function Private Sub Commandl_Click（ ） Dim a As Integer Dim b As Integer Dim c As Integer a=2:b=3:c=4 Print p2(c,b,a) End Sub
A. 23
B. 19
C. 21
D. 22
[单项选择]以下程序运行后，单击命令按钮，窗体显示的结果是 ______。
Private Function p1(x As Integer，y As Integel，z As Integer)
p1=2*x+y+3*z
End Function
Private Function p2(x As Integer，y As Integer，z As Integer)
p2=p1(2，y，x)+x
End Function
Private SubCommandl_Click（ ）
Dim a As Integer
Dim b As Integer
Dim c As Integer
a=2:b=3:c=4
Print p2(c，b，
A. 21
B. 22
C. 23
[单项选择]下面程序段，运行后的结果是
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 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(
[单项选择]下面程序运行后的结果是( )。
Private Sub Form_Click（ ）
Dim s As Integer，k As Integer,i As Integer，n As Integer
s=1
fori=1 to 3
forj=i to 3
for k=j to istep-1
s=s*k
nextk,J,i
print s
End Sub
A. 6
B. 72
C. 144
D. 432
[单项选择]下面程序段，运行后的结果是（ ）。
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
