题目内容

函数过程Fun1的功能是:如果参数b为奇数,则返回值为1,否则返回值为0。
Function Fun1(b As Integer)
if _____ Then
Fun1=0
Else
Fun1=1
End If
End Function
使该功能完整,应在空行处填入以下哪条语句

A. b Mod 2＜＞0
B. b Mod 2=0
C. b / 2=1
D. b

查看答案

搜索结果不匹配？点我反馈

更多问题

下面运行程序后,单击命令按钮,输出的结果是【】。
Private Sub Command1_Click()
Dim a%(1 To 5),i%, s#
For i=1 To 5
a(i)=i
Next
s=Fun(a)
Print "s="; s;
End Sub
Function Fun(a() As Integer)
Dim t#, i%
t=1
For i=LBound(a) To UBound(a)
t=t  a(i)
Next
Fun=t
End Function

编写如下事件过程:
Private Sub Form_keyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_Keypress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在一般情况下(即不按住Shift键和锁定大写键时) 运行程序,若按"T"键,则程序输出的结果是

A. T T
B. t T
C. T T
D. t t

Whenever Tom knew I was in trouble, he______ always lend me a hand.

A. might
B. would
C. could
D. should

The spaceman found______to look at the earth away from it.

A. a most exciting experience
B. it a most exciting experience
C. that a most exciting experience
D. the experience most exciting