掌握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 single
dim totalprice as single
oneprice =
val(text1.text)
num =
val(text2.text)
'計算折扣
if num >=
20 then
discount =
0.7
elseif num >=
10 then
discount =
0.8
else
discount =
0.95
end if
'計算**
totalprice = oneprice * num * discount
label6.caption = totalprice
end sub
private sub command2_click()
'應付dim totalprice as single
totalprice =
val(label6.caption)
'實付dim giveprice as single
giveprice =
val(text3.text)
'找零dim backprice as single
backprice = giveprice - totalprice
'輸出label7.caption = backprice
if backprice <
0 then
msgbox "付款不足！"
VB6 0 支援滑鼠滾輪教程
操作步驟如下 1 程式設計客棧 download e f b efb39198 7c59 4ace a5c4 8f0f88e00d34 vb6mousewheel.exe 這是乙個自解壓的包，其中包含vb6idemousewheeladdin.dll和其源程式，將其解壓到桌面即可。2 選擇直接使用v...
VB6 0函式集合
一 型別轉換類函式 1.ctype x 格式 p cbool x 將x轉換為 布林 boolean 型別 p cbyte x 將x轉換為 位元組 byte 型別 p ccur x 將x轉換為 金額 currency 型別 p cdate x 將x轉換為 日期 date 型別 p cdbl x 將x轉...
VB6 0 程式設計入門
識別符號 使用者在程式設計時定義的名稱。關鍵字 vb中擁有固定含義 不能被重新定義的識別符號。常見關鍵字 as 定義乙個變數 date 日期函式 else 條件語句中的 否則 error 錯誤物件 let 屬性定義的關鍵字 me 當前物件 null 表示變數不包含有效資料 nothing 將物件變數...