第一节.选择控制结构.docVIP

【】【】【】 第七章 Visual Basic 控制结构 第一节．选择控制结构 一、情景引入 情景1：去市场买东西，如买菜或买水果，去商场买衣服。买多会便宜一些，买少则原价出售，这时出现两种选择。 情景2：某书城在进行促销活动，凡购书满200元，可以去服务台领取相当于购书金额10%的购书券，供下次购书使用，购书券最小面值1元。现需要为服务台的工作人员编写一个程序，计算每次发放购书券的金额。 200元以下，送购物券为0元；如果购书金额大于等于200元时，送购物券为购书总额的10%元。 ④ 输出购书券金额 二、If语句的格式 单行结构： ① If 条件 Then 语句块 ② If 条件 Then 语句块1 Else 语句块2 块结构： ① If 条件 Then 语句块 EndIf ② If 条件 Then 语句块1 Else 语句块2 EndIf 例： Dim x As Single, y As Integer x Val InputBox 请输入购书金额： If x 200 Then y x * 0.1 Else y 0 End If Print y 学生练习： 1、火车站行李费的收费标准是50kg以内（包括50kg）0.20元/kg，超过部分0.50/kg。编写程序，要求根据输入的任意重量，计算出应付的行李费。 Dim x As String, s As Currency x Val InputBox 输入行李重量 If x 50 Then s x * 0.2 Else s 50 * 0.2 + x - 50 * 0.5 End If Print s 2、输入二个整数，求出较大的数。 Dim a As Integer, b As Integer a Val InputBox 输入第1个数 b Val InputBox 输入第2个数 If a b Then Print a Else Print b End If 课堂小结 作业： 1、输入一个整数，判断这个数的奇偶性。 2、判断正负数。当输入一个正数，输出它的平方根；当输入一个负数，则输出它的绝对值。