- 1、本文档共161页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第五章 三种基本结构程序设计 本章主要任务: (1)了解算法概念及表示; (2)掌握顺序结构程序设计方法; (3)掌握赋值语句的使用; (4)掌握VB 数据的输入/输出方法; (5)掌握VB选择结构的格式及使用; (6)掌握VB循环结构的格式及使用; (7)正确理解选择结构和循坏结构的嵌套。 5.1-2 赋值语句 赋值语句的使用格式: 变量名=表达式 对象.属性=表达式 功能: 将表达式的值赋值给变量名或指定对象的属性。 一般用于给变量赋值或对控件设定属性值. 例: sRate!=0.1 Text1.Text = 欢迎使用Visual Basic 6.0” 说明: 1 执行过程:先求表达式的值,然后将值赋值给左边的变量。 2 右边的表达式可以是变量、常量、函数调用等特殊的表达式。 3 不要将“=”理解为数学上的等号: A=A+1 是表示将A单元的值加1后以放回到A单元。 5.1-2 赋值语句 5.1-2 赋值语句 举例(下列赋值语句有无错误,为什么?) 例1: Dim X,Y,Z As Integer X = 4 Y = X * a Z = X * Str(X) Print X,Y,Z 例2:X+Y=5 例3: Sin(X)=2 例4: X,Y,Z=0 5.1-2 赋值语句 注意: 赋值号“=”左边只能是变量名或对象的属性名,左边不能出现表达式或函数调用 一次只能对一个变量赋值 赋值号“=”两边的数据类型一般要求应一致。 如两边类型不同,则以左边的数据类型为基准 如右边表达式结果的数据类型能转换成左边的数据类型,则右边先强制转换后,再赋值给左边 如右边表达式结果的数据类型不能转换成左边的数据类型,则系统提示出错 示例参见P89 5.1-2 赋值语句 【经典例子】设计程序交换两个变量的值. 思考:有两个瓶子A和B,分别装有醋和豆油,如何交换两个瓶子的液体? 方法:借用第3个瓶子T 算法:T=A:A=B: B=T 设计界面: 5.1-2 赋值语句 代码: Private Sub Command1_Click() A = Text1.Text B = Text2.Text T = A A = B B = T Text1.Text = A Text2.Text = B End Sub 5.1-3 数据的输出 5.1-3 数据的输出 【举例】 Private Sub Command1_Click() a = 2: b = 3: c = 6 Print a, b, c, stud, dent Print a; b; c; stud; dent Print a=; 2; Print b=; 3 End Sub 5.1-3 数据的输出 2. MsgBox函数和MsgBox过程 函数形式:变量[%] = MsgBox(提示[,按钮[+图标]+ [缺省按钮]+[模式]][,标题]) 过程形式: MsgBox 提示[,按钮[+图标] +[缺省按钮]+ [模式]][,标题] 5.1-3 数据的输出 5.1-3 数据的输出 根据用户所选按钮,函数返回1—7的整数值,其含义如下表:(表5.2) 5.1-3 数据的输出 格式: MsgBox(msg[,type][,title]) MsgBox函数的应用--例1: Private Sub Form_Click () msg1$ = 要继续吗? msg2$ = Operation Dialog Box r = MsgBox(msg1$, 34, msg2$) Print r End Sub 注:34=2(按钮数目样式)+32(图标类型)+0(默认按钮)+0(模式) 例2:要求:单击窗体,出现提示框 在窗体的Click事件中编写代码: Private Sub Form_Click() a = MsgBox(确定删除文件吗?, 1 + 32, msgbox示例) End Sub MsgBox过程(语句) MsgBox函数也可以写成过程代码的形式。由于MsgB
您可能关注的文档
- 第5讲 机构投资者-投资基金(一)2010.4.ppt
- 第5章 国际货物运输.doc
- 第5章 INCOTERMS2000.ppt
- 第5章 国际服务贸易与国际技术贸易.ppt
- 第5章 投资基金.ppt
- 第05章 证券法.doc
- 第5章磁路与变压器.ppt
- 第5章基金市场.ppt
- 第6章 开放经济体IS-LM模型.doc
- 第6章 证券市场运行.ppt
- 15 声音的高低课件 科学四年级上册粤教粤科版.pptx
- 15 设计与制作:用牛奶做钥匙扣 课件 科学五年级上册粤教粤科版.pptx
- 2024新粤教科技版科学第6课 动物是生物 课件.pptx
- 粤教粤科版科学四年级上册 14 声音的强弱 课件.pptx
- 18 空气中有水吗 课件 科学五年级上册粤教粤科版.pptx
- 19 网上学习:调查各地的空气湿度 课件 科学五年级上册粤教粤科版.pptx
- 2 开花和结果课件 科学四年级上册粤教粤科版.pptx
- 川民版家庭社会法治7-8年级 第一章 第三节 《家庭规划更美好》 教案.doc
- 第2单元 探索2 物联网的识别技术 教学设计 苏科版信息科技八年级上册.docx
- 2单元 探究技能 分类课件 科学四年级上册粤教粤科版.pptx
文档评论(0)