旋轉以後 靜靜生活 奔放青春 .. 我還行嘛 !!

495愛的鼓勵 0訂閱站台

 

 

 

http://tw.knowledge.yahoo.com/question/question?qid=1206111210205

 

 

 

 

將下列程式寫入Command1裡面就可以了。

Private Sub Command1_Click()

If Option1.Value = True Then

Select Case Val(Text1)

Case Is <= 100

Label1 = Val(Text1) * 2.4

Case Is <= 300

Label1 = Val(Text1 - 100) * 3.1 + 100 * 2.4

Case Is >= 301

Label1 = Val(Text1 - 300) * 4.1 + 100 * 2.4 + 200 * 3.1

End Select

End If

If Option2.Value = True Then

Select Case Val(Text1)

Case Is <= 300

Label1 = Val(Text1) * 5.9

Case Is >= 301

Label1 = Val(Text1 - 300) * 6.7 + 300 * 5.9

End Select

End If

End Sub