Dim i%, sum!
sum = 0.0
i = 7
10:
Select Case i
Case 1, 4, 7
sum = sum + 1
Case 2, 3, 6
Case 0, 1, 5
sum = sum + 2
End Select
i = i - 1
If i >= 4 Then GoTo 10
MessageBox.Show("sum=" & sum)
为什么最后输出的是4啊?我做出来是6...求高手...
Case 2, 3, 6
Case 0, 1, 5
sum = sum + 2
这几句什么意思啊i=2,3,6的时候sum值不变吗??
|