更多"下面程序运行后，窗体中显示______。
Private Sub "的相关试题:
[填空题]下面程序运行后，窗体中显示 【14】 。
Private Sub Command1_Click) ( )
aS ="*" :b$ ="$"
For k = 1 To 3
x$ =Strings (Len(a$) +k,b$ )
Print x $;
Next
Print
End 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. 德艺优秀
[填空题]下列程序运行后，在窗体上打印的结果是 【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 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 Sub test(a， b， c)
a = a + 1: b = b + 2: c = c + 3
End Sub
Private Sub Command1_Click( )
x = 1: y = 2: z = 3
Call test(x， y + 3， (z))
Print "Main:"; x; y; z
End Sub
