VBA简单“敲七小程序”

利用VBA编写代码，设计一个“敲七程序”，100以内，凡是有7，7的倍数，msgbox显示“敲桌子”，

其余的显示数值。

我编写了两段代码，但是有一个代码运行有BUG，接下来让我们看看。

Sub 练习题2()         《运行有BUG，敲七程序》
For i = 7 To 100 Step 10
   If range("a" & i) = i Then
      range("b" & i) = "敲桌子"
   Else
   End If
Next
Dim num As Integer
For i = 1 To 100 Step 1
num = range("a" & i)
 If (num Mod 7 = 0) Then
   range("b" & i) = "敲桌子"
 Else
   range("b" & i) = i
End If
Next
End Sub

这个代码运行并不完善，达不到要求，因此我调换了一下代码的顺序，结果OK，

让我们看看调换后的代码运行。

Sub 练习题2()          《敲七程序，代码OK》
Dim num As Integer
For i = 1 To 100 Step 1
num = range("a" & i)
 If (num Mod 7 = 0) Then
   range("b" & i) = "敲桌子"
 Else
   range("b" & i) = i
End If
Next
For i = 7 To 100 Step 10
   If range("a" & i) = i Then
      range("b" & i) = "敲桌子"
   Else
   End If
Next
End Sub

如此，便可在excel表格中运行该程序。

但是我们需先在“A1"到"A100"表格中输入数字1-100（注意：不要一个一个的输，运用序列方式输入，简便快捷），如此，我们便可在B列表格中看到我们想要的结果。

今天我们老师向我们展示了他写的敲七代码，接下来让我们看看。

Sub 练习题2()            <敲七程序，老师版，正解msgbox>
Dim num, num_1, num_10 As Integer
For num = 1 To 100 Step 1
num_1 = num Mod 10
num_10 = num \ 10 Mod 10
If num_1 = 7 Then
MsgBox num & "敲桌子"
ElseIf num_10 = 7 Then
MsgBox num & "敲桌子"
ElseIf num Mod 7 = 0 Then
MsgBox num & "敲桌子"
Else
MsgBox num
End If
Next
End Sub

我用excel运行了一下，正解。

但是当时我们老师让我们自己涉及，我感觉我是设计不出来老师这样的程序的，就根据我的思路设计了利用excel表格来完成这样的程序。

但是我仍然有疑问，就像我上面我自己编的两个代码，写的都一样，但运行效果却不一样，我写的第一个运行有BUG，这是我最初写的，后来我调整了一下初始代码的顺序，就是上面我所写的第二个代码，它运行就完全正确。我知道代码运行是从右到左，从上到下的逐一运行，但我还是不知道我的初始代码错在哪儿了？仅仅只是调换一下我的代码顺序，一段有BUG的程序就可以成功运行，很不解。

如果我的初始代码（第一个代码）我不调换顺序，我该怎样让它成功运行呢？

如果有路过的大神可以看到我这篇文章，希望给我解答一下，谢谢！

这是我编写的第一个代码的运行（有BUG）

 

这是我编写的第二个正确的代码的运行。

 这是我们老师编写的代码的运行。