新Visual Basic程序设计教程 教学课件 邱李华 郭全 vb第04章.pptVIP

第4章 Visual Basic的控制结构 引言 VB将复杂的功能划分为由一个个相对较小的事件过程来完成。而过程内部的执行流程是由代码本身决定的，代码所采用的控制结构决定了过程内部的执行流程。 结构化程序设计所采用的3种基本控制结构： 即顺序结构 选择结构 循环结构 已经证明，无论多么复杂的程序，都可以由这3种基本结构来完成。 4.1 基 本 语 句 无论编写多么简单的程序，都会包含一些基本的功能，如输入、输出、赋值等基本功能，本节将介绍实现这些基本功能的语句。 4.1.1 赋值语句 格式： 注意： （1） 赋值号“=” 与数学中的等号意义不同。 例如，语句I=I+1表示将变量I的值加1后的值再赋给变量I，取代I原有的值，而不表示等号两边的值相等。 （2）赋值号左边必须是变量或对象的属性。 例如，X = 1 Let Text1.Text = 你好 1 = X X+1 = X （3）变量名或对象属性名的类型应与表达式的类型相容。例如： 4.1.2 数据输入 把要处理的初始数据从某种外部设备（例如键盘、磁盘文件）读取到内存中（如变量），以便进行处理，这就叫数据输入。 1．用InputBox函数输入数据 格式： 例1： studNo = InputBox(请输入学号) studNo = InputBox(请输入学号, , 0000) 2．用TextBox控件输入数据 用文本框输入数据时，也就是将文本框的Text属性的内容赋给某个变量。 例1：将文本框Text1中输入的字符串赋给字符串变量Mystr Dim MyStr As String MyStr = Text1.Text 例2：将文本框Text1中输入的字符串作为数值赋给整型变量 Dim r As Single r = Val(Text1.Text) 4.1.3 数据输出 1．用TextBox控件输出数据 文本框的Text属性是字符串类型，只能接收1个字符串类型的值。当需要在一个文本框中显示多个数据时，需要将这些数据以字符串形式连接起来，形成一个字符串，才能输出到一个文本框中。 2．用Label控件输出数据 用标签控件输出数据，实际上就是将要输出的数据赋给标签的Caption属性。 例：用标签Label1输出一个字符串 Label1.Caption = hello 标签的Caption属性是字符串类型，因此如果用标签输出数值型数据，需要首先将该数据转换成字符串类型。 例：用标签Label1输出一个数值型数据 X = 3 ^ 5 Label1.Caption = Str(X) 由于标签的Caption属性是字符串类型，只能接收一个字符串类型的值，因此，当需要在一个标签中显示多个数据时，需要将这些数据以字符串形式连接起来，形成一个字符串，才能输出到一个标签中。 例：用标签Label1输出两个数。 X = 3 ^ 5 y = 7 ^ 4 Label1.Caption = x= Str(X) _ vbCrLf y= Str(y) 3．用MsgBox函数输出数据 格式： 说明 ： （1）提示信息：字符串表达式，用于指定显示在对话框中的信息，在提示信息中若要对文本信息进行换行，可以使用回车符Chr(13)、换行符Chr(10)、回车与换行符的组合Chr(13) Chr(10)或系统符号常量vbCrLf。 例： a = MsgBox(输入的数据超出范围 vbCrLf 数据应该在0到100之间) （2）按钮类型：数值型数据，是可选项，用于指定消息框中按钮的数目及形式，以及使用的图标样式。见如P64表4-1。 具体形式：按钮的类型+图标类型+默认按钮 例如： a = MsgBox(输入的数据超出范围, vbCritical + vbAbortRetryIgnore + vbDefaultButton2) 例： a = MsgBox(输入的数据超出范围, vbCritical + vbAbortRetryIgnore + vbDefaultButton2) （3）对话框标题：指定要在消息框的标题栏中显示的字符串。如果省略，则在标题栏中显示应用程序名。 （4）MsgBox函数返回值 （5）MsgBox语句 4．用