计算机二级
单击命令按钮后，下列程序代码的执行结果是______。Public Sub fun (a As Integer, b As Integer, c As Integer)Doa=b+ cn=n+1Loop While n ＞ 3End SubPrivate Sub command1_ click()Dim m As Integer, n As Integer, i As IntegerFor i = 0 To 2: m = n + 1: Next iFor i = 1 To 2: Call fun (m,
题目
单击命令按钮后，下列程序代码的执行结果是______。
Public Sub fun (a As Integer, b As Integer, c As Integer)
Do
a=b+ c
n=n+1
Loop While n ＞ 3
End Sub
Private Sub command1_ click()
Dim m As Integer, n As Integer, i As Integer
For i = 0 To 2: m = n + 1: Next i
For i = 1 To 2: Call fun (m, n, i): Next i
For i = 0 To 3
Print m;
Next i
End Sub
相似问题和答案
第1题：
11、下面哪些定义是类型正确的？
A．f :: (Integer, Integer) -> Float f (x,y) = x / y
B．f :: (Integer, Integer) -> Float f (x,y) = (fromInteger x) / (fromInteger y)
C．f :: (Integer, Integer) -> Float f (x,y) = 3*x + y
D．f :: (Integer, Integer) -> Integer f (x, y) = 3*x + y
第2题：
8、下面哪些是将分数化为浮点数的正确定义？
A.type Fraction = (Integer, Integer) rateq :: Fraction -> Float rateq (a,b) = a/b###SXB###B.type Fraction = (Integer, Integer) rateq :: Fraction -> Float rateq (a,b) = (fromInteger a)/ (fromInteger b)###SXB###C.type Fraction = (Integer, Integer) rateq :: Fraction -> Float rateq (a,b) = fromInteger (a/b)###SXB###D.type Fraction = (Integer, Integer) rateq :: Fraction -> Float rateq (a,b) = (fromIntegral a)/ (fromIntegral b)###SXB###E.ty第3题：
阅读程序： Function F(a As-Integer) b=0 Static c b=b+1 c=c+1 F=a+b+c End Function Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Prim F(A)Next i End Sub 运行上面的程序，单击命令按钮，输出结果为 ______。
A．4 4 4
B．4 5 6
C．4 6 8
D．4 7 9
解析：Static语句：在过程级别中使用，用于声明变量并分配存储空间。在整个代码运行期间都能保留使用Static语句声明的变量的值。本题中变量c的值，调用一次函数F就加1。而变量a和变量c的值，在函数F中一直是2和1。
第4题：
单击一次命令按钮之后，下列程序代码的执行结果为______。 Private Sub Command1_ Click() a = fun(4) + fun(5) Print a; End Sub Public Function fun (n As Integer) Static Num For i = 1 To n Num = Num + i Next i fun = Num End Function
A．15
B．20
C．35
D．40
第5题：
在窗体上添加一个命令按钮，然后编写其单击事件过程为：
则单击命令按钮后消息框的输出结果是（ ）。
A. 7
B. 8
C. 9
D. 13
本题考查VBA中多重循环的知识。见到多重循环的问题不要害怕，认真地分析清楚每一次循环这种问题就迎刃而解了。比如这个例子，我们看到，在每一次外循环开始的时候都把x的值置为4，所以我们只分析最后～次循环就可以了；同理中层循环每一次开始前都把x置为3，所以这个问题最后实际上就是x的初值为3，执行最内层循环直到结束就可以了。根据程序内循环执行两次，最后x=3+5+5=13。
第6题：
在窗体上画—个命令按钮(名称为Command1)，并编写如下代码：Function Fun1 (ByVala As Integer, b As Integer)As Integer Dim t As Integer t=a-b b=t+ a Fun 1=t+ bEnd FunctionPrivate Sub Command1_ Click() Dim x As Integer x=10 Print Fun1(Fun1 (x,(Fun1(x，x-1))),x-1)End Sub程序运行后，单击命令按钮，输出结果是 ______。
A．10
B．0
C．11
D．21
解析：ByVal表示所声明的参数是按值传递的。因此参数值的变化只在被调用的函数或过程中有效，即只是形参的值有变化，而实参不受影响。ByRef表示所声明的参数是按地址传递的，形参值的变化都会反映在实参上。如果形参名前面缺省修饰词，默认为ByRef形式。
程序声名了一个拥有两个形参变量的函数Fun1()，形参变量a按值传递参数，变量b按地址传递参数。执行命令按钮Command1的Click事件后，三次调用函数Fun1()，程序执行的过程如下：
1、首先调用最里面一层的Fun1函数Fun1(x，x-1)，此时，a=10，b=9，t=10-9=1，b=t+ a=1+10=11，Fun1=t+ b=12，所以第一个Fun1返回值为12。
2、接着调用中间一层Fun1函数Fun1(x，(Fun1(x，x-1))，因为形参变量a按值传递参数，形参的变化并不影响实参，所以x的值仍为10，Fun1(x，x-1)得到的返回值为12，此时，a=10，b=12，t=10-12=-2，b=t+ a=-2+10=8，Fun1=-2+8=6，所以中间一层的Fun1返回值为6。
3、最后调用最外一层Fun1(Fun1(x，(Fun1(x，x-1)))，x-1)，Fun1(x，(Fun1(x，x-1)))的返回值为6，x-1=9，此时a=6，b=9，t=10-9=-3，b=t+ a=3+6=3，Fun1=3+3=0，所以最后的值为0。
第7题：
若要在图3-19窗口(窗体名为frm001)中新增一个命令按钮，单击该命令按钮后，图像框所显示的图像就会成为此窗口的背景图像。请写出该命令按钮单击事件过程内的程序代码。
若要在图3-19窗口(窗体名为frm001)中新增一个命令按钮，单击该命令按钮后，图像框所显示的图像就会成为此窗口的背景图像。该命令按钮单击事件过程的程序代码如下。 [程序代码] Private Sub Command1_Click() frm001.Picture=IMG nClick=over(this) title=放大Show.Picture End Sub [等价的程序代码] Private Sub Command1_Click() If Right(filFile.Path 1)="\" Then frm001.Picture=LoadPicture(filFile.Path+filFile.FileName) Else frm001.Picture=LoadPicture(filFile.path+"\"+filFile.FileName) End lf End Sub
第8题：
A.type Integer intfunc (a Integer) Add(b Integer) Integer { return a + b}
B.type Integer intfunc (a Integer) Add(b *Integer) Integer { return a + *b}
C.type Integer intfunc (a *Integer) Add(b Integer) Integer { return *a + b}
D.type Integer intfunc (a *Integer) Add(b *Integer) Integer { return *a + *b}
第9题：
A.1，2
B.2，1
C.1，1
D.2， 2