【vb精品源码栏目提醒】:网学会员vb精品源码为您提供VB教程_第04章--13章 - 中考高考参考,解决您在VB教程_第04章--13章 - 中考高考学习中工作中的难题,参考学习。
第4章 选择结构 在程序设计中经常遇到这类问题,它需要根据不同的情况采用不同的处理方法。
例如,一元二次方程的求根问题,要根据判别式小于零或大于等于零的情况,采用不同的数学表达式进行计算。
对于这类问题,如果用顺序结构编程,显然力不从心。
必须借助选择结构。
本章主要介绍实现选择结构的语句。
包括:行If语句、块If语句、 Else If语句、Select Case语句,以及选择结构在程序设计中的应用。
退出4.1 块If4.2 Else If语句4.3 行If语句4.4 Select Case语句 4.1 块If4.1.1 块If的格式、功能格式:If 条件 then 语句块1 Else 语句块2End If 说明: (1)“条件”一般为关系表达式或逻辑表达式。
通常把关系表达式或逻辑表达式的值为真时,称为条件满足;值为假时,称为条件不满足。
反之亦然。
(2)语句块1、语句块2分别是“条件”满足或不满足时,处理方法的描述,可以是若干个语句。
(3)If…Then 、Else、End If 是
VB的保留字。
功能: (1)块If首先判断“条件”,其值为真时,执行语句块1;为假时执行语句块2。
当缺省Else…中的内容时,该选择结构只对条件满足的情况进行处理。
执行过程如图4-1所示。
【 例 4.1】 火车站行李费的收费标准是 50kg 以内 (包括 50kg ) 0.20/kg, 超过部分 0.50/kg。
编写程序, 要求根据输入的任意重量,计算出应付的行李费。
根据题意计算公式如下: weight×0.2 weight≤50Pay= (weight-50)×0.5+50×0.2 weight>50程序代码如下: 计算按钮代码 Private Sub Command1_Click() Dim weight as single,pay as single weight Text1.Text If weight 50 Then pay (weight - 50) 0.5 50 0.2 Else pay weight 0.2 End If Text2.Text pay End SubPrivate Sub Command2_Click() Text1.Text Text2.Text End Sub Private Sub Command3_Click() End End Sub 4.1.2 块If的嵌套 所谓块If语句的嵌套,就是在语句块1或语句块2中又包含块If语句。
【例4.2】任意输入3个数,按照从大到小的顺序输出。
算法分析:排序的基本方法,就是比较大小,然后根据比较的结果分别加以处理。
本例把3个数分别放在A,B,C中,处理过程为:若ABIf c a Then 用C去比较 Text4.Text c CA成立,C最大 Text5.Text a Text6.Text b Else If c b Then Text4.Text a C
上一篇:
Java名字打架小游戏代码
下一篇:
试析影响公路路面平整度的因素及应采取的施工措施