计算机二级
在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command1_Click( ) Dim a As Integer，b As hiteger a=1 b=2 Print N(a，B)End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(x>y，x，y) End Function 程序运行后，单击命令按钮，输出结果为A．1B．2C．5D．8
题目
在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command1_Click( ) Dim a As Integer，b As hiteger a=1 b=2 Print N(a，B)End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(x>y，x，y) End Function 程序运行后，单击命令按钮，输出结果为
A．1
B．2
C．5
D．8
相似问题和答案
第1题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub subl(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z=x*x+y*y End Sub Private Sub Command1_Click() Dim a As Integer a=8 Call subl(1, 2,a) Print a End Sub 程序运行后，单击命令按钮，则窗体下显示的内容是______。
A．8
B．2
C．5
D．11
解析：因为Subl过程的形参都是传值传送，所以在其内的所有计算结果都不将返回，并不影响对应的实参值，变量a的值并没有改变，仍然是8。
第2题：
在窗体上画1个命令按钮，名称为Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(“请输入：”) If Flag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer If X＜10 Then Y=X Else Y=X＋10 End If f=Y End Function Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X as Single,Y As Single) Flag=True End Sub 运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为______。
A．0
B．5
C．15
D．无任何输出
解析：单击窗体在释放鼠标时，将会触发Form_MouseUp事件，将Flag值置True，从而允许输出。在Command1的Click事件中，通过输入框输入5，并在窗体上输出f(5)，函数f的作用是，如果自变量x10，则直接返回 x，否则返回x＋10。故本题应输出5。
第3题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（）
Dim m As Integer, n As Integer, p As Integer
m=3: n=5: p=0
Call Y（m, n, p）
Print Str（p）
End Sub
Sub Y（ByVal i As Integer, ByVal j As Integer, k As Integer）
k=i + j
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A．4
B．6
C．8
D．10
第4题：
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下程序：
Function a(x As Integer, y As Integer) As Integer
a = IIf(x ＞ y, x, y)
End Function
Private Sub Command1_Click()
Dim n As Integer, m As Integer
n = 10
m = 20
Print a(n, m)
End Sub
程序运行后，单击命令按钮，输出结果是______。
20
第5题：
在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command4 Click() Dim a As Integer，b As Integer a=1 b=2 Print N(a，B)End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(x＞y，x，y) End Function 程序运行后，单击命令按钮，输出结果为
A．l
B．2
C．5
D．8
解析：事件过程N的作用是输出两个数中最大的，它调用了IIF函数，条件部分是(x＞y)，如果满足，那么N的值即为x的值，否则为y的值。在Sub过程中，定义了两个变量a，b，并赋给它们初值1，2，并调用Print函数，输出N(a，B)的值，因为xy，所以输出y=2。
第6题：
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As String, c As Integer a=1234: b=Str(a)c=Len(b)Print c End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。
A．0
B．5
C．6
D．7
解析：当一数字用函数Str(数字)转成字符串时，总会在前头保留一空位来表示正负。如果数字为正，返回的字符串包含一前导空格暗示有一正号。
第7题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim Y as String
X=5
Y=X & Space(3) & X
Print X；
Print Trim(Y)；Len(Trim(Y))
End Sub
该程序的执行结果是【 】。
□5□5□□□5□5
第8题：
在窗体上画一个命令按钮，然后编写如下程序： Sub S1(ByVal x As Integer,ByVal y As Integer) Dim t As Integer t=x x=y y=t End Sub Private Sub Command1_Click() Dim a As Integer,b As Integer a=10 b=30 S1 a，b Print"a="；a；"b="；b End Sub 程序运行后，单击命令按钮，输出结果是 ______。
A．a=30 b=10
B．a=30 b=30
C．a=10 b=30
D．a=10 b=10
解析：过程S1似乎是要将两个变量的值进行交换，但由于参数是用传值的方式来传递变量值的，所以执行完该过程后，a和b的值并未被交换，保持原来的值不变。
第9题：
在窗体上添加一个命令按钮(名为Command1)，然后编写如下程序：
Private Sub Command1_Click()
Dim a As Integer,b As Integer
x=10
y=20
End Sub
打开窗体运行后，单击命令按钮，消息框的输出结果为( )。
20 解析： 本题考查IIf函数的知识。对于IIf函数可用于执行简单的条件判断操作，当第一个参数为真时返回第二个参数值，否则返回第三个参数值。因为x＞y为假，所以返回y的值也就是返回20。
第10题：
在窗体上画一个命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As integer b = 1 For a = 1 To 100 If b ＞＝ 10 Then Exit For If b Mod 3 = 1 Then b = b + 3 End If Next a Print a End Sub 在命令按钮上单击后，窗体上显示的结果是 ______。
A．101
B．6
C．5
D．4
解析：事件发生时给变量b赋值1，然后执行For循环。先给a赋初值1，判断If后面的条件“b＞=10”为False，接着执行If语句，判断“b Mod 3=1”为“True”，执行语句“b=b+3”，第一次循环结束后，b=4，a=2。第二次循环结束后，b=7，a=3。第三次循环后，b=10， a=4。接着执行第四个循环，判断If后面的条件“b＞=10”为True，退出循环，a的输出值为4。