




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、1编程就是针对要解决的问题用编程就是针对要解决的问题用VBVB能接受的语句描述问题的能接受的语句描述问题的解决过程和方法。解决过程和方法。如何将语句组织在一起按需要的顺序执行是下面要解决的如何将语句组织在一起按需要的顺序执行是下面要解决的内容。内容。三种基本的流程控制结构:三种基本的流程控制结构:顺序结构,分支结构,循环结构顺序结构,分支结构,循环结构结构化程序设计思想:结构化程序设计思想:自顶向下、逐步细化自顶向下、逐步细化自顶向下:自顶向下:先从全局、整体设计先从全局、整体设计逐步细化:逐步细化:将一个问题分解成几个较小的问题解决将一个问题分解成几个较小的问题解决2.7 Visual Ba
2、sic的基本控制结构的基本控制结构22.7.1 2.7.1 顺序结构顺序结构赋值语句 : 形式: 变量名表达式 对象.属性表达式 功能: 将表达式的值赋值给变量名或指定对象的属性。 一般用于给变量赋值或对控件设定属性值. 例: Dim A As Single A!=3 A=A+1 Text1.Text 欢迎使用Visual Basic 6.0”说明:1.执行过程:先求表达式的值,然后将值赋值给左边的变量。2.赋值号右边:可以是变量、常量、函数及其构成的表达式。左边只能是变量,不能是常量、函数或表达式。32.赋值号和关系运算符的区别3.右边表达式的值一般与赋值号左边的变量的数据类型相一致。当这两
3、种数据类型不同时,VB系统将按以下方法处理:u 当表达式的值与变量的精度不同时,系统将强制转换成赋值号左边变量的数据类型。u 当把字符串赋值给数值型变量时,系统会将字符串自动转换成数值再赋值,但当字符串中包含非数字字符或是一空串时,则出错。u 当把逻辑值赋给数值变量时,True转换为1,False转换为0;把数值型值赋给逻辑变量时,非0值转换为True,0转换为False。4.不能用一个赋值语句同时给多个变量赋值。4指出下列赋值语句中的错误:指出下列赋值语句中的错误:10=sin(x)+yc=3+sqr(-3)c+x+y=c*yX=sin(x)/(20 mod 2)Now()=x+y5Priv
4、ate Sub Form_Click()Dim X As Integer, Y As IntegerX = 6 赋值语句Print X = 6 输出关系表达式Print X = 6 = -1 输出关系表达式,按优先级计算X = Y = 6 给变量X赋值Print X, YX = 6Y = 6X = X + 1Print X, YEnd Sub 例第二章 Visual Basic语言基础62.7 Visual Basic的基本控制结构的基本控制结构2.7.1 2.7.1 顺序结构顺序结构语句序列语句序列1语句序列语句序列2在顺序结构中程序语句是严格按书写顺序依次被执行的,这是一种最简单的控制结构
5、。72.7.2 2.7.2 条件分支结构条件分支结构(选择结构)(选择结构)1. 1. 单分支结构单分支结构单分支结构语句有单行结构和块结构两种用法。If If Then Then 单行结构 If Then 块结构 语句块 End If 表达式 语句块 T F 该语句的作用是当表达式的值为True,执行Then后面的语句块,否则不做任何操作。表达式:关系表达式、逻辑表达式,算术表达式,算术表达式值按非零为True,零为False进行判断。8例例1 1:已知两个数已知两个数x x和和y y,比较它们的大小,使得,比较它们的大小,使得x x大于大于y y。 IfIf xy xy ThenThen
6、t=x t=x x=y x=y y=t y=t End If End If 或或 If If xy xy ThenThen t=x: x=y: y=t t=x: x=y: y=t 单行结构,只能是一句语句或多条语句间用冒号分隔,单行结构,只能是一句语句或多条语句间用冒号分隔,而且必须在一行上书写。而且必须在一行上书写。 例例2 2: If If X=5 X=5 ThenThen Y=6 Y=692.2.双分支结构双分支结构 If 表达式 Then语句块1Else语句块2End If或 If 表达式 Then 语句1 Else 语句2 当表达式的值为True时,执行Then后面的语句块1,否则执
7、行Else后面的语句块2。Else后不再有条件表达式语句块1和语句块2必须必须执行一块且只能且只能执行一块 表达式 F 语句块 1 T 语句块 2 本章目录10例例计算分段函数yxxxxxxxsincos231030本章目录单分支结构实现:y=sin(x)+sqr (x*x+1)If x=0 Then y=cos(x)x3+3*x 11双分支结构实现 If x0 Then y=sin(x)+sqr (x*x+1)Else y=cos(x)x3+3*xEnd If12注意注意IfIf和和ThenThen之间表达式的写法。之间表达式的写法。关系表达式:关系表达式: X=Y X=Y 含义含义 X M
8、OD 2=0 X MOD 2=0 含义含义 X/2 =INT(X/2) X/2 =INT(X/2) 含义含义 X MOD N=0 X MOD N=0 含义含义 X/N =INT(X/N) X/N =INT(X/N) 含义含义X X是个两位数,是个两位数,X X的十位数字和个位数字之和等于的十位数字和个位数字之和等于9 9,条,条件如何表示?件如何表示?X X是个三位数,是个三位数,X X的各位数字之和等于的各位数字之和等于2020,条件如何表示?,条件如何表示?X X是个四位数,是个四位数,X X的各位数字之和等于的各位数字之和等于1616,条件如何表示?,条件如何表示?X是一个两位数:是一个
9、两位数:个位表示个位表示: X MOD 10 任何一个整数除以任何一个整数除以10的余数永远等于此数的个位数字的余数永远等于此数的个位数字十位表示十位表示: X10X是一个三位数:是一个三位数:个位表示个位表示: X MOD 10 把想要得到的十位数字变成个位再把想要得到的十位数字变成个位再MOD 10十位表示十位表示:X10 MOD 10百位表示百位表示: X100思考:四位整数思考:四位整数X的各位数字怎么用的各位数字怎么用X表示?表示?14逻辑表达式:逻辑表达式:X X表示一个年份值表示一个年份值,X,X是闰年应该满足什么条件?是闰年应该满足什么条件?A,B,CA,B,C表示三角形三边,
10、表示三角形三边,A,B,CA,B,C能构成三角形应能构成三角形应该满足什么条件?该满足什么条件?数值表达式:数值表达式:Dim x As SingleDim x As Singlex = Val(Text1.Text)x = Val(Text1.Text)If x ThenIf x Then Print x Print xElseElse Print x + 1 Print x + 1End IfEnd If结果是什么?结果是什么?15例:设计一个账号,密码验证程序。要求用户名为hg,密码为“abc”,登录界面如下:用户名,密码正确弹出欢迎窗口,否则弹出错误提示。思考1:账号、密码不区分大小写
11、且账号前后容许有空格怎么实现?思考2:密码改为系统日期的年份,怎么实现?163.3.多分支结构多分支结构 If 表达式1 Then语句块1ElseIf 表达式2 Then语句块2 ElseIf 表达式N Then语句块NElse Else 语句块 n+1End If 表达式 2 表达式n T F T F 语句块 n+1 语句块 2 语句块 1 F T 表达式 1 语句块 n 作用:根据表达式值确定执行哪个语句块 (1)IfThenElseIf 语句 17说明:功能:依次对给定的条件表达式进行判断,哪个条件表达式的值为TRUE,则程序就执行该条件表达式后面的语句块。当多个条件都为TRUE时,程序
12、只执行最先遇到的条件表达式后面的语句块,然后退出多分支结构。当所有条件都为FALSE时,则执行ELSE后面的语句块,如没有ELSE语句块,则直接退出多分支结构。ElseIf 不能写成 Else If 会报错End If 写成 EndIf 自动修正Else 后不再有条件表达式后不再有条件表达式18例 编程将学生的百分制成绩转换成等级制,90分以上(包括90)为A,80-90分(包括80)为B,70-80分(包括70)为C,60-70分(包括60)为D,60分以下为F。(从文本框中接收学生的成绩数据)注意:书写条件表达式时,要注意书写次序,防止有些值会被过滤掉。如P63多分支结构例多分支结构例19
13、例 已知变量ch中存放了一个字符,判断该字符是字母字符、数字字符还是其他字符。 If 字母的条件表达式? Then MsgBox(ch + 是字母字符) 考虑大小写字母 ElseIf 数字字符的条件表达式? Then MsgBox(ch + 是数字字符) Else MsgBox(ch + 是其他字符) End If多分支结构例多分支结构例20(2 2)Select CaseSelect Case语句语句 Select Case 测试表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 Case Else 语句块n+1End Select表达式列表与测试表达式的类型必须相同
14、,是下面4种形式之一 :表达式 例: A+5一组用逗号分隔的枚举值 2,4,6,8 表达式1 To 表达式2 60 To 100Is 关系运算符表达式 Is 60本章目录多分支结构多分支结构21说明:(1)测试条件表达式可以是数值型或字符串表达式。一般为变量或含变量的表达式,测试表达式只能为一个表达式。(2)表达式列表必须与测试条件表达式的类型相同。可以是以下四种形式:p表达式 例: A+5p一组用逗号分隔的枚举值 例: 2,4,6,8 p表达式1 To 表达式2 例: 60 To 100pIs 关系运算符表达式 例: Is 0 And y 0 Then MsgBox(在第一象限) ElseI
15、f x 0 Then MsgBox(在第二象限)ElseIf x 0 And y 0 And y 0 And y 0 MsgBox(“在第一象限”) Case x 0 MsgBox(“在第二象限”) Case x 0 And y 0 And y 0 MsgBox(“在第四象限”)End Select代码二错误:1. Select Case 后不能出现多个表达式2. Case后的表达式不符合前面的形式24【例题2-8】 将【例题2-7】的程序用Select Case语句编写。【例题2-9】 某商场采用购物打折的优惠办法促销,每位顾客一次购物:在100元以上,按九五折优惠;在500元以上,按九折优
16、惠;在1000元以上,按八五折优惠;在5000元以上,按八折优惠。Select CaseSelect Case语句例语句例 Select CaseSelect Case语句只能用来测试某一个表达式的值的情况,不能用语句只能用来测试某一个表达式的值的情况,不能用来测试变量之间的关系来测试变量之间的关系25If语句的嵌套是指If或Else后面的语句块中又包含If语句如:If 表达式1 Then If 表达式2 Then End If End If4.If4.If语句的嵌套语句的嵌套 IF Then . IF Then Else . End If . Else . IF Then . Else .
17、End If . End IFIF Then . Select Case Case IF Then Else . End If Case. . End Select .End IF2627【例题2-10】思路分析:用X表示产品重量,Y表示应付货款。则Y= 1500 x (x=10) 1500*10+1200*(X-10) (10 x15) IF Then .Else . IF Then . Else . End If . End IF282.7.2 2.7.2 条件分支结构条件分支结构5. 5. 使用条件函数使用条件函数(1)IIf()函数的语法格式是:变量 = IIf (条件表达式,True部分,False部分)IIf函数是If Then Else 结构的简洁表示例如,将
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 考点攻克自考专业(小学教育)试卷含完整答案(考点梳理)
- 解析卷-人教版8年级数学上册《轴对称》定向测评试卷(含答案详解版)
- 发展渔业养殖业的机会与挑战
- 2025年神经科帕金森病试题答案及解析
- 2025年风湿免疫科生物制剂应用综合考试题答案及解析
- 光学镜片制作工突发故障应对考核试卷及答案
- 糕点面包烘焙工适应性考核试卷及答案
- 考点解析-河北省黄骅市七年级上册整式及其加减单元测评试卷(含答案详解)
- 粗钨酸钠溶液制备工质量追溯知识考核试卷及答案
- 智能电子标签创新创业项目商业计划书
- (2025秋新修订)人教版三年级数学上册全册教案(教学设计)
- 新版人教版二年级上册数学全册1-6单元教材分析
- 期中考试考试安排及流程说明
- 铜矿采选工程可行性研究报告
- 2024-2025学年北京市海淀区三年级(下)期末数学试卷
- 大型展会现场安全保障工作方案
- 2025年秋季学期学校全面工作计划
- 收费站文明服务培训
- 战术基础动作课件教学
- 2025年国家电网中级职称考试(档案专业)历年参考题库含答案详解(5卷)
- 2024年医师定期考核超声专业试题及答案
评论
0/150
提交评论