Dim 起始值, 結束值, i, sum As Integer
起始值 = InputBox ("請輸入起始值")
結束值 = Val(InputBox ("請輸入結束值"))
sum += i
起始值 = InputBox ("請輸入起始值")
結束值 = Val(InputBox ("請輸入結束值"))
sum += i
Do While sum <= 結束值
For i = 起始值 To 結束值 Step 1
If i Mod 3 = 0 Then
sum += i
TB1.Text &= i & " "
End If
For i = 起始值 To 結束值 Step 1
If i Mod 3 = 0 Then
sum += i
TB1.Text &= i & " "
End If
Next
起始值 = 起始值 + 1
MsgBox ("總和= " & sum)
Loop
End Sub
起始值 = 起始值 + 1
MsgBox ("總和= " & sum)
Loop
End Sub
這是什麼的XD
喔喔喔太好用了 
綠色生物
說
感謝尼救了我T^T
桃桃萬歲!!!!! 
謝謝桃少爺 
真是的,一節課比一節課更難,今天差點來不及 
耶! 
