實驗內容

掌握Label、TextBox、Button控件的使用方法，變量的使用方法。

掌握If語句的使用方法。

商場鼠標實際銷售價是原價的九五折。買10個以上（含）打八折，買20個以上（含）打七折。從頁面上輸入原價、購買的個數，計算出金額顯示在頁面上，再輸入顧客所付錢數，計算出找零。

自己完成程序，運行結果截圖。

編寫實驗報告。

實驗環境

Windows7，Office、VB開發環境。

窗體

代碼

vb已經沒什么人用了吧…

Private Sub Command1_Click()Dim oneprice As Single '一個的價格Dim num As Single '購買的數量Dim discount As SingleDim totalprice As Singleoneprice = Val(Text1.Text)num = Val(Text2.Text)'計算折扣If num >= 20 Thendiscount = 0.7ElseIf num >= 10 Thendiscount = 0.8Elsediscount = 0.95End If'計算價格totalprice = oneprice * num * discountLabel6.Caption = totalpriceEnd SubPrivate Sub Command2_Click()'應付Dim totalprice As Singletotalprice = Val(Label6.Caption)'實付Dim giveprice As Singlegiveprice = Val(Text3.Text)'找零Dim backprice As Singlebackprice = giveprice - totalprice'輸出Label7.Caption = backpriceIf backprice < 0 ThenMsgBox "付款不足！"End IfEnd SubPrivate Sub Form_Load()End Sub

字體屬性設置

總結

以上是生活随笔為你收集整理的VB 6.0 计算鼠标的金额 字体的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。