VB的問題 大大幫忙<20點>

Question

加油站 贈品問題
金額 100-200送衛生紙
200-300送普通衛生紙
300-400送高級衛生紙
這樣程式碼該如何寫呢
油價*公升=金額 金額在送贈品

要顯示在 TEXT裡面呢0.0
TEXT1<油價>
TEXT2<公升>TEXT3<金額>
TEXT4<贈品>

Answer 1

X = 油價
Y = 公升
Z = X * Y (金額 )
Select Case Z
Case 100 To 199
MsgBox "送衛生紙"
Case 200 To 299
MsgBox "送普通衛生紙"
Case 300 To 400
MsgBox "送高級衛生紙"
End Select

Answer 2

A = Text1.Text　　　'油價
B = Text2.Text　　　'公升
Text3.Text = A * B　 '金額
　Select Case Val(Text3.Text)
　　　 Case 100 To 200
　　　　　Text4.Text = "衛生紙"
　　　 Case 201 To 300
　　　　　Text4.Text = "普通衛生紙"
　　　 Case 301 To 400
　　　　　Text4.Text = "高級衛生紙"
　End Select

Answer 3

text1.text = 油價
text2.text = 公升
text2.text = 金額
程式碼如下：
text3.text = text1.text * text2.text
Select Case text4
Case 100 To 199
text3.text = "贈品為衛生紙"
Case 200 To 299
text3.text = "贈品為普通衛生紙"
Case 300 To 400
text3.text = "贈品為高級衛生紙"
End Select

把點數給上面那個吧！ ^^ 我只是把他的拿來改個名稱而己 ⊙⊙
記得選他為最佳解答

Answer 4

用 text4.text = "送...."
............&#$^#$