近年來網(wǎng)絡技術的迅猛發(fā)展，網(wǎng)絡購物已經(jīng)成為當下最熱門的購物渠道。小明同學在網(wǎng)購平臺上看中了五雙運動鞋，想在這五雙中選擇一雙購買（原價和折扣詳見商品折扣表）。但是小明的預算是不超過200元，更省錢最好，請你為小明設計一款軟件，選擇購買哪一雙運動鞋最實惠。
商品折扣表：
| 商品名稱 | 原價 | 折扣力度 |
| 籃球鞋001 | 488元 | 4折 |
| 籃球鞋002 | 458元 | 5折 |
| 跑步鞋001 | 398元 | 5折 |
| 跑步鞋002 | 358元 | 6折 |
| 徒步鞋001 | 339元 | 6折 |
①新建一個VB工程，完成“折扣商品計算器”程序的設計。將工程文件以sale.vbp、窗體文件以sale.frm保存到考試目錄“操作題”下；
②窗體的標題為“折扣商品計算器”；窗體的左邊有三個標簽，Label1的屬性為“商品原價a：”、Label2的屬性為“折扣力度b：”、Label3的屬性為“折后價格c：”；它們的旁邊分別有三個文本框，Text1用于商品原價、Text2用于輸入折扣力度、Text3用于輸出折后價格；在文本框的右邊有三個標簽，Label4的屬性為“元”、Label5的屬性為“折”、Label6的屬性為“元”；
③單擊“計算”按鈕（Command1），根據(jù)計算公式將相應的提示信息顯示在標簽Text3中；
計算公式為：折后價格=商品原價*折扣力度；如果折后價格不高于200元，MsgBox函數(shù)提示“可以購買！”；如果折后價格高于200元，MsgBox函數(shù)提示“對不起！買不起，請您放棄！”。請編程實現(xiàn)。
④結論：最適合小明的運動鞋是什么。請?zhí)顚懮唐访Q。
【考點】使用擴充控件．
【答案】寫法1：
Private SubCommand1_Click（ ）
Dima As Single，b As Single，c As Single
a=Val（Text1.Text）
b=Val（Text2.Text）
c=a*b/10
Text3.Text=Str（c）
Ifc＜=200 Then
MsgBox （“可以購買！“）
Else
MsgBox （“對不起！買不起，請您放棄！“）
EndIf
End Sub
寫法2：
Private SubCommand1_Click（ ）
Dima As Single，b As Single，c As Single
a=Val（Text1.Text）
b=Val（Text2.Text）
c=a*b/10
Text3.Text=Str（c）
If c＞200 Then
MsgBox （“對不起！買不起，請您放棄！“）
Else
MsgBox （“可以購買！“）
EndIf
End Sub
得到結論為：最適合小明的運動鞋籃球鞋001，因為該款鞋原價高，打折幅度大，而且不超預算。
Private SubCommand1_Click（ ）
Dima As Single，b As Single，c As Single
a=Val（Text1.Text）
b=Val（Text2.Text）
c=a*b/10
Text3.Text=Str（c）
Ifc＜=200 Then
MsgBox （“可以購買！“）
Else
MsgBox （“對不起！買不起，請您放棄！“）
EndIf
End Sub
寫法2：
Private SubCommand1_Click（ ）
Dima As Single，b As Single，c As Single
a=Val（Text1.Text）
b=Val（Text2.Text）
c=a*b/10
Text3.Text=Str（c）
If c＞200 Then
MsgBox （“對不起！買不起，請您放棄！“）
Else
MsgBox （“可以購買！“）
EndIf
End Sub
得到結論為：最適合小明的運動鞋籃球鞋001，因為該款鞋原價高，打折幅度大，而且不超預算。
【解答】
【點評】
聲明：本試題解析著作權屬菁優(yōu)網(wǎng)所有，未經(jīng)書面同意，不得復制發(fā)布。
發(fā)布：2024/5/3 8:0:9組卷：2引用：1難度：0.6
相似題
-
1．看圖回答下列小題：
（1）圖中共有幾個對象（控件）
A．1
B．2
C．3
D．4
（2）圖中的氣球屬于下列哪種控件
A．按鈕
B．文件框
C．標簽框
D．圖片
（3）如果把窗體的標題“彩球”改為“彩球飄揚”，則需要設置的窗體屬性是
A．Name
B．Caption
C．BackColor
D．Font發(fā)布：2024/12/28 19:0:1組卷：1引用：2難度：0.7 -
2．在VB中，TextBox控件可以提供用戶輸入或者顯示文本，又稱為（ ）
發(fā)布：2024/11/26 1:30:1組卷：5引用：2難度：0.6 -
3．小華想修改VB窗體的標題欄的文字為“我的程序一”，那他只需要修改窗體的（ ）屬性即可。
發(fā)布：2024/12/11 8:30:1組卷：1引用：2難度：0.8