【VB开源代码栏目提醒】：网学会员VB开源代码为您提供vb4 - 培训资料参考，解决您在vb4 - 培训资料学习中工作中的难题，参考学习。

    

第四章顺序结构程序设计1本章要点: 赋值语句▲数据输入▲数据输出▲注释、暂停与程序结束语句第四章顺序结构程序设计2事件驱动: 将代码划分成一些“子过程”过程结构: 过程内部代码由三种基本结构组成即: 顺序结构、选择结构、循环结构顺序结构: 执行过程的次序从上到下从左到右例: Private Sub Command1_ClickConst Pi 3.14H ValText1.Text : R ValText2.TextText3.Text Pi R 2 HEnd Sub第四章顺序结构程序设计34.1赋值语句1. 格式let 或: .2. 功能计算表达式的值再将此值赋给变量或对象属性。

    3. 说明1 : 应符合VB变量命名约定。

    2 : 常量、变量、表达式、属性。

    3 : 缺省时为当前窗体。

    4 赋值号“”: 与数学中的等号意义不同。

    例: XX1第四章顺序结构程序设计45 赋值号左边必须是变量或对象属性。

    例: X1MyStrGood MorningCommand1.Caption确定X1X 错误赋值号左边是表达式Y5 正确5Y 错误赋值号左边是常量6 变量名或对象属性名的类型应与表达式类型相容。

    类型相容指变量名或对象属性名能够正确存取赋值号右边的表达式的值。

    第四章顺序结构程序设计5例: Dim A As Integer B As SingleDim C As Double S As StringA 100 将整型数100赋给整型变量AS 123.45 将字符串123.45赋给变量SA S 将数字字符串变量赋给整型变量 变量A中存放123S A S中存放字符串123B 12345.67A B ?? 高单度变量赋值给整型变量 先四舍五入后取整 A中存放12346C 123456.789B C 高精度变量赋值给低精度变量 变量B中存放123456.8。

    有效数字7位S abcA S 错误类型不匹配第四章顺序结构程序设计67 变量未赋值时数值型变量值为0字符串变量值为空串。

    8 给可变类型的变量赋值后变量的类型为赋值号右边表达式的类型。

    例: 执行下列各赋值语句后A的数据类型是什么设A没有定义数据类型A 6 5A 5 3A 53A 11/26/99A 11/26/1999A Not 5 8可用TypeName函数显示变量的数据类型。

    如:Print TypeNameA第四章顺序结构程序设计7【例4-1】设变量A中存放5变量B中存放8交换两个变量的值使变量A中存放8变量B中存放5。

    代码如下: A 5B 8C AA BB CVB4lt1:进入VB环境ABCCAABBC第四章顺序结构程序设计84.2 数据输入把要加工的初始数据从某种外部设备例如键盘输入到计算机中并把处理结果输出到指定设备如显示器这是程序设计语言所应具备的基本部分。

    赋值语句输入框InputBox文本框TextBox……输入第四章顺序结构程序设计94.2.1 用输入框InputBox输入数据1. InputBox函数的格式InputBox 2. 功能提示一对话框等待用户输入正文或按下按钮并返回包含文本框内容的字符串。

    3. 说明: 字符串表达式。

    可用Chr13、Chr10、Chr13 Chr10、vbCrLf换行。

    最多可有1024个字符: 字符串表达式省略时默认为应用程序名。

    : 字符串表达式省略时默认为空。

    返回值: 字符串在对话框中单击取消则返回第四章顺序结构程序设计10例: Private Sub Form_ActivateDim R As Single AREA As SingleR ValInputBox―请输入半径” “计算面积” “1”AREA 3.14 R 2Print R R AREA AREAEnd Sub单击“确定”返回文本框中的文本到变量R中单击“取消”返回一个零长度的字符串第四章顺序结构程序设计11用文本框输入数据时也就是将文本框的Text属性的内容赋值给某个变量。

    例将文本框Text1中输入的字符串赋给字符串变量MystrDim MyStr As StringMyStr Text1.Text例将文本框Text1中输入的字符串作为数据赋给整型变量Dim A As IntegerA ValText1.Text4.2.2 用文本框TextBox输入数据第四章顺序结构程序设计121. 文本框控件的常用属性1Text属性表示文本框中包含的内容2Locked属性决定文本框的内容是否可编辑3Multiline属性为true可输入多行文本默认为false.4Scrollbars:决定是否有滚动条以及滚动条的显示方式。

    默认为不显示。

    5Passwordchar:显示在文本框中的替代符如“”主要用于口令的输入。

    6Maxlength:指定显示的字符个数超出部分不接收并同时发出嘟嘟声。

    第四章顺序结构程序设计132.文本框控件的显示文本文本框显示的文本受text属性控制。

    Text属性可以用以下3种方式设置设计时在属性窗口中进行编程时通过代码设置运行时由用户输入若不希望用户更改文本可以把文本框的locked 属性设置为true或将enabled属性设置为False以vb4lt1为例说明第四章顺序结构程序设计143. 多行文本框若需要在文本框中显示多行文本可以修改文本框的multiline和scorllbars属性但这两种属性只能在属性窗口中修改。

    Multiline 属性TRUE可以输入和显示多行文本同时具有文字处理器的自动换行功能按ctrlenter组合键可以插入一行。

    Scorllbars属性当multiline为true时scrollbars属性才有效。

    0-none 1-horizontal 2-vertical 3-both若无horizontal滚动条文本框的文本会自动按字换行当加了horizontal以后文本框的自动换行功能会自动消失只有按enter键才能换行。

    举例说明。

    第四章顺序结构程序设计151. 焦点当前可以接收用户输入的对象称为具有焦点。

    注意: 并非所有控件都可以接收焦点。

    而且 只有Enable和Visible属性为True时才可以接收焦点。

    2. 事件GotFocus 发生在对象得到焦点时LostFocus 发生在对象失去焦点时3. 对象何时得到焦点运行时选择对象鼠标、Tab键、访问键在代码中使用SetFocus方法其格式为.setfocus4.2.3 焦点和Tab键序第四章顺序结构程序设计164. 对象何时失去焦点运行时用Tab键移动、用访问键或用鼠标单击选择另一个对象。

    在代码中对另一个对象使用SetFocus方法改变焦点。

    5. Tab键序指按Tab键时焦点在各个控件之间移动的顺序。

    每个窗体都有自己的Tab键序。

    默认键序与控件的建立次序一致。

    TabIndex属性: 决定Tab键序改变TabIndex属性可以改变Tab键序TabStop属性: 决定是否能够使用TAB 键将焦点移动到当前对象。

    第四章顺序结构程序设计17【例4-2】设计如下图所示的界面运行时输入某学生三门课的成绩计算平均成绩。

    按要求编程。

    要求单击“计算”按钮求平均成绩当输入成绩的文本框获得焦点时选中其中的文本当输入成绩的文本框内容发生变化时清除平均值单击“清除”按钮清除所有内容将焦点定位在Text1中单击“退出”按钮结束程序的运行。

    Text4Text1Text2Text3Command1Command2Command3设Text4的Locked属性为True第四章顺序结构程序设计18①单击“计算”按钮求平均成绩Private Sub Command1_ClickA ValText1.TextB ValText2.TextC ValText3.TextText4.Text A B C / 3End Sub第四章顺序结构程序设计19②当输入成绩的文本框获得焦点时选中其中的文本Private Sub Text1_GotFocusText1.SelStart 0Text1.SelLength LenText1.TextEnd Sub Private Sub Text2_GotFocusText2.SelStart 0Text2.SelLength LenText2.TextEnd SubPrivate Sub Text3_GotFocusText3.SelStart 0Text3.SelLength LenText3.TextEnd Sub第四章顺序结构程序设计20③当输入成绩的文本框内容发生变化时清除平均值Private Sub Text1_ChangeText4.Text End SubPrivate Sub Text2_ChangeText4.Text End SubPrivate Sub Text3_ChangeText4.Text End Sub第四章顺序结构程序设计21④单击“清除”按钮清除所有文本框的内容并将焦点定位在文本框Text1中。

    Private Sub Command2_ClickText1.Text Text2.Text Text3.Text Text4.Text Text1.SetFocusEnd Sub⑤单击“退出”按钮结束程序的运行。

    Private Sub Command3_ClickEnd End Sub第四章顺序结构程序设计224.2.4 框架控件框架frame控件是一种容器控件。

    在框架控件内的控件可以随框架一起移动并且受框架控件的某些属性visibleenabled等的控制。

    1.使用框架控件对其他控件进行分组可以使界面更清晰明了。

    一般不需要响应框架控件的事件。

    使用框架控件将其他控件分组的方法有两个先画框架控件并激活再加入其中的控件这样可使框架控件及其上的控件一起移动。

    若要用框架控件将现有的控件分组可先选定所有控件将它们剪切到剪贴板上然后选定框架控件进行粘贴。

    以vb4lt2为例。

    第四章顺序结构程序设计234.3 数据输出在程序设计中对输入的数据进行加工后往往需要将处理结果、提示信息等呈现给用户即输出。

    输出Print方法消息框MsgBox文本框标签……第四章顺序结构程序设计24用文本框输出数据时也就是将数据赋给文本框的Text属性。

    例如输出一个字符串或数值 输出多个字符串或数值例用文本框Text1输出一个字符串Text1.Text hello例用文本框Text1输出一个数值型数据X 3 5Text1.Text StrX?? Str可以省略或用Format例用文本框Text1输出多个数分多行输出。

    首先将文本框的MultiLine设置为True必要时可以进一步设滚动条属性ScrollBars。

    X 3 5: Y 7 4Text1.Text StrX vbCrLf StrY4.3.1 用文本框TextBox输出数据第四章顺序结构程序设计25【例4-3】在Text1中输入任一英文字母在Text2中显示该英文字母及其ASCII码值。

    要求在文本框Text2中显示出所有输入的英文字母及其ASCII码值。

    Text1Text2Command1第四章顺序结构程序设计26Private Sub Command1_ClickDim Char As String 1Char TrimText1.TextText2.Text Text2.Text Space5 Char _Space10 StrAscChar vbCrLfText1.SetFocusText1.SelStart 0Text1.SelLength LenText1.TextEnd SubChr13 Chr10第四章顺序结构程序设计274.3.2 用标签Label输出数据用标签输出数据时也就是将数据赋给标签的Caption属性。

    也可以输出多个数据。

    例用标签Label1输出一个字符串Label1.Caption hello例用标签Label1输出一个数值型数据X 3 5Label1.Caption StrX例用标签Label1输出多个数分多行输出。

    通常要先设置标签的AutoSize属性和WordWrap属性为True。

    X 3 5: y 7 4Label1.Caption x StrX vbCrLf _ y Stry第四章顺序结构程序设计28【例4-4】已知三角形的三条边a、b、c的长度用海伦公式求三角形的面积S。

    海伦公式:将文本框Text1、Text2、Text3的内容清空设置三个文本框的Alignment属性为1-Right Justify设置标签Label2的Caption属性为空设置标签Label2的BorderStyle属性为1 –Fixed Single。

    Text1Text2Text3Label2Command121cbapcpbpappS第四章顺序结构程序设计29代码如下Private Sub Command1_ClickDim A As Single B As Single C As SingleDim P As Single S As SingleA ValText1.TextB ValText2.TextC ValText3.TextP A B C / 2S SqrP P -A P -B P -C 显示时保留两位小数Label2.Caption FormatS 0.00 End Sub第四章顺序结构程序设计30消息框常用于在屏幕上显示一个对话框给出一些提示或警告信息并允许用户进行选择。

    程序可根据该选择确定进一步的操作。

    1. MsgBox函数的格式MsgBox或MsgBox 4.3.3 用消息框MsgBox输出数据图标标题提示信息命令按钮第四章顺序结构程序设计312. 功能在对话框中显示消息等待用户单击按钮并返回一个整数告诉用户单击了哪个按钮。

    3.说明1“标题”和“提示”与InputBox函数中对应的参数相同 ―按钮类型图标类型默认按钮‖是整型表达式决定信息框按钮数目、出现在信息框上的图标类型及默认按钮。

     若程序中需要返回值则使用函数否则可调用过程。

    第四章顺序结构程序设计32按钮及图标值如下:根据用户所选按钮函数返回1—7的整数值其含义如下表:表4-9第四章顺序结构程序设计33例: Private Sub Command1_ClickMsgBox 提示信息End Sub例: 换行Private Sub Command1_ClickMsgBox 第一行 Chr13 Chr10 第二行End Sub第四章顺序结构程序设计34例: Private Sub Command1_ClickA MsgBox提示信息 标题内容End Sub例: 按钮类型—0到5或符号常量见P65Private Sub Command1_ClickA MsgBox提示信息 1 标题内容End Sub第四章顺序结构程序设计35例: 图标类型—16、32、48、64或符号常量见P67Private Sub Command1_ClickA MsgBox提示信息 16 标题内容End Sub例: 默认按钮—0256512 见P67Private Sub Command1_Clicka MsgBox提示信息 2 256 标题内容Print aEnd Sub按回车打印4第四章顺序结构程序设计364.3.4 用Print方法输出数据1. Print方法格式: . Print : 窗体如Form1.Print Hello图片框如Picture1.Print Hello打印机如Printer.Print Hello立即窗口如Debug .Print Hello省略: 默认为当前窗体。

    : 多个表达式使用逗号或分号隔开。

    逗号: 以14个字符位置为单位把一个输出行分成若干区段。

    分号: 后一项紧跟前一项输出。

    第四章顺序结构程序设计37输出时数值型数据前有一个符号位正号不显后面留一个空格位字符串原样输出前后无空格。

    例: Private Sub Form_ActivatePrint 12345678901234567890Print 242 4Print 2-4Print 2 -4End Sub例: Private Sub Form_ActivatePrint 12345678901234567890Print 242 4Print 2-42 -4End Sub 第四章顺序结构程序设计38例: Private Sub Form_LoadForm1.ShowPrint 12345678901234567890Print 产生空行Print 242 4Print 取消上面一句末尾逗号的作用Print 2-4Print 2 -4End Sub输入Print时可用代替VB将其自动转换成Print第四章顺序结构程序设计392. 与Print方法有关的函数1 Tab函数格式: Tabn功能: 在指定的第n个位置上输出数据。

    参数n:n