计算机二级
在窗体上画一个命令按钮，命名为CommandI。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。 能够正确实现上述功能的代码是A．Privme Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod
题目
在窗体上画一个命令按钮，命名为CommandI。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。 能够正确实现上述功能的代码是
A．Privme Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
B．Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function
C．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function
D．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1 (Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
参考答案和解析
解析：本题综合考查了InputBox函数、块结构条件语句、Function函数过程等多个知识点。B项是正确选项，“Mod”表示取模，当b可以被2整除时，F1返回0，表示b为偶数时，F1返回0。这与题目要表达的意思一致。A、D项使用的Return关键字是错误的，它不能把相应的数值赋给 F1。C项的功能与题目要实现的功能恰好相反，表示输入的数值为偶数时，F1返回1，故不正确。
相似问题和答案
第1题：
在窗体上画一个命令按钮，然后编写如下程序：
Dim k As Long
k=1
Do While num
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
MsgBox r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为( )。
0
第2题：
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl—Click() x=InputBox(“请输入一个整数”) Print x+345 End Sub 程序运行后，单击命令按钮，在输入对话框中输入123，则在窗体上输出的内容为( )
A．123345
B．468
C．123
D．345
解析：InputBox函数返回的是字符串类型值，故x应为字符串类型。执行语句Print x+345时，x的类型自动转换为整型。相当于执行了123、345两数的和，故窗体上的输出内容为468。
第3题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click()
a= Val(InputBox(“请输入一个整数”))
b=Val(InputBox(“请输入一个整数”))
Print a+b
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入12和34，输出结果为 ______。
46 解析：考查InputBox函数的使用。InputBox函数返回的数据类型默认位字符串类型。Val(x)函数表示把变量x转换为数值。本题要求通过InputBox函数分别输入两个数据，并同时被转换为数值，再相加得到结果，其中a值为12，b值为34，结果为a+b=46。
第4题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A．
B．H
C．
D．
【解析】分析程序，程序开始循环时i=1，j=1to1，PrintSUing(i，“Hello”)语句输出一个H，然后执行Print进行换行；当i=2时，j=1to2，PrintString(i，“Hello”)语句输出两行分别为两个HH，然后执行Print换行：当i=3时，退出循环。
第5题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：
程序运行后，如果单击命令按钮，则在面体上显示的内容是（ ）。
A) 【解析】本题考查循环嵌套程序分析。外层循环共执行2次，第一次执行外循环，内层循环变量为1到1，执行一次；第二次执行外循环，内层循环变量为1到2，执行2次。String 函数产生i个“Hello”中的第一个字符H。
第6题：
在窗体上画一个命令按钮，然后编写如下事件过程。该程序运行后，单击命令按钮，在输入对话框中分别输入321和456，则输出结果为【 】。
Private Sub Command1_Click()
a=InputBox("请输入一个整数")
b=InputBox("请再输入一个整数")
Print a+b
End Sub
321456 解析：由于Visual Basic中的InputBox函数的返回值是字符串，那么a和b分别为字符串321和456，所以a+b就只能将两个字符串连接为321456，而不是可能想要得到的321和456的和777。
第7题：
在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果是（ ）。
A. 输出0
B. 输出25
C. 输出45
D. 无任何输出
D) 【解析】本题考查VB程序的执行特点。程序执行时，布尔型变量SW默认为False，单击命令按钮后弹出对话
框，在该对话框中输入25之后，始终没有在窗体上单击鼠标，因而没有改变SW的值，所以没有进行fun函数过程的调用，也就无
任何输出。
第8题：
在窗体上画一个名称为Cl的命令按钮，然后编写如下事件过程：
程序运行后单击命令按钮，如果输入4，则在窗体上显示的内容是（ ）。
A)5
B)6
C)9
D)10
本题考查VBA程序设计中的循环知识。在本题的程序中，每次循环a都会加1，所以关键问题就是循环共执行多少次。我们已知外循环共执行4次，每次外循环中内循环都执行i次，则内循环共执行的次数为1234=10次。
第9题：
在窗体上画一个命令按钮，然后编写如下时间过程（ ）。
程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是
A. 579
B. 123
C. 456
D. 123456
D) 【解析】InputBox函数返回的是字符串格式的用户输入的数据，因此本题中，最后变a和变量b中存储的是字符串’456’和’123’，因此表达式b+a，就是将这两个字符串连接起来，称为字符串’123456’。
第10题：
在窗体上有一个命令按钮，然后编如下事件过程：
程序运行后，单击命令按钮，在输入对话框内输入-1，输出结果是 。
-1的平方根是一个虚数
【解析】在Sub过程中，定义了一个Double型变量N，并调用InputBox函数，给N赋值，即将从对话框中输入的-1赋给N；通过运算符”&”，将N与字符串”的平方根”连接起来并赋给Msg；在条件块语句中将N作为参数，调用SR事件过程，将Function过程的返回值作为测试表达式；在SR函数中，调用Sgn函数测试x的值为正数还是负数，如果是正数，那么就执行条件块语句中的SR=Sqr(x)，即将X的平方根作为返回值，如果x值为零，Sgn函数返回值为零，那么就将0作为返回值；如果为负数。Sgn函数返回值为-1，SR=-1，即将-1作为返回值；在Sub程序的条件块语句中，根据SR返回值的不同，执行不同操作，当返回值为0，将Msg字符串加”是0”，赋给Ms9，如果是-1，将Msg加”是一个虚数”赋给Msg，当为其他时，即在平方根时，将字符串Msg加”是”，再加上这个数的平方根赋给Msg，并用MsgBox函数输出。