VB中条件选择程序

具体算法步骤如下:
S1 输入n； S2 若 n 3 ，则
c 5，
否则
c 5 1.2(n 3)
S3 输出c．
流程图：
开始
输入n
n≤3
是
否
c=5
c=5+1.2（n-3) 输出c 结束
dim n as integer dim c as single n=inputbox(“输入人数","输入数据") if n<=3 then c=5 else c=5+1.2*(n-3) end if Print "该住户有"; n; "人" Print “应收取的管理费为”; c; ”元”
运行VB程序
按这里 可以运 行程序、 暂停程 序和停 止程序 控 件 工 具 箱 标题栏 菜单栏 工具栏 工 程 资 源 管 理 器 属 性 窗 口 布局 窗口
工作区
窗体设 计窗口
运行VB程序
程序运行流程： （1）启动VB，选择“新建工程”-“标准的exe”。 （2）单击“工程资源管理器”中“查看代码”按钮，在代 码窗口上方左边的对象框中选择form，右边的事件框中选 择click，在Private sub Form_Click()与End Sub之间输入 代码，如图所示： 对象框 2.选择form 事件框 3.选择click
用来解决有关选择 结构的问题。
VB中的选择语句 ——IF语句
条件选择语句-if
条件选择语句是程序设计中最 常用的分支语句,其作用是,通 过对给定条件(表达式)进行判 断,决定要执行的操作。在VB语 言中，条件选择语句的关键字 是if、then、else、end if。
IF语句英译汉:
• If the weather is good tomorrow, then I will go to the park.
S1 输入两个数a， b； S2 若 a<b ，则
if
a<b ____
then
t=a: a=b: b=t __________
t=a，a=b， b=t
输出a，b的值
end if
VB程序代码中一行可 以写多部门每月按以下方法收取 管理费： 3人和3人以下的住户，每户收取5元； 超过3人的住户，每超出1人加收1.2元． 试设计算法，根据输入的人数计算应收取的管 理费？
If · · · · · · then · · · · · · (如果· · · · · · 那么· · · · · · )
• If the weather is good tomorrow, then I will go to the park, else I have to stay at home.
4.输入代码
代码窗口 1.单击“工程资源管理 器” 中“查看代码”按钮
小结
（1）使用计算机程序解决问题的一般步骤：
问题分析 编写算法 代码编写 调试运行
（2）条件选择语句-if
双分支结构格式： 单分支结构格式： If <条件> then If <条件> then 语句组1 语句组1 end if else 语句组2 end if
If· · · · · ·then· · · · · ·else· · · · · ·(如果· · · · · · 那么· · · · · · 否则· · · · · · )
选择结构与选择语句
if 条件 then 语句A end if
If和end if 要成对出现
if
条件 then 语句A else 语句B end if
S1 输入两个数a， b； S2 若 a>b ，则 输出a的值 否则 输出b的值
if
a>b ____ print a ____
then
else print b ____ end if
a>b
否
是
print a
print b
判断执行完毕
练习1：输入两个不相等的数a，b，比较大小，将大 数放在a中，小数放在b中，然后输出a，b
则
a=-a
end if
print a
Print 意为打印，是输出 语句。
S3 输出a
双分支选择结构
格式： If <条件> then 语句组1 else 语句组2 end if 流程图：
判断是否 符合条件
是
否
语句组1
语句组2
判断执行完毕
例题：从键盘分别输入两个不相等的数到变量a、b， 输出其中较大的数。
单分支选择结构
格式： If <条件> then 语句组1 end if 流程图：
判断是否 符合条件
是 否
语句组1
判断执行完毕
例题：输入一个数到变量a，输出它的绝对值（不
用绝对值函数）
a = inputbox("")
S1 输入数a； S2 若a<0 ，
if
a<0 ____ a=-a ____
then
作业
1、一商家卖苹果，有如下优惠：如果购买的苹果小 于5斤，价格是4元每斤,如果大于等于5斤,则可以 打8折。问买X斤苹果，则需要付多少钱？请以此 情景为售货员编写一个计算程序。 2、输入一个大于0的数，程序判断该数的奇偶性。