【正文】
代碼設計Private Sub Command1_Click() price = num = Val() Select Case num Case Is 10 r = 1 Case Is 100 r = Case Is 200 r = Case Else r = End Select cost = num * price * r = 優(yōu)惠率: amp。 r = 貨款為: amp。 costEnd Sub程序運行結果如圖45所示。4.10 征兵的條件是:男性18~20歲,;女性16~18歲。編寫程序,從鍵盤輸入一個人的數據時,判斷是否符合征兵的條件?!緟⒖即鸢浮繄D46 程序運行結果(1)用戶界面設計(2)控件屬性設置(略)(3)程序代碼設計Private Sub Command1_Click() age = Val() h = Val() If = True Then If age = 18 And age = 20 And h = Then = 合格 Else = 不合格 End If Else If age = 16 And age = 18 And h = Then = 合格 Else = 不合格 End If End IfEnd Sub程序運行結果如圖46所示: