Dim buy, a, b, c, d, e, pay As Integer
buy = "Text1"
a = Val("Text2")
b = Val("Text3")
c = Val("Text4")
d = Val("Text5")
e = Val("Text6")
If buy > a Then
pay = ("buy* (0.1 * c) ")
Else
If buy > d Then
pay = pay - e
Else
pay = pay - f
End If
End If
pay = "Text7"
End Sub
End Class
哪裡有錯請幫我改正