赋值问题，急！！

Question

mun = 0
sun = 0
For i = 1 To 10
sun = sun + 2
mun = mun + 1If sun = 6 Then mm1 = mun '我想当sun累计加到等于6时，将此时的mun值赋予mm1
If sun = 9 Then mm2 = mun '我想当sun累计加到等于9时，将此时的mun值赋予mm2Next这样就对了按照你原来写的，最后sun=20，mun=10 ，都不符合你的条件，所以还mm1，mm2都没有赋值

Answer 1

mun = 0
sun = 0
For i = 1 To 10
sun = sun + 2
mun = mun + 1
If sun = 6 Then mm1 = mun 
If sun = 9 Then mm2 = mun 
Next

Answer 2

mun = 0
sun = 0
For i = 1 To 10
sun = sun + 2
mun = mun + 1If sun = 6 Then mm1 = mun 
If sun = 9 Then mm2 = mun
Next

Answer 3

Private Sub Command1_Click()
mun = 0
sun = 0
For i = 1 To 10
sun = sun + 2
mun = mun + 1If sun = 6 Then mm1 = mun '我想当sun累计加到等于6时，将此时的mun值赋予mm1
If sun = 9 Then mm2 = mun '我想当sun累计加到等于9时，将此时的mun值赋予mm2
Next
Print mm1, mm2
End Sub

Answer 4

你的程序少跳出条件
Private Sub Command1_Click()
mun = 0
sun = 0
For i = 1 To 10
sun = sun + 2
mun = mun + 1If sun = 6 Then mm1 = mun 
 exit sub
If sun = 9 Then mm2 = mun
  exit sub 
Next
End Sub

Answer 5

mun = 0
sun = 0
For i = 1 To 10
sun = sun + 2
mun = mun + 1
Next

Answer 6

mun = 0
 sun = 0
 For i = 1 To 10  
    sun = sun + 2
    mun = mun + 1
    If sun = 6 Then mm1 = mun 
    If sun = 9 Then mm2 = mun
 Next
'sun不会等于9的