第6章-程序VB-顺序结构程序设计ppt课件.ppt
《第6章-程序VB-顺序结构程序设计ppt课件.ppt》由会员分享,可在线阅读,更多相关《第6章-程序VB-顺序结构程序设计ppt课件.ppt(51页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、第6章 顺序结构程序设计 建议课时(1.5课时)我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物学习重点 赋值语句的使用。熟练使用常用的输入输出语句。其他顺序语句的使用。掌握常用的顺序结构算法。 我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物本章内容6.1 赋值语句6.2 常用的输入语句6.3 常用的输出语句6.4 其他语句6.5 常用算法及应用本章小结 我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美
2、丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物引言顺序结构 语句 1 语句 2 按语句在代码中出现的先后次按语句在代码中出现的先后次序序“从上到下从上到下”依次执行依次执行 Private Sub Form_Load() List1.AddItem 西游记西游记 List1.AddItem 傲慢与偏见傲慢与偏见 List1.AddItem 水浒水浒 List1.AddItem 王子复仇记王子复仇记 List1.AddItem 白雪公主白雪公主End Sub我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错
3、:表里边有一个活的生物引言(续)顺序结构中的各条语句之间顺序结构中的各条语句之间可能存在一定的关联,要注可能存在一定的关联,要注意各语句之间的逻辑顺序要意各语句之间的逻辑顺序要求;求;a=Val(Text1.Text) b=Val(Text2.Text)c=Val(Text3.Text)有的顺序语句之间没有任何有的顺序语句之间没有任何关联,先执行谁都无所谓,编关联,先执行谁都无所谓,编程时可以根据程序员的习惯设程时可以根据程序员的习惯设置先后次序,一旦程序代码确置先后次序,一旦程序代码确定,各条语句的执行顺序也就定,各条语句的执行顺序也就唯一了。唯一了。 Private Sub CmdDisP
4、lay_Click() Dim Num As Double Num=Val(TxtNum) TxtInt=Cstr(Fix(Num) TxtDec=Cstr(Num -Fix(Num) End Sub 我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物引言(续)顺序结构中的典型语句n赋值语句n对象方法的调用语句n用户交互语句n某些不会引起程序发生跳转的控制语句 我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物6.1 赋 值
5、 语 句 一般格式如下:Let varname = 表达式作用是将表达式的值赋给变量或属性。n说明:n(1)Let是关键字,可省略。n(2)varname是变量或属性的名称,遵循标准变量命名约定。n(3)表达式是赋给变量或属性的值。 我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物6.1 赋 值 语 句(续)如:Dim MyStr As String, MyInt As IntegerLet MyStr = Hello World n等价于:MyStr = Hello World Let MyInt = 5
6、 n等价于: MyInt = 5 见见“4.3.3变量变量”一节中一节中“变量的赋值变量的赋值” 我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物6.1 赋 值 语 句(续)注意:n(1)等号左侧只能是变量或对象的属性名,且只能给运行时可修改的对象属性赋值,试图用赋值语句修改只读属性的值是错误的,如以下代码是错误的。Form1.Name = MyForm“Text1. ScrollBars = vbHorizontaln(2)赋值语句中左侧变量或属性都是有类型的,赋给它们的值也应该是同类型数据,如果表达式的
7、值类型和变量或属性类型不一致时,系统将最大限度的进行自动转换,把表达式的值转换成与变量或属性相同类型后再进行赋值,若自动转换失败,系统将提示错误信息。 我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物6.1 赋 值 语 句(续)赋值语句中的数据自动转换原则 变量变量数值数值条件条件结果结果IntegerLong在在Integer取值范围内取值范围内LongIntegerSingleDouble 在在Single取值范围内取值范围内DoubleSingle整型整型实型实型在整型取值范围内在整型取值范围内四舍五
8、入四舍五入实型实型整型整型数值型数值型BooleanTrue=-1 False=0BooleanBoolean数值型数值型非非0=True 0 =False数值型数值型DateDate取距离取距离1899-12-31的天数的天数DateDate数值型数值型距离距离1899-12-31的若干天的日期的若干天的日期数值型数值型StringString 表示数值的字符串表示数值的字符串BooleanBooleanStringString 表示逻辑、数值的字符串表示逻辑、数值的字符串DateStringString 表示日期、数值的字符串表示日期、数值的字符串StringString其他其他在数据外加
9、双引号在数据外加双引号我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物例题在程序中将变量A定义为Integer型 ,则语句A = “333” + “222” 将使A的值成为_。溢出溢出我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物例题运行下面的程序,单击命令按钮C1,则窗体上的输出是_。Private Sub C1_Click() Dim A As Integer, B As Boolean, C As Integer
10、 Dim D As Integer A = 20 / 3 B = True C = B D = A + C Print A, D, A = A + CEnd Sub 7 6 False 我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物6.2 常用的输入语句常用的输入语句输入是指提供程序中待处理的数据,可以是运行时由用户使用键盘或鼠标进行输入的,也可以是先行程序的结果作为后继程序的输入。 6.2.1 用控件输入 6.2.2 输入框InputBox函数 我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样
11、一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物6.2.1 用控件输入大部分控件可以在运行时通过界面修改其主要属性。常用的输入控件n1文本框 n2单选钮和复选框 n3列表框和组合框 我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物1文本框文本框既是一个输入控件又是一个输出控件。Text属性是实现输入输出的重要属性。例6-1 输入三门课程得分,计算总分。 Private Sub Command1_Click() Text4.Text = Val(Text1.Text) + Val
12、(Text2.Text) + Val(Text3.Text)End Sub 我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物2单选钮和复选框 单选按钮(OptionButton)和复选框(CheckBox)主要由用户通过单击鼠标来确定要输入的数据 。Caption属性、Value属性是实现输入的重要属性。 例6-2我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物2单选钮和复选框例6-2 实现将文字进行放大1倍、2倍和3倍
13、。 Dim x As Integer 过程级变量过程级变量x,用来存放标签最原始的尺寸,用来存放标签最原始的尺寸Private Sub Form_Activate() 程序开始时获取程序开始时获取x的初始值的初始值 x = Label1.FontSizeEnd SubPrivate Sub Option1_Click() Label1.FontSize = xEnd SubPrivate Sub Option2_Click() Label1.FontSize = 2 * xEnd SubPrivate Sub Option3_Click() Label1.FontSize = 3 * xEnd
14、 Sub我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物3列表框和组合框 使用列表框(ListBox)和组合框(ComboBox)进行数据的输入,主要依靠用户通过鼠标单击列表项来获取数据。List、Text、ListIndex、ListCount等属性是实现数据输入的重要属性。例6-3我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物3列表框和组合框例6-3列表框中有若干门课程名称,用户选中某课程后单击“确定”按钮,使按钮
15、上的显示文字与该课程的名称一致。Private Sub Command1_Click() Command1.Caption = List1.TextEnd Sub 本题可作为本题可作为“一钮多用一钮多用”的部分功能实现,根据不同的部分功能实现,根据不同的选择呈现出不同的按钮样的选择呈现出不同的按钮样式,若采用选择结构继续编式,若采用选择结构继续编程则可实现多种用途的按钮。程则可实现多种用途的按钮。 我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物6.2.2 输入框InputBox函数 1InputBox函数
16、InputBox函数格式如下:Varname=InputBox(prompt,title ,default ,xpos ,ypos ,helpfile, context)功能:程序执行以上格式语句时,弹出一个供用户输入信息的对话框,等待用户输入正文或按下按钮,并返回文本框内容。如:s = InputBox(请输入你的姓名, 测试) 我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物6.2.2 输入框InputBox函数说明:(1)Varname是变量名,用于存放InputBox函数的返回值,即用户输入的内容。
17、(2)prompt是作为消息文字出现在输入框上的字符串表达式,不可以省略。prompt的最大长度大约是1 024个字符,由所用字符的宽度决定。如果prompt包含多个行,则可在各行之间用回车符Chr(13)、换行符Chr(10)、回车换行符的组合Chr(13) & Chr(10)或常量VbCrLf来分隔。(3)title是显示在输入框标题栏中的字符串表达式。如果省略title,则把应用程序名放入标题栏中。(4)default是输入框弹出时就显示在文本框中的默认字符串表达式,在没有其它输入时作为默认值。如果省略default,则文本框为空。我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这
18、样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物6.2.2 输入框InputBox函数(5)xpos是表示x坐标的数值表达式,和ypos成对出现,指定对话框的左边与屏幕左边的水平距离。如果省略 xpos,则对话框会在水平方向居中。(6)ypos是表示y坐标的数值表达式,和xpos成对出现,指定对话框的上边与屏幕上边的距离。如果省略 ypos,则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。(7)helpfile是表示帮助文件的字符串表达式,若识别到帮助文件,则使用该文件为对话框提供上下文相关的帮助。helpfile和context一定会一起出现,即如果已提
19、供helpfile,则也必须提供context。使用helpfile和context将会使输入框增加一个“帮助”按钮,用户可以按F1来查看与context相应的帮助主题。(8)context是表示某个帮助主题的帮助上下文编号的数值表达式。 我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物6.2.2 输入框InputBox函数在InputBox函数的使用中如果要省略某些位置参数,原则上都必须加入相应的逗号分界符,有一种情况下可以不加逗号,就是省略其后所有可省略的参数。 s = InputBox(“请输入你的姓
20、名”, , , , Height / 2)其中Height/2是ypos参数,中间的title、default和xpos都被省略了。 我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物6.2.2 输入框InputBox函数2InputBox函数的返回值格式中的Varname用来存放InputBox函数的返回值,该返回值是一个String型数据。由InputBox函数产生的输入框一般有“确定”和“取消”两个按钮,如果用户单击“确定”按钮或按下回车键,则InputBox函数返回文本框中的内容。如果用户单击“取消”
21、按钮或按下Esc键,则此函数返回一个长度为零的字符串 ()。 我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物6.2.2 输入框InputBox函数3InputBox函数举例 例6-4 用户在运行时输入列表框的各个单词项。 Private Sub Command1_Click() Dim s As String, message As String message = 请输入列表项内容 & vbCrLf & 要求输入一个英文单词 s = InputBox(message, 输入数据) List1.AddIt
22、em sEnd Sub 缺陷:缺陷:当用户输入时按了当用户输入时按了“取消取消”按钮或未输入就按按钮或未输入就按“确定确定”按钮的时候,列表框中会被添加进一些空项。按钮的时候,列表框中会被添加进一些空项。 我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是我也感到愉快,证实我的猜测没有错:表里边有一个活的生物6.3常用的输出语句常用的输出语句 计算机中数据的输出是将程序处理结果反馈给用户,通常是在程序界面上将结果显示出来。6.3.1 用控件输出 6.3.2 消息框MsgBox函数 我吓了一跳,蝎子是多么丑恶和恐怖的东西,为什么把它放在这样一个美丽的世界里呢?但是
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 程序 VB 顺序 结构 程序设计 ppt 课件
限制150内