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

若有如下Sub过程:
Sub sfun(x As Single, y As Single)
t=x
x=t/y
y=t Mod y
End Sub
在窗体中添加一个命令按钮Command33,对应的事件过程如下:
Private Sub Command33_Click()
Dim a As Single
Dim b As Single
a=5:b=4
sfun(a,b)
MsgBox a&chr(10)+chr(13)&b
End Sub
打开窗体运行后,单击命令按钮,消息框中有两行输出,内容分别为_________。

A.
1和1
B.
1.25和1
C.
1.25和4
D.
5和4
题目标签:事件两行对应
举报
参考答案:
参考解析:
.
刷刷题刷刷变学霸
举一反三

【单选题】有如下事件过程: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.
矿质实体体积、闭口孔隙体积、开口孔隙体积

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

A.
R2在这里是分流作用。
B.
这里的R1所在回路这样的接法主要是为了加热考虑。
C.
RP和U1A接成了电压比较器电路。
D.
LED指示灯主要是显示输出的是高电平还是低电平。

【多选题】在画布中需要输入一行文字,但由于文字较多自动变成了两行,正确的处理方法是()

A.
新建一个大一点的画布重新输入
B.
将文字的字号设置的小一点
C.
将输入文字的文本框设置的宽一点
D.
将第二行文字去掉
相关题目:
【单选题】有如下事件过程: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.
矿质实体体积、闭口孔隙体积、开口孔隙体积
【单选题】某酒精检测模块电路如下图所示,下列有关电路元器件及其对应作用描述不正确的是:
A.
R2在这里是分流作用。
B.
这里的R1所在回路这样的接法主要是为了加热考虑。
C.
RP和U1A接成了电压比较器电路。
D.
LED指示灯主要是显示输出的是高电平还是低电平。
【多选题】在画布中需要输入一行文字,但由于文字较多自动变成了两行,正确的处理方法是()
A.
新建一个大一点的画布重新输入
B.
将文字的字号设置的小一点
C.
将输入文字的文本框设置的宽一点
D.
将第二行文字去掉