计算机二级
运行下列程序：Private Sub Form_Click( )a$ = 2b$ = 1Call abcd(a, b, c$, d$)Print c; dEnd SubPrivate Sub abcd(x$, y$, z$, s$)z = x + ys = x - yEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.3 1B.1 3C.211D.显示出错信息
题目
运行下列程序：
Private Sub Form_Click( )
a$ = 2
b$ = 1
Call abcd(a, b, c$, d$)
Print c; d
End Sub
Private Sub abcd(x$, y$, z$, s$)
z = x + y
s = x - y
End Sub
单击窗体后，则在窗体上显示的结果是( )。
A.3 1
B.1 3
C.211
D.显示出错信息
相似问题和答案
第1题：
下列程序，当单击窗体时s的值是( )
Private Sub Form_Click()
s = 11 \ 3 + 11 Mod 3
Print s
End Sub
A.3
B.4
C.5
D.6
第2题：
下面程序执行的结果是( )。 Private Sub Form_Click() AS="123"：B$="456" C=Val(A$)+Val(B$) Print C\100 End Sub
A．123
B．3
C．5
D．579
第3题：
执行下列程序后，鼠标单击窗体，输出结果为 。
Private Sub Form_Click（）
Print "Click";
End Sub
Private Sub Form_MouseDown（Button As Integer, Shift _
As Integer, X As Single, Y As Single）
Print "Donw"
End Sub
Private Sub Form_MouseUp（Button As Integer, Shift _
As Integer, X As Single, Y As Single）
Print " Up"
End Sub（ ）。
A．DownUpClick
B．ClickDownUp
C．DownClickUp
D．UpDownClick
第4题：
有如下程序： Private Sub Form_Click() Dim i As Integer，Sum As Integer Sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then Sum=Sum+i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为
A．12
B．30
C．24
D．18
第5题：
（ 8 ）有如下程序：
Private Sub Form_Click （）
n=10
i=0
Do
i=i+n
n=n-2
Loop While n>2
Print i
End Sub
程序运行后，单击窗体，输出结果为 【 10 】 。
第6题：
下列程序，当单击窗体时s的值是( )
Private Sub Form_Click()
Dim s As Integer
s = Not 2 * 5<>11
Print s
End Sub
A. True
B. False
C.1
D.0
第7题：
下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Const a=6 Dim x (a) As Integer For I=1 to a x(i)=1^2 Next I Print x(i) End Sub
A．36
B．25
C．1
D．出错信息
第8题：
设有如下程序：
Private Sub Form_Click（）
Dim n As Integer, s As Integer
n = 8
s = 0
Do
s = s + n
n = n - 1
Loop While n > 0
Print s
End Sub
以上程序的功能是______。程序运行后，单击窗体，输出结果为______。
求1-8的和 36
第9题：
有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是( )。
A．Private Sub Form_Click() PopupMenu cut End Sub
B．Private Sub Command1_Click() PopupMenu edit End Sub
C．Private Sub Form_Click() PopupMenu edit End Sub
D．Private Sub Form_Click() PopupMenu cut End Sub
解析：PopupMenu方法用来显示弹出式菜单，其格式为：[对象．]。PopupMenu菜单名[，Flags] [，X，Y，][BoldCommand]。根据题意，为了显示菜单，所以要把PopupMenu方法放到Form. Click事件中，菜单名为edit，所以选c。
第10题：
（10）在窗体上画一个文本框和一个图片框，然后编写下列两个事件过程： Private Sub Form_Click() Text1.Text="VB Programming" End Sub Private Sub Text1_Change() Picture1.Print"VB程序设计" End Sub 程序运行后，单击窗体，则在文本框中显示的内容是，而在图片框中显示的内容是 。
【解析】单击窗体触发Form的Click事件，执行“Text1.Text="VB Programming"”语句，在文本框Text1中显示“VB Programming”；此时文本框Text1的Text属性发生了变化，因此触发Text1的Change事件，执行“Picture1.Print"VB程序设计"”语句，在图片框中显示“VB程序设计”。