1、选择题:假定有如下的Sub过程：Sub fun(x As Single, y As Single) t = x x = t / y y = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim a As Single Dim b As Single a = 6 b = 4 fun a, b Print a, bEnd Sub程序运行后，单击命令按钮，输出结果为（ ）。
选项：
A:5 4
B:1 1
C:1.25 4
D:1.5 2
2、选择题:假定有以下函数过程：Function Fun(s As String) As String Dim s1 As String For i = 1 To Len(s) s1 = UCase(Mid(s, i, 1)) + s1 Next i Fun = s1End Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim Str1 As String Dim Str2 As String Str1 = InputBox
选项：
A:Abcdefg
B:ABCDEFG
C:gfedcba
D:GFEDCBA
3、选择题:有如下函数过程：Function secproc(x As Integer, y As Integer, z As Integer) secproc = 3 y + z + 2 xEnd Function Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 2: b = 3: c = 4 Print secproc(c, b, a)End Sub该程序的运行结果是（ ）。
选项：
A:17
B:18
C:19
D:20
4、选择题:有如下函数过程：Function Cys(ByVal x As Integer, ByVal y As Integer) As Integer Dim quotients Do While y <> 0 quotients = x / y x = y y = quotients Loop Cys = xEnd Function以下是调用该函数的事件过程，该程序的运行结果是（ ）。Private Sub Command1_Click() Dim a As Integer Dim b As
选项：
A:0
B:25
C:5
D:100
5、选择题:以下是一个能返回数组a中最大数的函数过程代码： Function maxval(a() As Integer) As Integer Dim max% max = 1 For i = 2 To 10 If a(i) > a(max) Then max = i Next i maxval = max End Function Private Sub Command1_Click() Dim x(1 To 10) As Integer For i = 1 To 10 x(i) = Int(R
选项：
A:语句“max = 1”应改为“max = a(1)”
B:语句“For i = 2 To 10”应改为“For i = 1 To 10”
C:If语句“max = i”应改为“max = a(i)”
D:语句“maxval = max ”应改为“maxval = a(max)”
6、选择题: 在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：Function Fun1(ByVal a As Integer, b As Integer) As Integer Dim t As Integer t = a �C b b = t + a Fun1 = t + bEnd Function Private Sub Command1_Click() Dim x As Integer x = 10 Print Fun1(Fun1(x, (Fun1(x, x �C 1)))
选项：
A: 10
B: 0
C: 11
D: 21
7、选择题:下面程序的运行结果为（ ）。Dim a%, b%, c%Sub p1(x%, y%) Dim c As Integer x = 2 x: y = y + 2: c = x + yEnd SubSub p2(x%, ByVal y%) Dim c As Integer x = 2 * x: y = y + 2: c = x + yEnd SubPrivate Sub Command1_Click() a = 2: b = 4: c = 6 Call p1(a, b) Call p2(a,
选项：
A: 4 6 6
B: 8 6 6
C: 4 6 10
D: 8 8 6
8、选择题:下面程序：Function a(x) Static b As Integer b = b + x ^ 2 Print bEnd Function Private Sub Command1_Click() Dim c% c = a(2)End Sub单击两次命令按钮，第二次显示的结果是（ ）。
选项：
A: 2
B: 4
C: 6
D: 8
9、选择题:下列叙述中正确的是（ ）。
选项：
A:在窗体的Form_Load事件中定义的变量是全局变量
B:局部变量的作用域可以超出所定义的过程
C:在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程
D:在调用过程时，所有局部变量被系统初始化为0或空字符串
10、选择题:若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便地调用Sort子过程，应将该过程放在 （ ）中。
选项：
A:窗体模块
B:标准模块
C:类模块
D:工程
