（单选题）
在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。对下面程序说法正确的是（） 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
A在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0
B在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回0，否则返回1
C在F1中判断所输入的整数是否是偶数，如果是偶数，过程F1返回1，否则返回0
D在F1中判断所输入的整数是否是偶数，如果是偶数，过程F1返回0，否则返回1
正确答案
答案解析
略
相似试题
（单选题）
在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Private Sub Command1_Click（） Static x As Integer Stati cy As Integer y=1 y=y+5 x=x+5 Printx；y End Sub 程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为（）
（填空题）
在窗体上画一个命令按钮（其Name属性为CommAnd1），然后编写如下代码： 程序运行后，单击命令按钮，输出结果是（）。
（填空题）
在窗体上画一个命令按钮，然后编写如下事件过程： 程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为（）。
（单选题）
在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下的事件过程： Private Sub Command1_Click（ ） s = 0 For i = 0 To 15 X = 2 * i - 1 If X Mod 3 = 0 Then s = s + 1 Next i Label1.Caption = s End Sub 程序运行后，单击命令按钮，则标签中显示的内容为（）
（单选题）
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） Dim c As Integer，n As Integer For c=0 To 50 c=c+3 n=n+1 Ifc＞10Then Exit For Next c Text1.Text=Str（n） End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（）
（单选题）
设在窗体上有两个命令按钮，其中一个命令按钮的名称为cmda，则另一个命令按钮的名称不能是（）.
（单选题）
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click（） Dim I As Integer，j As Integer Dim a（10，10）As Integer For I=1 To 3 For j=1 To 3 a（I，j）=（I-1）*3+j Print a（I，j）； Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是（）。（其中CR表示回车和换行）
（单选题）
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） Dim array1（10，10）As Integer Dim I，j As Integer For I=1 To 3 For j=2 To 4 array1（I，j）=I+j Next j Next I Text1.Text=array1（2，3）+array1（3，4） End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（）
（单选题）
在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） Dim x As Integer，n As Integer x=1 n=0 DoWhilex＜20 x=x*3 n=n+1 Loop Text1.Text=Str（x） Text2.Text=Str（n） End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是（）
（单选题）
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（ ） Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 for j = 2 To 4 array1(i, j) = i + j next j next i Text1.Text = arrry1(2, 3) + array(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（）
