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

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

admin2012-03-22  61
问题 在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是(    )。
选项 A、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    Return 0    Else    Return 1    End If    End Funcfion   
B、Privae 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(Va(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 Funcfion  
D、Private Sub Command1_Click()    x=InputBox("请输入整数")    F1(Val(x))    Print a    End Sub    Function F1(ByrRef b As Integer)    If b Mod 2=0 Then    Return 0    Else    Return 1    End If    End Function
答案B
解析
转载请注明原文地址:https://www.kaotiyun.com/show/ILhp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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