当前位置：文档之家 › vb选择结构select

vb选择结构select

  • 格式：doc
  • 大小：43.50 KB
  • 文档页数：62

实用标准文档 文案大全 选择结构 一、单分支的if语句 1、格式 [1] If 表达式 Then 语句块 End if 实用标准文档

文案大全 [2] If 表达式 Then语句块 2、功能：

3、说明： （1）“表达式”一般为关系或逻辑表达式。 实用标准文档

文案大全 （2）“语句块”可以是任意多个语句，只不过“格式[2]”中的多个语句之间必须用：隔开，书写在同一行。此时，“End if”可以省略。

4、举例： 实用标准文档

文案大全 例1：任意读入两个整数，从小到大输出这两个数。 Private Sub Command1_Click() Dim a As Integer, b% a = InputBox("请输入一个整数：") b = InputBox("请输入一个整数：") 实用标准文档

文案大全 If a > b Then Print b; a End If If b >= a Then Print a; b End If 实用标准文档

文案大全 End Sub

5、InputBox函数 （1）简单格式 InputBox("提示信息") （2）使用格式（赋值语句） 实用标准文档

文案大全 变量= InputBox("提示信息") （3）功能：从键盘上接受一个数据，然后赋值给某个变量（即读入一个任意值，保存到某变量中。 （4）用InputBox函数输入的数据默认为字符型，但由于赋值语句的特点“右实用标准文档

文案大全 边服从左边”，通常会自动转换成相应类型值之后再赋值给变量。 例如： Private Sub Command1_Click() 'a,b不定义就使用，被认为是变体型 实用标准文档

文案大全 a = InputBox("请输入一个整数：") b = InputBox(请输入一个整数：") If a > b Then Print b, a If b >= a Then Print a, b End Sub 输入的是“9”和“12” 实用标准文档

文案大全 则会被当成字符串"9"和字符串"12"，赋值给a和b，而字符串按其ASCII码值比较大小（字典序）。 因此，“变量最好先定义再使用”

二、双分支if语句 实用标准文档

文案大全 1、格式 [1] If 表达式 Then 语句块1 Else 语句块2 End if 实用标准文档

文案大全 [2] If 表达式 Then 语句块1 Else 语句块2

2、功能 3、说明 实用标准文档

文案大全 格式[1]中Else独立占一行！

4、举例 改写上例： Option Explicit Private Sub Command1_Click() 实用标准文档

文案大全 Dim a%, b% a = InputBox("请输入一个整数：") b = InputBox("请输入一个整数：") If a > b Then Print b, a Else 实用标准文档

文案大全 Print a, b End If End Sub [法二]让a中存放较小数，b中存放较大数。 Option Explicit 实用标准文档

文案大全 Private Sub Command1_Click() Dim a%, b%, t As Integer a = InputBox("请输入一个整数：") b = InputBox("请输入一个整数：") If a > b Then '交换二者的值 t = a 实用标准文档

文案大全 a = b b = t End If Print a, b End Sub *重要基本算法：两数交换借助第三数。 实用标准文档

文案大全 类似于两水杯交换其中的内容，借助第三个空杯子，最终空杯子依然是空的。但是，中间变量t却保存了a或b的值。只是没用。

例2：任意读入3个整数，从小到大输实用标准文档

文案大全 出这3个数。 [算法提示：让a中放最小数，c中放最大数] Option Explicit Private Sub Command1_Click() Dim a%,b%,c%,t% 实用标准文档

文案大全 A=inputbox(“:”) b=inputbox(“:”) c=inputbox(“:”) if a>b then t=a:a=b:b=t end if 实用标准文档

文案大全 if a>c then t=a:a=c:c=t end if if b>c then t=b:b=c:c=t end if 实用标准文档

文案大全 print a;b;c End Sub

三、多分支if语句 1．格式 If 表达式1 then 实用标准文档

文案大全 语句块1 Elseif 表达式2 then 语句块2 Elseif 表达式3 then 语句块3 …… 实用标准文档

文案大全 Else 语句块n End if 2．功能

3．说明 实用标准文档

文案大全 （1）各“表达式”通常为关系（>、=等）表达式、逻辑表达式（Not、And、Or） （2）Else子句可以省略（但一般不省）， 省略之后可能一个分支都不被执行。 实用标准文档

文案大全 （3）各分支中最多只会有一个分支被执行到。 4．应用举例 例2、商场打折：满500元打5折；满300不足500打6折；满200不足300打7折；满100不足200打8折；其余实用标准文档

文案大全 不打折。请为收银员编程，输出顾客应付款。 Option Explicit Private Sub Command1_Click() Dim cost As Single, x As Single 'x表示商品原价 实用标准文档

文案大全 x = InputBox("读入原价") If x >= 500 Then cost = x * 0.5 ElseIf x >= 300 Then cost = x * 0.6 ElseIf x >= 200 Then 实用标准文档

文案大全 cost = x * 0.7 ElseIf x >= 100 Then cost = x * 0.8 Else cost = x End If 实用标准文档

文案大全 Print "应付款:"; cost End Sub [注意：对变量的判断，最好按从小到大或从大到小的顺序书写。] 例3、批发铅笔：满500支打5折；满300不足500打6折；满200不足300实用标准文档

文案大全 打7折；满100不足200打8折；其余不打折。每支铅笔原价1元。请为收银员编程，输出顾客应付款。 [法一：同前例] [法二：用Select Case语句] 实用标准文档

文案大全 四、Select Case语句（多分支） 1．格式 [格式一] Select case 表达式 Case 表达式1:语句块1 Case 表达式2:语句块2 实用标准文档

文案大全 Case 表达式3:语句块3 …… Case Else:语句块n End Select [格式二] Select case 表达式 实用标准文档

文案大全 Case 表达式1 语句块1 Case 表达式2 语句块2 Case 表达式3 语句块3 实用标准文档

文案大全 …… Case Else 语句块n End Select 2．功能 实用标准文档

文案大全 3．说明： （1）Select case后的表达式通常为常量、变量或算术表达式 （2）而Case后的若干表达式只能是如下几种形式： ①单个常量(对应“Select case后的表达式”与

合集下载

VB语法_精品文档

VB语法_精品文档


8
3.2.1 声明变量
• 变量是在程序运行过程中其值可以变化的量
• 使用变量前，一般必须先声明变量名和其类 型，以确定为它分配多大的存储单元
– 语法：
Dim 变量名 As 类型
– 例如：
Dim strMyName As String Dim nAge As Integer
• 可以用一个声明语句声明多个同类型的变量
2022年9月17日星期六 14
3.3 运算符与表达式
3.3.1 赋值语句 3.3.2 运算符 3.3.3 表达式
2022年9月17日星期六
15
3.3.1 赋值语句
• 赋值语句是任何程序设计中最基本的语句
– 它的作用是把右边表达式的值赋给左边的变量 – Visual 使用赋值号“=”来赋值 – 语法：
3.1415926 34567888
4字节 8字节 16字节
负值取值范围为–3.402 823E+38～–1.401 298E–45 正值取值范围为1.401 298E–45～3.402 823E+38
负数取值范围为–1.797 693 134 862 31E+308～ –4.940 656 458 412 47E–324 正值取值范围为4.940 656 458 412 47E–324～ 1.797 693 134 862 31E+308
– 例如：
Dim A, B As Integer
2022年9月17日星期六
9
3.2.2 变量的命名规则
• 变量名命名规则：
– 必须以字母或汉字开头，不能以数字或其他字 符开头
– 变量名中其他字符可以是字母、汉字、数字或 下划线组成，不允许是空格、句号或其他标点 符号，长度不超过255个字符
VB第4章

VB第4章


数据输入输出
例1：MsgBox "请确认交易金额",33,"交易 确认"
例2：MsgBox "请确认交易金额",52,"交易 确认"
MsgBox按钮设置
分组
内部常数 VBOkOnly VBOkCancel VBAboutRetryIgnore VBYesNoCancel VBYesNo VBRetryCancel VBCritical
数据输入输出
1、标签和文本框 说明：标签利用它的Caption属性；文本框利 用它的Text属性。 例如： a%=Val（Text1） ’完成数据输入 c！=5/9*（a-32） Text2=c ’完成数据输出 Label1.Caption=3.14*r*r
数据输入输出
2、输入对话框InputBox函数 功能:打开一个对话框，等待用户输入，返回 字符串类型的输入值。 例: InputBox("请输入数值")
If 条件语句
2、双分支结构
形式： （1）If <表达式> Then <语句块1> Else <语句块2> End if
（2）If <表达式> Then
T 表达式 F
语句块 1
语句块 2
<语句1>
Else
<语句 2>
例：下列哪一段代码是正确的？
1) if a>1 then k=0 else k=1 2) if a>1 then k=0 end if 错误 3) if a>1 then k=0 else k=1
Visual Basic 程序设计教程
第四章 VB控制结构
第5章 选择结构程序设计

第5章 选择结构程序设计


通过例5.4和5.5，会注意到：无论是块If单分支结构还是块If双分支结构，均 把程序执行过程分为满足条件的一支和不满足条件的另一支，但在应用中会遇 到类似下面的问题或更复杂的情况，例如，分段函数： x2 1 x＞0 y 0 x＝0 2 x＜0 x 1
自变量x的取值分为三种情况，对应函数y有不同的计算表达式。此类问题 可以使用三个块IF单分支结构完成；也可以使用块IF双分支结构。若采用前 者，读者可仿照例5.4完成；若采用后者，可先把x的取值分为“等于0”和 “不等于0”两种情况，再把“不等于0”这种情况分成“大于0”和“小于0”两种 情况，代码如下： Dim x As Single, y As Single x = Val(InputBox("请输入变量的值")) If x <> 0 Then If x > 0 Then ' 不等于0的情况之一 y=x^2+1 Else ' 不等于0的情况之二 y=x^2-1 End If
2 2
Dim x As Single, y As Single ' 声明x,y为单精度变量 x = Val(InputBox("请输入变量的值")) ' 输入x的值 If x >= 0 Then ' x>=0时计算y y=x^2+1 End If If x < 0 Then ' x<0时计算y y=x^2-1 End If Print "x="; x, "y="; y 该代码段根据x取值的两种情况，分别计算出相应的y值，一个单分支If 结构完成一种情况的计算，因此结构简单，容易理解，但程序不够简练。
真
语句组1
程序流程有三种最基本的控制结构,即顺序结构、选择结构和讲解

程序流程有三种最基本的控制结构,即顺序结构、选择结构和讲解


布尔表达式练习
？－3＜－2＜－1 False a=3:b=4:c=5 ?a=b=c False 表示一个数x是能被3整除的奇数 x Mod 3=0 and x Mod 2< >0 x Mod 2=1 and x Mod 2< >0 表示一个数x∈[2,5] x＞＝2 and x＜＝5 表示一个数x不在[2,5]区间内 x＜2 or x＞5
(y Mod 4=0 AND y Mod 100<>0 ) OR 400=0 AND y Mod 100=0 )
(y Mod
(y Mod 4=0 AND y Mod 100<>0 ) OR y Mod 400=0
地球公转一周的时间为：365天5小时48分56秒
判断闰年的科学依据
每经过4年，剩余的时间为：5小时48分56秒×4＝23小时15分44秒 则每4年都要多加24小时－ 23小时15分44秒＝44分16秒
每经过100年，就会多加44分16秒×25＝18小时26分40秒
比较接近一天，所以每到100年，就将这多加的近似一天的时间减去， 即停止追加一天 而实际上又少加了24小时－ 18小时26分40秒＝5小时33分20秒 每经过400年，就会少加4 × 5小时33分20秒≈24小时 所以每过400年，就应该再补加一天 故：每4年闰年出现一次；每400年，闰年再出现一次 其它的整100年，闰年停止出现一次
每400年闰年再出现一次其它的整100年闰年停止出现一次12选择控制结构选择控制结构又称分支结构它体现了程序运行过程中的自我判断能力程序可以根据当前执行的某个条件进行比较判断并依据判断的结果成立与否来决定下一步做什么不做什么在两条或多条程序路径中选择一条来执行即只执行程序中的一部分语句可见在此结构的程序运行过程中有些语句会执行一次有些语句在此次程序运行过程中没有机会执行