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

在窗体上添加一个命令按钮,然后编写其单击事件过程为: For i=1 To 3 x=4 For j=1 To 4 x=3 For k=l To 2 x=x+5 Next k Next j Next i MsgBox x 则单击命令按钮后消息框的输出结果是( )。

A.
7
B.
8
C.
9
D.
13
题目标签:窗体过程事件
举报
参考答案:
参考解析:
.
刷刷题刷刷变学霸
举一反三

【单选题】有如下事件过程: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.
信念-行为-结果

【单选题】设窗体上有3个按钮Cmd1、Cmd2和Cmd3,如下代码的功能是( )。 Private Sub Cmd1_Click() Cmd2.Enabled=False Cmd3.Enabled=False End Sub

A.
当单击按钮 Cmd1 时,按钮 2 和按钮 3 都不可用
B.
当单击按钮 Cmd1 时,按钮 2 和按钮 3 都不可见
C.
当单击按钮 Cmd1 时,按钮 2 不可用和按钮 3 不可见
D.
当单击按钮 Cmd1 时,按钮 2 不可见和按钮 3 不可用
相关题目:
【单选题】有如下事件过程: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.
决定-行为
B.
信念-决定-结果
C.
决定-行为-结果
D.
信念-行为-结果
【单选题】设窗体上有3个按钮Cmd1、Cmd2和Cmd3,如下代码的功能是( )。 Private Sub Cmd1_Click() Cmd2.Enabled=False Cmd3.Enabled=False End Sub
A.
当单击按钮 Cmd1 时,按钮 2 和按钮 3 都不可用
B.
当单击按钮 Cmd1 时,按钮 2 和按钮 3 都不可见
C.
当单击按钮 Cmd1 时,按钮 2 不可用和按钮 3 不可见
D.
当单击按钮 Cmd1 时,按钮 2 不可见和按钮 3 不可用