1110-99乘法程式 lamg

Dim I As Integer
Dim Sum As Integer
Dim myshow As String

Sum = 0
myshow = ""

For I = Val(TextBox1.Text) To Val(TextBox2.Text) Step Val(TextBox3.Text)

Sum = Sum + I


myshow = myshow & I
If I + Val(TextBox3.Text) <= Val(TextBox2.Text) Then
myshow = myshow & "+"
End If


Next I
myshow = myshow & "=" & Sum
MsgBox(myshow)