logo - 刷刷题
下载APP
【单选题】

窗体中有命令按钮Command1和文本框Text1,事件过程如下:
Function result(ByVal x As Integer) As Boolean
If x Mod 2=0 Then
result=True
Else
result=False
End If
End Function
Private Sub Command1_Click()
x=Val(InputBox("请输入一个整数"))
If ______ Then
Text1=Str(x)&"是偶数."
Else
Text1=Str(x)&"是奇数."
End If
End Sub
运行程序,单击命令按钮,输入19,在Text1中会显示“19是奇数”。那么在程序中横线处应填写______。

A.
NOT result(x)
B.
result(x)
C.
result(x)="奇数"
D.
result(x)="偶数"
题目标签:事件输入奇数
举报
参考答案:
参考解析:
.
刷刷题刷刷变学霸
举一反三

【多选题】Rh阴性的妇女(无妊娠史)第一次输入Rh阳性的血液可能

A.
产生Rh抗体
B.
红细胞发生凝集
C.
下次妊娠(胎儿若是Rh阳性)时胎儿可能出现溶血性贫血
D.
第二次再输Rh趾阳性血不会有反应
E.
可发生输血反应

【单选题】1-2-6 在 (  ) 输入情况下,“与非”运算的结果是逻辑0。

A.
全部输入是0
B.
任一输入是0
C.
仅一输入是0
D.
全部输入是1

【单选题】有如下事件过程:Private Sub Form_Load() Show Dim Arr() As Variant Arr = Array(1, 3, 5, 7, 9, 11, 13, 15) Call converse(Arr) For i = 0 To 7 Print arr(i); Next iEnd Sub 以上程序的功能是,通过调用Converse过程,将数组Arr中的元素逆序存放并输出...

A.
Private Sub converse(dim a() as Variant ) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
B.
Private Sub converse(dim a() as Variant) Dim T Dim J As Integer J = (LBound(A) + UBound(A)) / 2 For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
C.
Private Sub converse(a() As Variant) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
D.
Private Sub converse(a() As Variant) Dim T Dim J As Integer J = Int((LBound(A) + UBound(A)) / 2) For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub

【多选题】在相同的条件下重复一个行为或试验,不确定性事件所出现的结果的特点是( )。

A.
所出现的结果有多种
B.
出现的结果只有一种
C.
具体是哪种结果事前不可预知
D.
出现的结果能事前预知
E.
出现的结果是确定的

【单选题】某连续时间系统输入 ,输出 = ,该系统为( )。

A.
因果、时不变、非线性
B.
因果、时变、非线性
C.
非因果、时不变、非线性
D.
非因果、时变、线性
相关题目:
【多选题】Rh阴性的妇女(无妊娠史)第一次输入Rh阳性的血液可能
A.
产生Rh抗体
B.
红细胞发生凝集
C.
下次妊娠(胎儿若是Rh阳性)时胎儿可能出现溶血性贫血
D.
第二次再输Rh趾阳性血不会有反应
E.
可发生输血反应
【单选题】1-2-6 在 (  ) 输入情况下,“与非”运算的结果是逻辑0。
A.
全部输入是0
B.
任一输入是0
C.
仅一输入是0
D.
全部输入是1
【单选题】有如下事件过程:Private Sub Form_Load() Show Dim Arr() As Variant Arr = Array(1, 3, 5, 7, 9, 11, 13, 15) Call converse(Arr) For i = 0 To 7 Print arr(i); Next iEnd Sub 以上程序的功能是,通过调用Converse过程,将数组Arr中的元素逆序存放并输出...
A.
Private Sub converse(dim a() as Variant ) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
B.
Private Sub converse(dim a() as Variant) Dim T Dim J As Integer J = (LBound(A) + UBound(A)) / 2 For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
C.
Private Sub converse(a() As Variant) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
D.
Private Sub converse(a() As Variant) Dim T Dim J As Integer J = Int((LBound(A) + UBound(A)) / 2) For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
【多选题】在相同的条件下重复一个行为或试验,不确定性事件所出现的结果的特点是( )。
A.
所出现的结果有多种
B.
出现的结果只有一种
C.
具体是哪种结果事前不可预知
D.
出现的结果能事前预知
E.
出现的结果是确定的
【单选题】某连续时间系统输入 ,输出 = ,该系统为( )。
A.
因果、时不变、非线性
B.
因果、时变、非线性
C.
非因果、时不变、非线性
D.
非因果、时变、线性