查看完整版本: vb問題折價金額

vb問題折價金額

[img]https://fzxxng.sn2.livefilestore.com/y1pqAHNRC3zaLArCPXxrfYbNt2_TX6Tz-mRrgXEEhTwx-bw0MQsrbMqm2UdZO_8BhE4pTakjRlqQI18fhhmK03WS0fxUyLr_rWd/2011-11-29%20%E4%B8%8B%E5%8D%88%2004-43-52.jpg?psid=1[/img]
這是我做表單，因為我是VB新手,不知道怎麼將金額和折價活用，寫成vb程式碼拜託各位教教我怎麼寫
，要是有請各位回覆吧:bow:
不然寄給我也可以[table=98%][tr][td][url=" PPTestID=][color=#0000ff]mydog6699@hotmail.com.tw[/color][/url][/td][/tr][/table]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
哪裡有錯請幫我改正

[[i] 本帖最後由 waasl 於 2011-11-30 15:20 編輯 [/i]]

感謝
找了很久。感謝分享