《VB程序设计第3版第4章课件》由会员分享，可在线阅读，更多相关《VB程序设计第3版第4章课件（52页珍藏版）》请在金锄头文库上搜索。
1、1,第4章,顺序结构程序设计,本章要点: 赋值语句 数据输入 数据输出 注释、暂停与程序结束语句,2,顺序结构: 按语句出现的先后次序执行。即 按从上到下，从左到右的次序执行。,例: 计算圆柱体的底面积、侧面积和体积。 Const pi = 3.14 Dim R As Single, H As Single Dim A As Single, B As Single, C As Single R = Val(T1.Text) : H = Val(T2.Text) A=pi*r2 : B=2*pi*r*h : C=pi*r2 * h T4.Text = Format(A, 0.00) T5.Tex
2、t = Format(B, 0.00) T6.Text = Format(C, 0.00),3,设计思路：,4,4.1 赋值语句,1. 格式 变量名=表达式 或: 对象名.属性名=表达式 2. 功能 计算表达式的值,再将此值赋给变量或对象的属性。,例如：A=pi*r2 T4.Text = Format(A, 0.00),5,3. 说明 (1) 变量名: 应符合VB变量命名约定。 (2) 表达式: 常量、变量、表达式、属性。 (3) 对象名: 缺省时为当前窗体。 (4) 赋值号“=”: 与数学中的等号意义不同。 例: X=X+1 (5) 赋值号左边必须是变量或对象属性。 例: X=1 MyStr
3、=Good Morning Command1.Caption=确定 X+1=X 错误,赋值号左边是表达式 Y=5 正确 5=Y 错误，赋值号左边是常量,6,(6) 变量名或对象属性名的类型应与表达式类型相容。 类型相容：指变量名或对象属性名能够正确存取赋值号右边的表达式的值。例如： 数字字符串和数值型数据之间 各种数值型数据之间,例：R = Val(T1.Text) H = T2.Text Area = 2*3.14*R*H T4.Text = Format(A, 0.00) T5.Text = Format(B, 0.00) T6.Text = Format(C, 0.00),如果去掉Val
4、, 接收数字字符串,接收数值型数据,7,(7) 变量未赋值时，数值型变量值为0，字符串变量值为空串。 (8) 给可变类型的变量赋值后，变量的类型为赋值号右边表达式的类型。 例: 执行下列各赋值语句后，A的数据类型是什么？ (设A没有定义数据类型) A = 6 = 5 A = 5 + 3 A = 5+3 A = #11/26/99# A = #11/26/1999# A = Not 5 8,可用TypeName函数显示变量的数据类型。 如:Print TypeName(A),8,【例4-1】设变量A中存放5，变量B中存放8，交换两个变量的值，使变量A中存放8，变量B中存放5。,代码如下: A =
5、 5 B = 8 C = A A = B B = C,9,4.2 数据输入,把数据或信息从某种外部设备（例如键盘）取到内存中,称为输入。,10,4.2.1 用InputBox函数输入数据,1. InputBox函数的格式 InputBox(提示信息,标题,默认值) 2. 功能 提示一对话框，等待用户输入正文或按下按钮，并返回包含文本框内容的字符串。 3. 说明 提示信息: 字符串表达式。 可用Chr(13)、Chr(10)、 Chr(13) | , 对象名: 窗体, 如 Form1.Print Hello 图片框,如 Picture1.Print Hello 打印机, 如 Printer.Pr
6、int Hello 立即窗口,如 Debug .Print Hello 省略: 默认为当前窗体。 表达式表: 多个表达式使用逗号或分号隔开。最后也可以加逗号或分号。,36,输出格式： 表达式表用逗号分隔: 以14个字符为单位把一个输出行分成若干区段。 表达式表用分号分隔: 后一项紧跟前一项输出。 数值型数据前有一个符号位(正号不显)，后面留一个空格位。 字符串原样输出，前后无空格。,37,例: Private Sub Form_Activate() Print 12345678901234567890 Print 2+4=;2 + 4, Print 2-4=; Print 2 - 4 End
7、Sub,例: Private Sub Form_Activate() Print 12345678901234567890 Print 2+4=; 2 + 4 Print 2-4=, 2 - 4 End Sub,38,例: Private Sub Form_Load() Form1.Show Print 12345678901234567890 Print 产生空行 Print 2+4=; 2 + 4, Print 取消上句末尾逗号的作用 Print 2-4=; Print 2 - 4 End Sub,39,2. 与Print方法有关的函数 (1) Tab函数 格式: Tab(n) 功能: 在
8、指定的第n个位置上输出数据。 参数n: n当前位置: 打印位置为下一行的第n列 n1: 打印位置为第1列 n省略: 打印位置为下一个打印区的起点 (每14个字符为一个打印区),40,例: Private Sub Form_Activate() Print 12345678901234567890 Print Hello; Tab(10); World Print Hello; Tab; World Print Hello; Tab(4); World Print Tab(-5); Hello End Sub,41,(2) Spc函数 格式: Spc(n) 功能: 跳过n个空格。 例: Prin
9、t HOW; Spc(3); ABOUT 结果: HOWABOUT,注意: Spc函数、Space函数、Tab函数的区别 Space函数:可以用在字符串允许出现的任何位置。 Spc函数:只能用在打印语句中。 Tab函数指定绝对位置； Space函数或Spc函数指定相对位置。,42,4.4 注释、暂停与程序结束语句,1. 注释语句 格式: | Rem 注释内容 功能: 给语句或程序段加上注释，以提高可读性。 说明: Rem与 “注释内容”之间至少空一个空格。,43,例如：,Private Sub Form_Activate() Rem 本程序用于计算圆的面积 Dim R As Single, A
10、rea As Single R为半径 R=Val(InputBox(请输入半径, , 1) ) Area = 3.14 * R 2 : Rem 输入半径 以下将半径和面积输出到窗体上 Print R , AREA End Sub,44,2. 暂停语句 格式: Stop 功能: 暂停程序的执行。 说明：用于程序调试。类似于执行“运行”菜单中的“中断”命令 3. 结束语句 格式: End 功能: 结束程序的执行。,45,4.5 顺序结构程序应用举例,*【例4-5】鸡兔同笼。已知笼中鸡兔总头数为h，总脚数为f，问鸡兔各有多少只？ 分析： 设鸡有x只，兔有y只，则方程式如下： x+y=h 2x+4y=
11、f 解方程。解出求x和y的具体公式为： x=(4h-f) / 2 y=(f-2h) / 2,46,设计界面：,Label5、Label6的BorderStyle属性设置为1,Text1,Text2,Command1,Label5,Label6,47,代码如下：,Private Sub Command1_Click() Dim h As Integer, f As Integer, x As Integer Dim y As Integer 输入 h = Val(Text1.Text) f = Val(Text2.Text) 计算 x = (4 * h - f) / 2 y = (f - 2 *
12、 h) / 2 输出 Label5.Caption = Str(x) Label6.Caption = Str(y) End Sub,48,*【例4-6】根据系统的具体日期和时间，设计一个倒计时程序。要求：1）能在界面上显示当前时间。2）能在界面上显示目标时间。3）能显示距离目标时间还有多少天、多少小时。,设计界面：,49,代码如下：,Private Sub Timer1_Timer() Text1.Text = Year(Now) Text2.Text = Month(Now) Text3.Text = Day(Now) Text4.Text = Hour(Now) Text5.Text =
13、 Minute(Now) 计算天数 Text7.Text = DateDiff(d, Now, 2010-04-30 20:00:00) 计算小时数 Text8.Text = DateDiff(h, Now, 2010-04-30 20:00:00) End Sub,50,*【例4-7】求用十进制表示230有多少位。,分析：先求230的值，再用Str函数将其转换为字符串，用Trim函数去掉该字符前的空格，然后用Len函数求字符串长度，即求出其位数。,设计界面：,51,代码如下：,Private Sub Form_Load() Dim M As Long, Temp As String Show M = 2 30 Temp = Str(M) 将M转换成字符串 Label3.Caption = Label3.Caption 位 End Sub,52,本章小结:,输入,计算、处理：,输出,赋值语句,文本框,IntputBox函数,赋值语句,标签,文本框,Print语句,MsgBox函数,顺序结构程序：,
