[单项选择]程序运行后，单击窗体，屏幕显示的结果是( )。
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 S"的相关试题:

[单项选择]程序运行后，单击窗体，屏幕显示的结果是( )。 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

查看答案

[单项选择]以下程序运行后，单击命令按钮，窗体显示的结果是 ______。
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 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 　　 7 11 11
B. 8　5　10　　5 11 11
C. 9　6　12　　 9 10 15
D. 8　10　10　　5 9 10

查看答案

[单项选择]执行下面的程序，单击窗体后窗体消息框内显示结果是( )。 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
A. ABCE
B. ABCD
C. ABDB
D. ABFB

查看答案

[单项选择]单击按钮时，以下程序运行后的输出结果是
　Private Sub Commandl_Click( )
　　　Dim X As Integer，y As Integer，z As Integer
　　　x=1：y=2： Z=3
　　　Call God(x，x，z)
　　　Print x；x；z
　　　Call God(x，y，y)
　　　Print X；y；y
　End Sub
　Private Sub God(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

查看答案

[单项选择]下面程序运行后，单击命令按钮，输出的结果是
Private Sub Command1_Click( )
Dim a%(1 To 4) , b%(2 To 6) , i%, str1#, str2#
For i = 1 To 4
a(i) =i
Next
For i = 2 To 6
b(i) =i
Next
str 1 = YAG (

查看答案

[单项选择]以下程序运行后，单击按钮输出结果是( )。　　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

查看答案

我来回答:

提交