UC知道高手帮帮忙、、VB题、、急、、
来源：百度知道 编辑：UC知道 时间：2024/06/15 11:50:09
Private Sub Command0_Click()
Dim m(10) As Integer
For k = 1 To 10
m(k) = 12 - k
Next k
x = 6
MsgBox m(2 + m(x))
End Sub
消息框输出是多少
Dim m(10) As Integer
For k = 1 To 10
m(k) = 12 - k
Next k
x = 6
MsgBox m(2 + m(x))
End Sub
消息框输出是多少
m(6)=6
m(2 + m(x))=m(8)
m(8)=12-8
所以弹出来是4撒！
输出4
Private Sub Command1_Click()
Dim m(10) As Integer
For k = 1 To 10
m(k) = 12 - k 'm(1)=12-1 m(2)=12-2 类推 m(6)=12-6
Next k
x = 6
MsgBox m(2 + m(x)) 'm(2+m(6)) =m(2+6) = m(8)=4
End Sub