嘿嘿 發問時間: 電腦與網際網路程式設計 · 1 0 年前

請幫我解VB程式 品名.折數輸入值

打折.請寫出一個程式可以輸入件數,然後顯示出總價

可以輸入品名

( 2件: 95折 , 3~5件: 9折 , 6~10件: 8折 , >10件: 7折

請大大們幫忙,小的我真的想不出來怎麼做,還要附加程式解答

1 個解答

評分
  • morris
    Lv 5
    1 0 年前
    最佳解答

    使用兩個TextBox控制項,Text1為件數,Text2為單價

    一個CommandButton控制項,Command1用來計算折扣後金額

    COPY以下程式

    Private Sub Command1_Click()

    Dim intN As Integer

    Dim intP As Integer

    Dim intMoney As Single

    intN = Int(Text1) ' 用Text1來裝件數

    intP = Int(Text2) ' 用Text2來裝單價

    Select Case intN

    Case 1

    intMoney = intP * intN

    Case 2

    intMoney = (intP * intN) * 0.95

    Case Is <= 5

    intMoney = (intP * intN) * 0.9

    Case Is <= 10

    intMoney = (intP * intN) * 0.8

    Case Else

    intMoney = (intP * intN) * 0.7

    End Select

    MsgBox intMoney & " 元", vbOKOnly, "打折後結算金額"

    End Sub

    參考資料: ...
還有問題?馬上發問,尋求解答。