Ｆⓛａⓝｅｒｉⓔ ,, 　 　 　 　 　未來？ 　是什麼.. 　吃的？ 　 　 　 　它　　　是個陌生人 　捉摸不定 　也讓你摸不著！ 　　　　　　是個未知數... 　

1,644愛的鼓勵 0訂閱站台

　好一個程式語言
　好一個ｖｂ呀！！！！








　會搞死人的～～












　寫程式、程式碼！！

　天呀～～～～
　－　－＂





　會把腦子裡的東西　都給殺光的勒～
　





　一個字　　




　　　　　　難。




　





　




　




　Option Explicit
　Dim iname As String
　Dim stock, bonus, insurance, tax, salary As Long





　Private Sub Command1_Click()

　iname = InputBox("請輸入姓名", "ch6_3_2")
　stock = InputBox("請輸入業績", "ch6_3_2")

　If stock < 0 Then End


　 Select Case stock
　 Case Is > 400000
　 bonus = (stock - 400000) * 0.03 + 100000 * 0.05
　 Case 300000 To 400000
　 bonus = (stock - 300000) * 0.05
　 Case Else
　 bonus = 0

　 End Select



　insurance = (20000 + bonus) * 0.004
　tax = (20000 + bonus) * 0.06
　salary = 20000 + bonus - insurance - tax

　Text1.Text = Text1.Text + vbNewLine + iname & Chr(9) & stock & Chr(9) & bonus & Chr(9) & salary




　End Sub





　Private Sub Form_Load()

　Text1.Text = "姓名" + Chr(9) + "業績" + Chr(9) + "獎金" + Chr(9) + "應得薪資"

　End Sub










　看的懂？！　　＝　＝＂
　唉～






　
　　　　　　　難呀！！！








　




　ｐｉｃ　所謂的程式語言作業