身手矯健小羚羊A___A
正在
Dim 起始值, 結束值, i, sum As Integer
起始值 = InputBox ("請輸入起始值")
結束值 = InputBox ("請輸入結束值")
起始值 = InputBox ("請輸入起始值")
結束值 = InputBox ("請輸入結束值")
For i = 起始值 To 結束值
If i Mod 3 = 0 Then
sum += i
TB1.Text &= i & " "
End If
If i Mod 3 = 0 Then
sum += i
TB1.Text &= i & " "
End If
Next i
MsgBox ("總和= " & sum)
End Sub
MsgBox ("總和= " & sum)
End Sub
可惡要下課了 
啊 電腦課不會打就上撲來看吧!
ssaan123123: 
好主意wwww(欸
好主意wwww(欸