超星 - 过程测验

单选题

在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件程序： Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun = 2 Else fun = 1 End If End Function Private Sub Command1_Click() Dim i As Integer,s As Integer s = 0 For i = 1 To 5 s = s + fun(i) Next Print s End Sub 程序运行后，第一次单击命令按钮时，x的结果为( )。

A. 5
B. 7
C. 11
D. 9

查看答案

单选题

要想从子过程调用后返回两个结果，下面子过程说明语句合法的是( )。

A. Sub f1(ByVal n%, m%)
B. Sub f1(n%, m%)
C. Sub f1(n%, ByVal m%)
D. Sub f2(ByVal n%, ByVal m%)

查看答案

单选题

在定义通用过程时，下列关键字中不能用来修饰形参的是（）。

A. Static
ByVal
C. Optional
D. ByRef

查看答案

单选题

以下语句中正确的是（）。

A. Private Sub PPP(str1 as String * 8)
B. Private Sub PPP(a() As Integer)
C. Public Sub PPP(a(n) As Integer)
Dim a As Integer Private Sub a(n As Integer)

查看答案

单选题

设有如下程序： Option Base 1 Private Sub Form_Click() Dim a(5) As String, i As Integer For i = 1 To 5 a(i) = Chr(Asc("A") + i) Call f(a, i) Next i End Sub Sub f(ta() As String, n As Integer) Dim i As Integer For i = 1 To n Print ta(i); Next i Print End Sub 对上述程序，以下叙述中正确的是（）。

A. 程序可正常运行，输出内容的第一行是数字65
B. 程序可正常运行，输出内容的第二行是字符串“AB”
C. 程序可正常运行，输出内容的第二行是字符串“BC”
D. 程序有错，因为在过程f的定义中数组参数格式不正确

查看答案

单选题

运行程序，单击窗体后输出结果是（）。 Private Sub f(ByVal x%, ByRef y%) x = x + y y = y + x End Sub Private Sub Form_Click() Dim x%, y% x = 8: y = 4 Call f(x, y) Print x; y End Sub

A. 8 16
B. 12 20
C. 8 4
D. 12 16

查看答案

单选题

窗体上画一个名称为Picture1的图片框，一个名称为Label1的标签控件，然后编写如下程序： Public Sub display(x As Control) If TypeOf x Is Label Then x.Caption = "Visual Basic" Else x.Picture = LoadPicture("pic.jpg") End If End Sub Private Sub Label1_Click() Call display(Label1) End Sub Private Sub Picture1_Click() Call display(Picture1) End Sub 对以上程序，下列叙述中错误的是（）。

A. 程序运行时会出错
B. 过程中的x是控件变量
C. 单击标签，在标签中显示一串文字
D. 单击图片框，在图片框中显示一幅图片

查看答案

单选题

有一子程序定义为Public Sub p(a As Integer, b As Integer)，正确的调用语句是（）。

A. sub 2, 3.5
B. Call p 2, 3.5
C. p 2, 3.5
D. Call sub(2, 3.5)

查看答案

单选题

运行程序，单击窗体后输出结果是（）。 Sub test(x%, y%, z%) x = 7: y = 5: z = 9 End Sub Private Sub Form_Click() Dim a%, b% a = 3: b = 8 Call test(a - 1, a, (b)) Print a; b End Sub

A. 3 8
B. 5 8
C. 6 8
D. 5 9

查看答案

单选题

设窗体上有一个Command1命令按钮，还有以下程序代码： Private Sub Command1_Click（） Static x As Integer x = x + 1 Call proc（x） Print x， End Sub Private Sub proc（a As Integer） Static x As Integer x = x + a a = x End Sub 程序运行后，3次单击命令按钮，则产生的输出结果是（）

A. 1 2 3
B. 1 3 7
C. 2 4 6
D. 1 3 5

查看答案

要想从子过程调用后返回两个结果，下面子过程说明语句合法的是( )。

在定义通用过程时，下列关键字中不能用来修饰形参的是（ ）。

以下语句中正确的是（ ）。

运行程序，单击窗体后输出结果是（ ）。 Private Sub f(ByVal x%, ByRef y%) x = x + y y = y + x End Sub Private Sub Form_Click() Dim x%, y% x = 8: y = 4 Call f(x, y) Print x; y End Sub

有一子程序定义为Public Sub p(a As Integer, b As Integer)，正确的调用语句是（ ）。

运行程序，单击窗体后输出结果是（ ）。 Sub test(x%, y%, z%) x = 7: y = 5: z = 9 End Sub Private Sub Form_Click() Dim a%, b% a = 3: b = 8 Call test(a - 1, a, (b)) Print a; b End Sub

在定义通用过程时，下列关键字中不能用来修饰形参的是（）。

以下语句中正确的是（）。

运行程序，单击窗体后输出结果是（）。 Private Sub f(ByVal x%, ByRef y%) x = x + y y = y + x End Sub Private Sub Form_Click() Dim x%, y% x = 8: y = 4 Call f(x, y) Print x; y End Sub

有一子程序定义为Public Sub p(a As Integer, b As Integer)，正确的调用语句是（）。

运行程序，单击窗体后输出结果是（）。 Sub test(x%, y%, z%) x = 7: y = 5: z = 9 End Sub Private Sub Form_Click() Dim a%, b% a = 3: b = 8 Call test(a - 1, a, (b)) Print a; b End Sub