《VB顺序结构程序设计.ppt》由会员分享，可在线阅读，更多相关《VB顺序结构程序设计.ppt（46页珍藏版）》请在第壹文秘上搜索。
1、第四章第四章 顺序结构程序设计顺序结构程序设计1第第4 4章章 顺序结构程序设计顺序结构程序设计本章要点本章要点: : 赋值语句赋值语句数据输入数据输入* *数据输出数据输出* *注释、暂停与程序结束语句注释、暂停与程序结束语句第四章第四章 顺序结构程序设计顺序结构程序设计2事件驱动事件驱动: 将代码划分成一些将代码划分成一些“子过程子过程”过程结构过程结构: 过程内部代码由三种基本结构组成过程内部代码由三种基本结构组成 即即: 顺序结构、选择结构、循环结构顺序结构、选择结构、循环结构顺序结构顺序结构: 执行过程的次序从上到下，从左到右执行过程的次序从上到下，从左到右例例: Private S
2、ub Command1_Click() Const Pi = 3.14 H = Val(Text1.Text) : R = Val(Text2.Text) Text3.Text = Pi * R 2 * H End Sub第四章第四章 顺序结构程序设计顺序结构程序设计34.1 赋值语句赋值语句1. 格式格式 let = 或或: .= 2. 功能功能 计算表达式的值计算表达式的值,再将此值赋给变量或对象属性。再将此值赋给变量或对象属性。3. 说明说明(1) : 应符合应符合VB变量命名约定。变量命名约定。(2) : 常量、变量、表达式、属性。常量、变量、表达式、属性。(3) : 缺省时为当前窗体
3、。缺省时为当前窗体。(4) 赋值号赋值号“=”: 与数学中的等号意义不同与数学中的等号意义不同。 例例: X=X+1第四章第四章 顺序结构程序设计顺序结构程序设计4(5) 赋值号左边必须是变量或对象属性。赋值号左边必须是变量或对象属性。 例例: X=1 MyStr=Good Morning Command1.Caption=确定确定 X+1=X 错误，赋值号左边是表达式错误，赋值号左边是表达式 Y=5 正确正确 5=Y 错误，赋值号左边是常量错误，赋值号左边是常量 (6) 变量名或对象属性名的类型应与表达式类型变量名或对象属性名的类型应与表达式类型相容。相容。 类型类型相容相容：指变量名或对象
4、属性名能够正确存：指变量名或对象属性名能够正确存取赋值号右边的表达式的值取赋值号右边的表达式的值。第四章第四章 顺序结构程序设计顺序结构程序设计5例例: Dim A As Integer, B As Single Dim C As Double, S As String A = 100 将整型数将整型数100赋给整型变量赋给整型变量A S = 123.45 将字符串将字符串123.45赋给变量赋给变量S A = S 将数字字符串变量赋给整型变量，将数字字符串变量赋给整型变量， 变量变量A中存放中存放123 S = A S中存放字符串中存放字符串123 B = 12345.67 A = B 高单
5、度变量赋值给整型变量，高单度变量赋值给整型变量， 先四舍五入后取整先四舍五入后取整, A中存放中存放12346 C = 123456.789 B = C 高精度变量赋值给低精度变量，高精度变量赋值给低精度变量， 变量变量B中存放中存放123456.8。有效数字。有效数字7位位 S = abc A = S 错误，类型不匹配错误，类型不匹配第四章第四章 顺序结构程序设计顺序结构程序设计6(7) 变量未赋值时，数值型变量值为变量未赋值时，数值型变量值为0，字符串变，字符串变量值为空串量值为空串。(8) 给可变类型的变量赋值后，变量的类型为赋值给可变类型的变量赋值后，变量的类型为赋值号右边表达式的类型
6、。号右边表达式的类型。例例: 执行下列各赋值语句后，执行下列各赋值语句后，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)第四章第四章 顺序结构程序设计顺序结构程序设计7【例【例4-1】设变量】设变量A中存放中存放5，变量，变量B中存放中存放8，交，交换两个变量的值，使变量换两个变量的值，使变量A中存放中存放
7、8，变量，变量B中中存放存放5。 代码如下代码如下: A = 5 B = 8 C = A A = B B = CVB4lt1:进入进入VB环境环境ABCC=AA=BB=C第四章第四章 顺序结构程序设计顺序结构程序设计84.2 数据输入数据输入 把要加工的初始数据从某种外部设备（例如键把要加工的初始数据从某种外部设备（例如键盘）盘）输入输入到计算机中，并把处理结果到计算机中，并把处理结果输出输出到指定到指定设备（如显示器），这是程序设计语言所应具备设备（如显示器），这是程序设计语言所应具备的基本部分。的基本部分。赋值语句；赋值语句；输入框输入框(InputBox)；文本框文本框(TextBox)
8、；输入输入第四章第四章 顺序结构程序设计顺序结构程序设计94.2.1 用输入框用输入框(InputBox)输入数据输入数据1. InputBox函数的格式函数的格式 InputBox( , , )2. 功能功能 提示一对话框，等待用户输入正文或按下按钮，提示一对话框，等待用户输入正文或按下按钮，并返回包含文本框内容的字符串。并返回包含文本框内容的字符串。3. 3. 说明说明 n : 字符串表达式。字符串表达式。可用可用Chr(13)、Chr(10)、Chr(13) & Chr(10)、vbCrLf换行。最多可有换行。最多可有1024个字符个字符n : 字符串表达式字符串表达式,省略时默认为应用
9、程序名。省略时默认为应用程序名。n : 字符串表达式字符串表达式,省略时默认为空。省略时默认为空。n返回值返回值: 字符串字符串(在对话框中单击取消则返回在对话框中单击取消则返回)第四章第四章 顺序结构程序设计顺序结构程序设计10例例: Private Sub Form_Activate() Dim R As Single, AREA As Single R = Val(InputBox(“请输入半径请输入半径”, “计算面积计算面积”, “1”) AREA = 3.14 * R 2 Print R=; R; AREA=; AREA End Sub单击单击“确定确定”，返回文本框中的文本到变量
10、，返回文本框中的文本到变量R中中单击单击“取消取消”，返回一个零长度的字符串，返回一个零长度的字符串第四章第四章 顺序结构程序设计顺序结构程序设计11 用文本框输入数据时，也就是将文本框的用文本框输入数据时，也就是将文本框的Text属性的内容赋值给某个变量。属性的内容赋值给某个变量。 例：将文本框例：将文本框Text1中输入的字符串赋给字符串中输入的字符串赋给字符串变量变量Mystr Dim MyStr As String MyStr = Text1.Text 例：将文本框例：将文本框Text1中输入的字符串作为数据赋中输入的字符串作为数据赋给整型变量给整型变量 Dim A As Intege
11、r A = Val(Text1.Text)4.2.2 用文本框用文本框(TextBox)输入数据输入数据第四章第四章 顺序结构程序设计顺序结构程序设计121. 文本框控件的常用属性文本框控件的常用属性(1)Text属性：表示文本框中包含的内容属性：表示文本框中包含的内容(2)Locked属性：决定文本框的内容是否可编辑属性：决定文本框的内容是否可编辑(3)Multiline属性：为属性：为true,可输入多行文本，默认可输入多行文本，默认为为false.(4)Scrollbars:决定是否有滚动条以及滚动条的显示决定是否有滚动条以及滚动条的显示方式。默认为不显示。方式。默认为不显示。(5)Pa
12、sswordchar:显示在文本框中的替代符，如显示在文本框中的替代符，如“*”，主要用于口令的输入。，主要用于口令的输入。(6)Maxlength:指定显示的字符个数，超出部分不指定显示的字符个数，超出部分不接收，并同时发出嘟嘟声。接收，并同时发出嘟嘟声。第四章第四章 顺序结构程序设计顺序结构程序设计132.文本框控件的显示文本文本框控件的显示文本文本框显示的文本受文本框显示的文本受text属性控制。属性控制。Text属性属性可以用以下可以用以下3种方式设置：种方式设置：n设计时在属性窗口中进行；设计时在属性窗口中进行；n编程时通过代码设置编程时通过代码设置n运行时由用户输入运行时由用户输入
13、若不希望用户更改文本，可以把文本框的若不希望用户更改文本，可以把文本框的locked 属性设置为属性设置为true或将或将enabled属性设置为属性设置为False以以vb4lt1为例说明为例说明第四章第四章 顺序结构程序设计顺序结构程序设计143. 多行文本框多行文本框若需要在文本框中显示多行文本，可以修改文本框的若需要在文本框中显示多行文本，可以修改文本框的multiline和和scorllbars属性，但这两种属性只能在属性窗口中属性，但这两种属性只能在属性窗口中修改。修改。Multiline 属性属性TRUE：可以输入和显示多行文本，同时具有文字处理器：可以输入和显示多行文本，同时具
14、有文字处理器的自动换行功能，按的自动换行功能，按ctrl+enter组合键可以插入一行。组合键可以插入一行。Scorllbars属性属性当当multiline为为true时，时，scrollbars属性才有效。属性才有效。0-none 1- horizontal 2-vertical 3-both若无若无horizontal滚动条，文本框的文本会自动按字换行，滚动条，文本框的文本会自动按字换行，当加了当加了horizontal以后，文本框的自动换行功能会自动消失，以后，文本框的自动换行功能会自动消失，只有按只有按enter键才能换行。举例说明。键才能换行。举例说明。第四章第四章 顺序结构程序设
15、计顺序结构程序设计151. 焦点焦点 当前可以接收用户输入的对象称为具有焦点。当前可以接收用户输入的对象称为具有焦点。 注意注意: 并非所有控件都可以接收焦点。而且并非所有控件都可以接收焦点。而且, 只有只有Enable和和Visible属性为属性为True时，才可以接收焦点。时，才可以接收焦点。2. 事件事件 GotFocus 发生在对象得到焦点时发生在对象得到焦点时 LostFocus 发生在对象失去焦点时发生在对象失去焦点时3. 对象何时得到焦点对象何时得到焦点n运行时选择对象运行时选择对象(鼠标、鼠标、Tab键、访问键键、访问键)n在代码中使用在代码中使用SetFocus方法方法 其格
16、式为：其格式为：.setfocus4.2.3 焦点和焦点和Tab键序键序第四章第四章 顺序结构程序设计顺序结构程序设计164. 对象何时失去焦点对象何时失去焦点n运行时用运行时用Tab键移动、用访问键或用鼠标单击选键移动、用访问键或用鼠标单击选择另一个对象。择另一个对象。n在代码中对另一个对象使用在代码中对另一个对象使用SetFocus方法改变焦方法改变焦点。点。5. Tab键序键序n指按指按Tab键时焦点在各个控件之间移动的顺序。键时焦点在各个控件之间移动的顺序。n每个窗体都有自己的每个窗体都有自己的Tab键序。键序。n默认键序与控件的建立次序一致。默认键序与控件的建立次序一致。nTabIndex属性属性: 决定决定Tab键序键序 改变改变TabIndex属性可以改变属性可以改变Tab键序键序 nTabStop属性属性: 决定是否能够使用决定是否能够使用 TAB 键将焦点移键将焦点移动到当前对象。动到当前对象。第四章第四章 顺序结构程序设计顺序结构程序设计17【例【例4-2】设计如下图所示的界面，运行时，输入某】设计如下图所示的界面，运行时，输入某学生三门课的成绩，计算平均成绩。按要
