单项选择题
在窗体上画一个命令按钮,名称为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
点击查看答案&解析
相关考题
-
单项选择题
设有如下程序: Private Sub Command1_Click() Dim a Dim I As Integer a=Array(1,2,3,4,5,6,7,8,9) For I=0 To 3 Print a(5-I); Next I End Sub 程序运行后,单击窗体,则在窗体上显示的是()
A.4321
B.5432
C.6543
D.7654 -
单项选择题
在窗体上画一个名称为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表示回车和换行)
A.1 2 3 CR 3 4 5 CR 5 6 7 CR
B.2 3 4 CR 4 5 6 CR 7 8 9 CR
C.1 4 7 CR 4 5 8 CR 9 10 11 CR
D.1 2 3 CR 4 5 6 CR 7 8 9 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 程序运行后,单击命令按钮,在文本框中显示的值是()
A.12
B.13
C.14
D.15
