1、1,第4章,顺序结构程序设计,本章要点: 赋值语句 数据输入 数据输出 注释、暂停与程序结束语句,2,事件驱动: 将代码划分成一些过程 过程结构: 过程内部代码由三种基本结构组成即: 顺序结构、选择结构、循环结构 顺序结构: 执行过程的次序从上到下，从左到右例: Private Sub Command1_Click()Const Pi = 3.14H = Val(Text1.Text) : R = Val(Text2.Text)Text3.Text = Pi * R 2 * HEnd Sub,3,4.1 赋值语句,1. 格式=或: .= 2. 功能计算表达式的值，再将此值赋给变量或对象属性。,
2、3. 说明 (1) : 应符合VB变量命名约定。 (2) : 常量、变量、表达式。 (3) : 缺省时为当前窗体。 (4) 赋值号“=”: 与数学中的等号意义不同。例: X=X+1 (5) 赋值号左边必须是变量或对象属性。,4,例: X=1MyStr=“Good Morning“Command1.Caption=“确定“X+1=X 错误，赋值号左边是表达式 (3) 变量名或对象属性名的类型应与表达式类型相容。 例: Dim A As Integer, B As SingleDim C As Double, S As StringA = 100 将整型数100赋给整型变量AS = “123.45
3、“ 将字符串“123.45“赋给变量SA = S 将数字字符串变量赋值给整型变量， 变量A中存放123S = A S中存放字符串“123“B = 12345.67A = B 高精度变量赋值给低精度变量， 先四舍五入后取整, A中存放12346,5,C = 123456.789B = C 高精度变量赋值给低精度变量， 变量B中存放123456.8。有效数字7位S = “abc“A = S 错误，类型不匹配 例: 执行下列各赋值语句后，A的数据类型是什么？(设A没有定义数据类型)A = 6 = 5A = 5 + 3A = “5+3“A = “#11/26/99#“A = #11/26/1999#A
4、 = Not 5 8,可以用TypeName函数判断变量的数据类型。 如:Print TypeName(A),6,(4) 变量未赋值时，数值型变量值为0，字符串变量值为空串“。 【例4-1】设变量A中存放5，变量B中存放8，交换两个变量的值，使变量A中存放8，变量B中存放5。分析: 需要借助第三个变量C代码如下: A = 5B = 8C = AA = BB = C,7,4.2 数据输入,赋值语句；输入框(InputBox)；文本框(TextBox) 4.2.1 用输入框(InputBox)输入数据 1. 格式InputBox(,) 2. 功能提示一对话框，等待用户输入正文或按下按钮， 并返回包
5、含文本框内容的字符串。 : 字符串表达式。用Chr(13)、Chr(10)、Chr(13) & Chr(10)、vbCrLf可换行。 : 字符串表达式。 : 字符串表达式。如果省略，则默认为空。 函数返回值: 字符串(在对话框中单击取消则返回“),8,单击“确定”，返回文本框中的文本到变量R中 单击“取消”，返回一个零长度的字符串,例: Private Sub Form_Activate()Dim R As String, AREA As SingleR = InputBox(“请输入半径“, “计算面积“, “1“)AREA = 3. 14 * Val(R) 2Print Val(R), A
6、REAEnd Sub,9,4.2.2 用文本框(TextBox)输入数据 1. 文本框的属性 (1) Text: 返回或设置文本框显示的内容。例: Text1.Text = “欢迎使用Visual Basic“ (2) MultiLine: 决定是否可以显示多行文本。 (3) PasswordChar: 常用于输入口令。在文本框中键入字符显示为该指定的字符。(此时MultiLine属性值应为False) (4) ScrollBars: 用于确定文本框是否带滚动条以及滚动条的方向。(仅当MultiLine属性值为True时才可以带滚动条),10,(5) SelLength: 在运行期返回或设置选
7、择的字符数。例: Text1.SelLength=Len(Text1.Text)表示选中文本框Text1中所有字符。 (6) SelStart: 在运行期返回或设置当前选择文本的起始位置。例: Text1.SelStart=0表示选择文本的起始位置从第一个字符开始。 (7) Locked: 指定运行时文本框内容是否可以编辑。False可以编辑 True不可编辑(只读),11,2. 文本框的事件和方法事件: Change 、Click、DblClick、GotFocus、LostFocus、KeyPress等方法: SetFocus 【例4-2】设计如下图所示的界面，运行时，输入某同学三门课的成
8、绩，计算平均成绩。按要求编程。,12,单击“计算”按钮求平均成绩Private Sub Command1_Click()A = Val(Text1.Text)B = Val(Text2.Text)C = Val(Text3.Text)Text4.Text = (A + B + C) / 3End Sub,13,当输入成绩的文本框获得焦点时，选中其中的文本Private Sub Text1_GotFocus()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Text2_GotFocus()Text2.Se
9、lStart = 0Text2.SelLength = Len(Text1.Text)End SubPrivate Sub Text3_GotFocus()Text3.SelStart = 0Text3.SelLength = Len(Text1.Text)End Sub,14,当输入成绩的文本框内容发生变化时，清除平均值Private Sub Text1_Change()Text4.Text = “End SubPrivate Sub Text2_Change()Text4.Text = “End SubPrivate Sub Text3_Change()Text4.Text = “End
10、Sub,15,单击“清除”按钮清除所有文本框的内容，并将焦点定位在文本框Text1中。Private Sub Command2_Click()Text1.Text = “Text2.Text = “Text3.Text = “Text4.Text = “Text1.SetFocusEnd Sub 单击“退出”按钮结束程序的运行。Private Sub Command3_Click()End End Sub,16,例：在编辑框输入弧度值，转换角度值,17,4.2.3 焦点和Tab键序 1. 焦点当前可以接收用户输入的对象称为具有焦点。注意: 并非所有控件都可以接收焦点。而且, 只有Enable和
11、Visible属性为True时，才可以接收焦点。 2. 事件GotFocus 发生在对象得到焦点时LostFocus 发生在对象失去焦点时 3. 对象何时得到焦点 运行时选择对象(鼠标、Tab键、访问键) 在代码中使用SetFocus方法,18,2. Tab键序 指按Tab键时光标在各个控件之间移动的顺序。 每个窗体都有自己的Tab键序。 默认键序与控件的建立次序一致。 TabIndex属性: 决定键序改变TabIndex属性可以改变键序 TabStop属性: 决定是否能够使用 TAB 键将焦点移动到当前对象。,19,4.3 数据输出,Print方法、消息框(MsgBox) 、文本框、标签 4
12、.3.1 用Print方法输出数据 1. Print方法格式: .Print;|,: 窗体 如 Form1.Print “Hello“图片框 如 Picture1.Print “Hello“打印机 如 Printer.Print “Hello“立即窗口 如 Debug .Print “Hello“省略: 默认为当前窗体。: 多个表达式使用逗号或分号隔开。 逗号: 以14个字符位置为单位把一个输出行分成若干区段。分号: 后一项紧跟前一项输出。,20,输出时，数值型数据前有一个符号位(正号不显)，后面留一个空格位；字符串原样输出，前后无空格。 例: Private Sub Form_Activat
13、e()Print “12345678901234567890“Print “2+4=“; 2 + 4Print “2-4=“, 2 - 4End Sub,例: Private Sub Form_Activate()Print “12345678901234567890“Print “2+4=“;2 + 4,Print “2-4=“;Print 2 - 4End Sub,21,例: Private Sub Form_Load()Form1.ShowPrint “12345678901234567890“Print 产生空行Print “2+4=“; 2 + 4,Print 取消上面一句末尾逗号的
14、作用Print “2-4=“;Print 2 - 4End Sub,输入Print时可用?代替，VB将其自动转换成Print,22,2. 与Print方法有关的函数 (1) Tab函数格式: Tab(n)功能: 在指定的第n个位置上输出数据。参数n:n输出行宽度: 打印位置为 n Mod 行宽省略: 打印位置为下一个打印区的起点 (每14个字符为一个打印区),23,例: Private Sub Form_Activate()Print “12345678901234567890“Print “Hello“; Tab(10); “World“ Print “Hello“; Tab; “World
15、“ Print “Hello“; Tab(4); “World“ Print Tab(-5); “Hello“ End Sub,24,(2) Spc函数格式: Spc(n)功能: 跳过n个空格。例: Print “HOW“; Spc(3); “ABOUT“结果: HOWABOUT 注意: Spc函数与Space函数、Tab函数的区别,25,4.3.2 用消息框(MsgBox)输出数据 格式: MsgBox(,) 功能: 在对话框中显示消息，等待用户单击按钮，并返回一个整数告诉用户单击了哪个按钮。 : 字符串表达式。用Chr(13)、Chr(10)、Chr(13) & Chr(10)、vbCrL
16、f可换行。 : 数值型数据。按钮类型+图标类型+默认按钮。见P78 : 字符串表达式。 返回值: 由在对话框中按下哪种按钮决定。见P78,26,例: Private Sub Command1_Click()A = MsgBox(“提示信息“)End Sub,例: 换行Private Sub Command1_Click()A=MsgBox(“第一行“ & Chr(13) & “第二行“)End Sub,27,例: Private Sub Command1_Click()A = MsgBox(“提示信息“, , “标题内容“)End Sub,例: 按钮类型0到5或符号常量 见P58Private
17、 Sub Command1_Click()A = MsgBox(“提示信息“, 1, “标题内容“)End Sub,28,例: 图标类型16、32、48、64或符号常量Private Sub Command1_Click()A = MsgBox(“提示信息“, 16, “标题内容“)End Sub,例: 默认按钮0，256，512Private Sub Command1_Click()a = MsgBox(“提示信息“, 2 + 256, “标题内容“)Print aEnd Sub,按回车打印4,29,4.3.3 用文本框(TextBox)输出数据 【例4.7】在Text1中输入任一英文字母，
18、在Text2中显示该英文字母及其ASCII码值。要求在文本框Text2中显示出所有输入的英文字母及其ASCII码值,30,Private Sub Command1_Click()Dim Char As String * 1Char = Trim(Text1.Text)Text2.Text = Text2.Text & Space(5) & Char & _Space(10) & Str(Asc(Char) & vbCrLfText1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text) End Sub,Chr(13) & Chr
19、(10),31,4.3.4 用标签(Label)输出数据 1. 标签的属性 (1) Caption: 标签的标题。 (2) Alignment: 确定标签标题的对齐方式。 (3) AutoSize: 确定标签是否随标题自动调整大小。 (4) BorderStyle: 确定标签的边框。0 无边框；1 有边框。 (5) BackStyle: 指定背景是透明或不透明。1不透明；0透明。 (6) WordWrap: 指示是否随标题沿垂直方向自动扩展。True标签将随标题在垂直方向变化。(此时AutoSize属性值应设置为True)False标签不能在垂直方向上扩展。,32,【例4-5】测试标签的边框样
20、式和透明样式。在窗体上放置一标签，显示“Visual Basic程序设计教程”，放置四个命令按钮，Command1放在Command2上，Command3放在Command4上。运行时，单击相应按钮，界面发生相应变化。,33,Private Sub Command2_Click()Label1.BorderStyle = 0Command1.Visible = TrueCommand2.Visible = False End Sub,Private Sub Command1_Click()Label1.BorderStyle = 1Command1.Visible = FalseCommand
21、2.Visible = True End Sub,34,Private Sub Command3_Click()Label1.BackStyle = 1Command3.Visible = FalseCommand4.Visible = True End Sub,Private Sub Command4_Click()Label1.BackStyle = 0Command3.Visible = TrueCommand4.Visible = False End Sub,35,2. 标签的事件: Click、DblClick.例: Private Sub Label1_DblClick()Labe
22、l1.FontSize = Label1.FontSize + 10End Sub 3. 标签的方法:Move格式: .Move ,: 指示对象左边的水平坐标(x-轴)。: 指示对象顶边的垂直坐标(y-轴)。: 指示对象新的宽度。: 指示对象新的高度。例: Private Sub Label1_Click()Label1.Move Label1.Left + 50End Sub,36,4.4 注释、暂停与程序结束语句,1. 注释语句格式: | Rem 功能: 给语句或程序段加上注释，以提高可读性。说明: Rem与 之间至少空一个空格。 例: Private Sub Form_Activate(
23、)Rem 本程序用于计算圆的面积Dim R As String, AREA As Single R为半径R=InputBox(“请输入半径“, , “1“) :Rem 输入半径AREA = 3.14 * Val(R) 2以下将半径和面积输出到窗体上Print Val(R), AREA End Sub,37,2. 暂停语句格式: Stop功能: 暂停程序的执行。用于程序调试。类似于执行“运行”菜单中的“中断”命令 3. 结束语句格式: End功能: 结束程序的执行。,38,例：单位发工资 ，设某职工应发工资X元，试求各种 票额钞票总张数最少的付款方案。,39,例：单位发工资 ，设某职工应发工资X元，试求各种 票额钞票总张数最少的付款方案。,40,例：生成指定范围内的随机数,41,本章小结:,输入,计算,输出,赋值语句,文本框,IntputBox函数,赋值语句,标签,文本框,Print语句,MsgBox函数,
