顺序结构程序设计.课件

1、第4章 顺序结构程序设计 本章要点: 赋值语句 数据输入 数据输出 注释、暂停与程序结束语句事件驱动: 将代码划分成一些过程过程结构: 过程内部代码由三种基本结构组成 即: 顺序结构、选择结构、循环结构顺序结构: 执行过程的次序从上到下，从左到右例: Private Sub Command1_Click() Const Pi = 3.14 H = Val(Text1.Text) : R = Val(Text2.Text) Text3.Text = Pi * R 2 * H End Sub24.1 赋值语句1. 格式 = 或: .=2. 功能 计算表达式的值，再将此值赋给变量或对象属性。3. 说

2、明(1) : 应符合VB变量命名约定。(2) : 常量、变量、表达式。(3) : 缺省时为当前窗体。(4) 赋值号“=”: 与数学中的等号意义不同。 例: X=X+1(5) 赋值号左边必须是变量或对象属性。3例: X=1 MyStr=Good Morning Command1.Caption=确定 X+1=X 错误，赋值号左边是表达式(3) 变量名或对象属性名的类型应与表达式类型相容。例: Dim A As Integer, B As Single Dim C As Double, S As String A = 100 将整型数100赋给整型变量A S = 123.45 将字符串123.45

3、赋给变量S A = S 将数字字符串变量赋值给整型变量， 变量A中存放123 S = A S中存放字符串123 B = 12345.67 A = B 高精度变量赋值给低精度变量， 先四舍五入后取整, A中存放123464.1 赋值语句4 C = 123456.789 B = C 高精度变量赋值给低精度变量， 变量B中存放123456.8。有效数字7位 S = abc A = S 错误，类型不匹配例: 执行下列各赋值语句后，A的数据类型是什么？ (设A没有定义数据类型) A = 6 = 5 A = 5 + 3 A = 5+3 A = #11/26/99# A = #11/26/1999# A =

4、 Not 5 8可以用TypeName函数判断变量的数据类型。如:Print TypeName(A)4.1 赋值语句5(4) 变量未赋值时，数值型变量值为0，字符串变量 值为空串。【例4-1】设变量A中存放5，变量B中存放8，交换两个变量的值，使变量A中存放8，变量B中存放5。 分析: 需要借助第三个变量C 代码如下: A = 5 B = 8 C = A A = B B = C4.1 赋值语句64.2 数据输入 赋值语句；输入框(InputBox)；文本框(TextBox)4.2.1 用输入框(InputBox)输入数据1. 格式 InputBox(,)2. 功能 提示一对话框，等待用户输入正

5、文或按下按钮， 并返回包含文本框内容的字符串。: 字符串表达式。用Chr(13)、Chr(10)、 Chr(13) & Chr(10)、vbCrLf可换行。: 字符串表达式。: 字符串表达式。如果省略，则默认为空。函数返回值: 字符串(在对话框中单击取消则返回)7单击“确定”，返回文本框中的文本到变量R中单击“取消”，返回一个零长度的字符串例: Private Sub Form_Activate() Dim R As String, AREA As Single R = InputBox(请输入半径, 计算面积, 1) AREA = 3. 14 * Val(R) 2 Print Val(R),

6、 AREA End Sub4.2 数据输入84.2.2 用文本框(TextBox)输入数据1. 文本框的属性(1) Text: 返回或设置文本框显示的内容。 例: Text1.Text = 欢迎使用Visual Basic(2) MultiLine: 决定是否可以显示多行文本。(3) PasswordChar: 常用于输入口令。 在文本框中键入字符显示为该指定的字符。 (此时MultiLine属性值应为False)(4) ScrollBars: 用于确定文本框是否带滚动条以及滚动条的方向。 (仅当MultiLine属性值为True时才可以带滚动条)4.2 数据输入9(5) SelLength:

7、 在运行期返回或设置选择的字符数。 例: Text1.SelLength=Len(Text1.Text) 表示选中文本框Text1中所有字符。(6) SelStart: 在运行期返回或设置当前选择文本的起始位置。 例: Text1.SelStart=0 表示选择文本的起始位置从第一个字符开始。(7) Locked: 指定运行时文本框内容是否可以编辑。 False可以编辑 True不可编辑(只读)4.2 数据输入102. 文本框的事件和方法 事件: Change 、Click、DblClick、 GotFocus、LostFocus、KeyPress等 方法: SetFocus【例4-2】设计如

8、下图所示的界面，运行时，输入某同学三门课的成绩，计算平均成绩。按要求编程。Text4(设Locked为True)Text1Text2Text3Command1Command2Command34.2 数据输入11单击“计算”按钮求平均成绩 Private Sub Command1_Click() A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) Text4.Text = (A + B + C) / 3 End Sub4.2 数据输入12当输入成绩的文本框获得焦点时，选中其中的文本 Private Sub Text1_GotFo

9、cus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text2_GotFocus() Text2.SelStart = 0 Text2.SelLength = Len(Text1.Text) End Sub Private Sub Text3_GotFocus() Text3.SelStart = 0 Text3.SelLength = Len(Text1.Text) End Sub4.2 数据输入13当输入成绩的文本框内容发生变化时，清除平均值 Private Sub Text1_Cha

10、nge() Text4.Text = End Sub Private Sub Text2_Change() Text4.Text = End Sub Private Sub Text3_Change() Text4.Text = End Sub4.2 数据输入14单击“清除”按钮清除所有文本框的内容，并将焦点定位在文本框Text2中。 Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text1.SetFocus End Sub单击“退出”按钮结束程序的运行。 Private Sub

11、 Command3_Click() End End Sub4.2 数据输入15【例4-3】在窗体上建立一个文本框，将输入到文本框中的小写字母转换为大写。 Private Sub Text1_KeyPress (KeyAscii As Integer) Char = Chr(KeyAscii) KeyAscii = Asc(UCase(Char) End Sub4.2 数据输入164.2.3 焦点和Tab键序1. 焦点 当前可以接收用户输入的对象称为具有焦点。 注意: 并非所有控件都可以接收焦点。而且, 只有Enable和Visible属性为True时，才可以接收焦点。2. 事件 GotFocu

12、s 发生在对象得到焦点时 LostFocus 发生在对象失去焦点时3. 对象何时得到焦点 运行时选择对象(鼠标、Tab键、访问键) 在代码中使用SetFocus方法4.2 数据输入172. Tab键序 指按Tab键时光标在各个控件之间移动的顺序。 每个窗体都有自己的Tab键序。 默认键序与控件的建立次序一致。 TabIndex属性: 决定键序 改变TabIndex属性可以改变键序 TabStop属性: 决定是否能够使用 TAB 键将焦点移动到当前对象。4.2 数据输入184.3 数据输出Print方法、消息框(MsgBox) 、文本框、标签4.3.1 用Print方法输出数据1. Print方

13、法 格式: .Print;|, : 窗体 如 Form1.Print Hello 图片框 如 Picture1.Print Hello 打印机 如 Printer.Print Hello 立即窗口 如 Debug .Print Hello 省略: 默认为当前窗体。 : 多个表达式使用逗号或分号隔开。 逗号: 以14个字符位置为单位把一个输出行分成若干区段。 分号: 后一项紧跟前一项输出。19 输出时，数值型数据前有一个符号位(正号不显)，后面留一个空格位；字符串原样输出，前后无空格。例: Private Sub Form_Activate() Print 1234567890123456789

14、0 Print 2+4=; 2 + 4 Print 2-4=, 2 - 4 End Sub 例: Private Sub Form_Activate() Print 12345678901234567890 Print 2+4=;2 + 4, Print 2-4=; Print 2 - 4 End Sub4.3 数据输出20例: Private Sub Form_Load() Form1.Show Print 12345678901234567890 Print 产生空行 Print 2+4=; 2 + 4, Print 取消上面一句末尾逗号的作用 Print 2-4=; Print 2 -

15、4 End Sub输入Print时可用?代替，VB将其自动转换成Print4.3 数据输出212. 与Print方法有关的函数(1) Tab函数 格式: Tab(n) 功能: 在指定的第n个位置上输出数据。 参数n: n当前位置: 打印位置为下一行的第n列 n输出行宽度: 打印位置为 n Mod 行宽 省略: 打印位置为下一个打印区的起点 (每14个字符为一个打印区)4.3 数据输出22例: Private Sub Form_Activate() Print 12345678901234567890 Print Hello; Tab(10); World Print Hello; Tab; W

16、orld Print Hello; Tab(4); World Print Tab(-5); Hello End Sub4.3 数据输出23(2) Spc函数 格式: Spc(n) 功能: 跳过n个空格。 例: Print HOW; Spc(3); ABOUT 结果: HOWABOUT注意: Spc函数与Space函数、Tab函数的区别4.3 数据输出244.3.2 用消息框(MsgBox)输出数据格式: MsgBox(,)功能: 在对话框中显示消息，等待用户单击按钮，并返回一个整数告诉用户单击了哪个按钮。: 字符串表达式。 用Chr(13)、Chr(10)、 Chr(13) & Chr(10

17、)、vbCrLf可换行。: 数值型数据。按钮类型+图标类型+默认按钮。见P58: 字符串表达式。返回值: 由在对话框中按下哪种按钮决定。见P594.3 数据输出25例: Private Sub Command1_Click() A = MsgBox(提示信息) End Sub例: 换行 Private Sub Command1_Click() A=MsgBox(第一行 & Chr(13) & 第二行) End Sub4.3 数据输出26例: Private Sub Command1_Click() A = MsgBox(提示信息, , 标题内容) End Sub例: 按钮类型0到5或符号常量

18、见P58 Private Sub Command1_Click() A = MsgBox(提示信息, 1, 标题内容) End Sub4.3 数据输出27例: 图标类型16、32、48、64或符号常量 见P58 Private Sub Command1_Click() A = MsgBox(提示信息, 16, 标题内容) End Sub例: 默认按钮0，256，512 见P58 Private Sub Command1_Click() a = MsgBox(提示信息, 2 + 256, 标题内容) Print a End Sub按回车打印44.3 数据输出284.3.3 用文本框(TextBo

19、x)输出数据【例4-4】在Text1中输入任一英文字母，在Text2中显示该英文字母及其ASCII码值。要求在文本框Text2中显示出所有输入的英文字母及其ASCII码值Text1Text2Command14.3 数据输出29Private Sub Command1_Click() Dim Char As String * 1 Char = Trim(Text1.Text) Text2.Text = Text2.Text & Space(5) & Char & _ Space(10) & Str(Asc(Char) & vbCrLf Text1.SetFocus Text1.SelStart

20、= 0 Text1.SelLength = Len(Text1.Text)End SubChr(13) & Chr(10)4.3 数据输出304.3.4 用标签(Label)输出数据1. 标签的属性(1) Caption: 标签的标题。(2) Alignment: 确定标签标题的对齐方式。(3) AutoSize: 确定标签是否随标题自动调整大小。(4) BorderStyle: 确定标签的边框。 0 无边框；1 有边框。(5) BackStyle: 指定背景是透明或不透明。 1不透明；0透明。(6) WordWrap: 指示是否随标题沿垂直方向自动扩展。 True标签将随标题在垂直方向变化。

21、 (此时AutoSize属性值应设置为True) False标签不能在垂直方向上扩展。4.3 数据输出31【例4-5】测试标签的边框样式和透明样式。 在窗体上放置一标签，显示“Visual Basic程序设计教程”，放置四个命令按钮，Command1放在Command2上，Command3放在Command4上。运行时，单击相应按钮，界面发生相应变化。Label1Command2Command1Command3Command44.3 数据输出32Private Sub Command2_Click() Label1.BorderStyle = 0 Command1.Visible = True

22、 Command2.Visible = FalseEnd SubPrivate Sub Command1_Click() Label1.BorderStyle = 1 Command1.Visible = False Command2.Visible = TrueEnd Sub4.3 数据输出33Private Sub Command3_Click() Label1.BackStyle = 1 Command3.Visible = False Command4.Visible = TrueEnd SubPrivate Sub Command4_Click() Label1.BackStyle = 0 Command3.Visible = True Command4.Visible = FalseEnd Sub 4.3 数据输出342. 标签的事件: Click、DblClick. 例: Private Sub