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

在窗体中有一个命令按钮run35,对应的事件代码如下:
Private Sub run35_Enter()
Dim nLlm As Integer
Dim a As Integer
Dim h As Integer
Dim i As Integer
For i=1 To 10
num=InputBox("请输入数据:","输入",1)
If Int(num/2)=num/2 Then
a=a+1
Else
B=b+1
End If
Next I
MsgBox("运行结果:a="& Str(a)&:",b=" &Str(b))
End Sub
运行以上事件所完成的功能是( )。

A.
对输入的10个数据求累加和
B.
对输入的10个数据求各自的余数,然后再进行累加
C.
对输入的10个数据分别统计有几个是整数,有几个是非整数
D.
对输入的10个数据分别统计有几个是奇数,有几个是偶数
举报
参考答案:
参考解析:
.
刷刷题刷刷变学霸
举一反三

【单选题】窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序: Private Sub Command1_Click() Dim x As Integer x = Val(InputBox("输入数据")) : Text1 = Str(x + fun(x) + fun(x)) End Sub Private Function fun(ByRef n As Integer...

A.
语句 fun = n 有错,因为n是整型,fun没有定义类型
B.
运行程序,输入值为5时,文本框中显示655
C.
运行程序,输入值为6时,文本框中显示42
D.
ByRef表示参数按址传递

【单选题】材料的表观密度所对应的体积包括( )

A.
矿质实体体积
B.
矿质实体体积、闭口孔隙体积
C.
矿质实体体积、闭口孔隙体积、开口孔隙体积、材料颗粒间空隙体积
D.
矿质实体体积、闭口孔隙体积、开口孔隙体积

【单选题】某酒精检测模块电路如下图所示,下列有关电路元器件及其对应作用描述不正确的是:

A.
R2在这里是分流作用。
B.
这里的R1所在回路这样的接法主要是为了加热考虑。
C.
RP和U1A接成了电压比较器电路。
D.
LED指示灯主要是显示输出的是高电平还是低电平。
相关题目:
【单选题】窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序: Private Sub Command1_Click() Dim x As Integer x = Val(InputBox("输入数据")) : Text1 = Str(x + fun(x) + fun(x)) End Sub Private Function fun(ByRef n As Integer...
A.
语句 fun = n 有错,因为n是整型,fun没有定义类型
B.
运行程序,输入值为5时,文本框中显示655
C.
运行程序,输入值为6时,文本框中显示42
D.
ByRef表示参数按址传递
【单选题】材料的表观密度所对应的体积包括( )
A.
矿质实体体积
B.
矿质实体体积、闭口孔隙体积
C.
矿质实体体积、闭口孔隙体积、开口孔隙体积、材料颗粒间空隙体积
D.
矿质实体体积、闭口孔隙体积、开口孔隙体积
【单选题】某酒精检测模块电路如下图所示,下列有关电路元器件及其对应作用描述不正确的是:
A.
R2在这里是分流作用。
B.
这里的R1所在回路这样的接法主要是为了加热考虑。
C.
RP和U1A接成了电压比较器电路。
D.
LED指示灯主要是显示输出的是高电平还是低电平。