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

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

admin2009-01-15  39
问题 在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是
选项 A、Private Sub Command1_Click( )      x=Input Box("请输入整数")         a=F1(Val(x))        Print a           End Sub             Function Fl(ByRef b As Integer)          If b Mod2=0 Then            Return0            Else           Return 1          End lf      
B、Private Sub Command1_Click(  )          x=Input Box(“请输入整数”)          a=Fl(Val(x))            Print a            End Sub            Function Fl(ByRef b As Integer)             lf b Mod 2=0 Then              Fl=0             Else              Fl=1              End lf             End Function
C、Private　Sub Command1  Click()              x= Input Box(“请输入整数”)             F1(Val(x))                        Print a               Enb Sub             Function Fl(ByRef b As Integer)              If b Mod2=0 Then                       Fl=1                        Else               Fl=0               End lf                 End Function
D、Private Sub Command1_Click(   )             x=Input Box(“请输入整数”)              F1(Val(x))              Print a                 End Sub                Function Fl(ByRef b As Integer)                lf b Mod2=0 Then                Return 0                  E
答案2
解析 B项是正确选项，"Mod"表示取模，当b可以被2整除时，F1返回0，表示b为偶数时，F1返回0。这与题目要表达的意思一致。A、D项使用Return关键字是错误的，它不能把相应的数值赋给F1。C项的功能与题目要实现的功能恰好相反，表示输入的数值为偶数时，F1返回1，故不正确。
转载请注明原文地址:https://jikaoti.com/ti/nQ80FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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