2. 计算机
  3. 在窗体上画一个命令按钮，命名为CommandI。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。 能够正

在窗体上画一个命令按钮，命名为CommandI。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。 能够正

admin2010-03-30  78
问题 在窗体上画一个命令按钮，命名为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
答案2
解析 本题综合考查了InputBox函数、块结构条件语句、Function函数过程等多个知识点。B项是正确选项，“Mod”表示取模，当b可以被2整除时，F1返回0，表示b为偶数时，F1返回0。这与题目要表达的意思一致。A、D项使用的Return关键字是错误的，它不能把相应的数值赋给 F1。C项的功能与题目要实现的功能恰好相反，表示输入的数值为偶数时，F1返回1，故不正确。
转载请注明原文地址:https://kaotiyun.com/show/32mp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)