青年首次購屋

許多人應該被債務或金錢上的問題壓得喘不過氣

往往走上不好的方向高利貸之類的..

今天分享一個好資訊給大家^^

免費諮詢專業人員

最快的時間解決你所遇到問題

解決你個人困難幫助你的問題

 

http://goo.gl/2hr9j4

 

 

標題:

關於vb...

發問銀行二手車貸款利息計算:請問前制協商信用貸款問題

請問..要如何寫一個折扣程式??? 模式如下: 假設一件100元 1~100不打折 101~300打9折 301~500打85折 501~1000打8折 1001以上打7折 然後..要把數字顯示在Label上面 EX:假設我買500件1~100是不打折101~300打9折301~500打8折 這樣的計算 顯示在Label的方式 如此: 1~100>>>多少元 101~300>>>多少元 以此類推...拜託高手了 更新: 恩恩..謝謝那位大大的程式碼 不過必須要把每一行顯示在Label上面 例如 1~100件不打折 多少元 101~300打9折 多少元 以此類推...

最佳解答:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x, y As Long x = Val(TextBox1.Text) If x < 101 Then Label1.Text = x * 100 ElseIf x >= 101 And x < 301 Then Label1.Text = x * 100 * 0.9 ElseIf x >= 301 And x < 501 Then Label1.Text = x * 100 * 0.8 ElseIf x >= 501 And x < 1001 Then Label1.Text = x * 100 * 0.85 ElseIf x >= 1001 Then Label1.Text = x * 100 * 0.7 End If End Sub 2005-10-17 00:02:23 補充： Label1.Text =1~100件不打折& x * 100 & 多少元 2005-10-17 00:48:39 補充： 要加引號

其他解聯徵多請問要如何增加信用貸款通過機會信用貸款但是工作不夠久可以嗎>富邦銀行貸款利率會不會超過10%答:

關於查詢銀行貸款只有條件句 和 運算句 不會困難吧@@... 2005-10-17 11:04:06 補充： Private Sub Command1_Click() t = Val(Text1) Print "你根本不懂VB" If t > 1 And t < 101 Then MsgBox "1~100 = " & t * 100 ElseIf t > 100 And t <= 300 Then MsgBox "101~300 = " & t * 100 * 0.9 ElseIf t > 300 And t <= 500 Then MsgBox "301~500 = " & t * 100 * 0.85 ElseIf t > 500 And t <= 1000 Then MsgBox "501~1000 = " & t * 100 * 0.8 ElseIf t > 1000 Then MsgBox ">1000 = " & t * 100大眾銀的信用貸款可以只用電話辦理嗎 * 0.7 End If End Sub =.=你根本不會VB...太明顯了@@..多看點書做吧 ============================================= 不要太過分了...這種事情請自己來... 這裡不是作業+ = =...|||||幹嘛不自己寫？4857E9100926D5DE