超星 - 过程测验

单选题

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

A. 25 10
B. 15 10
C. 25 35
D. 15 35

单选题

设程序中有如下数组定义和过程调用语句： Dim a(10) As Integer …… Call p(a) 以下过程定义中，正确的是（）。

A. Private Sub p(a(10) As Integer)
B. Private Sub p(a As Integer)
C. Private Sub p(a(n) As Integer)
D. Private Sub p(a() As Integer)

查看答案

单选题

有如下的Sub子过程定义： Sub P(a%, b%) … End Sub 下面调用该过程正确的语句是（）。

A. P(10,20)
B. Call P 10,20
Call P
D. P 10,20

查看答案

单选题

在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： Public Sub S(x As Integer, y As Integer) Static z As Integer y = x * x + z z = y End Sub Private Sub Command1_Click() Dim i As Integer, y As Integer m = 0: y = 0 For i = 1 To 3 S i, y m = m + y Next Print m End Sub 程序运行后，单击命令按钮，在窗体上输出的内容是（）。

A. 7
B. 14
C. 50
D. 20

查看答案

单选题

运行程序，单击命令按钮Command1后窗体上输出结果为（）。 Public Sub Fun(a(), ByVal x%) For i = 1 To 5 x = x + a(i) Next End Sub Private Sub Command1_Click() Dim arr(5), n% For i = 1 To 5 arr(i) = i Next n = 15 Call Fun(arr(), n) Print n End Sub

A. 20
B. 25
C. 15
D. 30

查看答案

单选题

在窗体上画一个名称为Command1的命令按钮，编写以下程序： Private Sub Command1_Click() Dim n As Integer n = 2 sub1 n End Sub Private Sub sub1(x As Integer) x = x * 2 + 1 If x < 10 Then sub1 (x) End If x = x * 2 + 1 Print x, End Sub 程序运行后，单击该命令按钮，窗体上显示的是（）。

A. 23 47
B. 47
C. 23 11
D. 11

查看答案

单选题

运行程序，单击窗体后输出结果是（）。 Public Sub swap(x As Integer, y As Integer) t = x: x = y: y = t End Sub Private Sub Form_Click() Dim m As Integer, n As Integer m = 10: n = 30 swap (m), (n) Print m; n End Sub

A. 30 10
B. 10 10
C. 30 30
D. 10 30

查看答案

单选题

一个工程中含有窗体Form1、Form2和标准模块Module1，如果在Form1中有语句Public X As Integer，在Module1中有语句Public Y As Integer，则以下叙述中正确的是________。

A. 在Form2中可以直接引用X和Y
B. 在Form1中可以直接引用Y
C. 变量X、Y的作用域不同
D. Y的作用域是Module1

查看答案

单选题

在一个过程中定义的变量，若希望该过程外还能保存过程中局部变量的值，则应使用关键字________在过程中定义过程级变量。

A. Static
B. Public
C. Private
Dim

查看答案

单选题

一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为mdlFunc的标准模块，在Form1、Form2和mdlFunc中分别建立了自定义过程。 Form1中定义的过程： Private Sub frmFunction1（） … End Sub Form2中定义的过程： Public Sub frmFunction2（） … End Sub 标准模块mdlFunc中定义的过程： Public Sub mdlFunction（） … End Sub 在调用上述过程的程序中，以下叙述中正确的是________。

A. 上述3个过程都可以在工程的任何窗体或模块中被调用
B. 上述3个过程都只能在各自被定义的模块中调用
C. 只有mdlFunction过程能够被工程中的各个窗体或模块调用
D. frmFunction2和mdlFunction过程能够在工程的各个窗体或模块中被调用

查看答案

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

设程序中有如下数组定义和过程调用语句： Dim a(10) As Integer …… Call p(a) 以下过程定义中，正确的是（ ）。

有如下的Sub子过程定义： Sub P(a%, b%) … End Sub 下面调用该过程正确的语句是（ ）。

运行程序，单击命令按钮Command1后窗体上输出结果为（ ）。 Public Sub Fun(a(), ByVal x%) For i = 1 To 5 x = x + a(i) Next End Sub Private Sub Command1_Click() Dim arr(5), n% For i = 1 To 5 arr(i) = i Next n = 15 Call Fun(arr(), n) Print n End Sub

运行程序，单击窗体后输出结果是（ ）。 Public Sub swap(x As Integer, y As Integer) t = x: x = y: y = t End Sub Private Sub Form_Click() Dim m As Integer, n As Integer m = 10: n = 30 swap (m), (n) Print m; n End Sub

一个工程中含有窗体Form1、Form2和标准模块Module1，如果在Form1中有语句Public X As Integer，在Module1中有语句Public Y As Integer，则以下叙述中正确的是________。

在一个过程中定义的变量，若希望该过程外还能保存过程中局部变量的值，则应使用关键字________在过程中定义过程级变量。

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

设程序中有如下数组定义和过程调用语句： Dim a(10) As Integer …… Call p(a) 以下过程定义中，正确的是（）。

有如下的Sub子过程定义： Sub P(a%, b%) … End Sub 下面调用该过程正确的语句是（）。

运行程序，单击命令按钮Command1后窗体上输出结果为（）。 Public Sub Fun(a(), ByVal x%) For i = 1 To 5 x = x + a(i) Next End Sub Private Sub Command1_Click() Dim arr(5), n% For i = 1 To 5 arr(i) = i Next n = 15 Call Fun(arr(), n) Print n End Sub

运行程序，单击窗体后输出结果是（）。 Public Sub swap(x As Integer, y As Integer) t = x: x = y: y = t End Sub Private Sub Form_Click() Dim m As Integer, n As Integer m = 10: n = 30 swap (m), (n) Print m; n End Sub