Dim?t#,?k#
t?=?Val(Text1.Text)
Select?Case?t
Case?Is?<?1000:?k?=?1
Case?Is?<?2000:?k?=?0.9
Case?Is?<?3000:?k?=?0.85
Case?Is?<?4000:?k?=?0.8
Case?Else:?k?=?0.7
End?Select
Label1.Caption?=?"用戶購物花費金額為:"?&?t?*?k?&?"元。"
End?Sub