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.
矿质实体体积、闭口孔隙体积、开口孔隙体积

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

A.
新建一个大一点的画布重新输入
B.
将文字的字号设置的小一点
C.
将输入文字的文本框设置的宽一点
D.
将第二行文字去掉