如果结果不匹配，请 
更多“摩尔吸收系数k在光度分析中有什么意义？如何求出k？K受哪些因…”相关的问题
在窗体中有一个名为Command1的命令按钮，事件代码如下： Private Sub Command1_Click（） Dim m(10) For k=1 T0 10 m(k)=11=k Next k x=6 MsgBox m(2+m(x)) End Sub 打开窗体，单击命令按钮，消息框的输出结果是（）。
A.2
B.3
C.4
D.5
A.等于-271.1 kJ· mol-1
B.大于-271.1 kJ· mol-1
C.小于-271.1 kJ· mol-1
D.无法确定
在窗体中有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：
For i=1 T04
X=3
For j=1 T03
For k=1 T02
x=x+3
Next k
Next jNext iText1．Value=Str(x)
End Sub
打开窗体运行后，单击命令按钮，文本框Text1中输出的结果是（）。
A.6
B.12
C.18
D.21
（31 ） 窗体上有 List1 、 List2 两个列表框 ， List1 中有若干列表项 （见图 ） ， 并有下面的程
序：
Private Sub Comand1_Click （）
For k=List1.ListCount-1 To 0 Step -1
If List1.Selected （k ） Then
List2.AddItem List1.List （k ）
List1.RemoveItem k
End If
Next k
End Sub
程序运行时，按照图示在 List1 中选中 2 个列表项，然后单击 Commandl 命令按钮，则产生的结果是
A ）在 List2 中插入了 “ 外语 ” 、 “ 物理 ” 两项
B ）在 List1 中删除了 “ 外语 ” 、 “ 物理 ” 两项
C ）同时产生 A ）和 B ）的结果
D ）把 List1 中最后 1 个列表项删除并插入到 List2 中
窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：
Private Sub Command1_Click（）
For k=List1．ListCout-1 To 0 Step-1
If List1．Selected(k)Then
List2．Addltem List1．List(k)
List1．Removeltem k
End If
Next k
End Sub
程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（）。
A.在List2中插入了“外语”、“物理”两项
B.在List1中删除了“外语”、“物理”两项
C.同时产生A和B的结果
D.把List1巾最后1个列表项删除并插入到List2中
（33 ）在窗体中有一个命令按钮 command1 和一个文本框 text1, 编写事件代码如下：
Private sub command1_click()
For i=1 to 4
X=3
For j=1 to 3
For k=1 to 2
X=x+3
Next k
Next j
Next i
Text1.value=str(x)
End sub
打开窗体运行后，单击命令按钮，文本框 text1 输出的结果是
A ） 6
B ） 12
C ） 18
D ） 21
窗体卜有Listl、List2两个列表框，Listl中有若干列表项(见图)，并有下面的程序：
Private sub Commandl_Click()
For k：Listl．ListCount_l To 0 step-1
Tf Listl．Selected(k)Then
List 2．AddItern Listl．List(k)
Listl．Removehem k
End If
Next k
End Sub
程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是
.jpg)
A．在List2中插入了“外语”、“物理”两项
B．在Listl中删除了“外语”、“物理”两项
C．同时产生A)和B)的结果
D．把Listl中最后1个列表项删除并插入到List2中
A．3
B．6
C．9
D．12
