vb程序设计第2版第4章.pptx

事件驱动: 将代码划分成一些“子过程”过程结构: 过程内部代码由三种基本结构组成 即: 顺序结构、选择结构、循环结构顺序结构: 执行过程的次序从上到下，从左到右例: Private Sub Command1_Click() Const Pi = 3.14 H = Val(Text1.Text) : R = Val(Text2.Text) Text3.Text = Pi * R ^ 2 * H End Sub4.1 赋值语句1. 格式 变量名=表达式 或: [对象名.]属性名=表达式2. 功能 计算表达式的值,再将此值赋给变量或对象属性。3. 说明(1) 变量名: 应符合VB变量命名约定。(2) 表达式: 常量、变量、表达式、属性。(3) 对象名: 缺省时为当前窗体。(4) 赋值号“=”: 与数学中的等号意义不同。 例: X=X+1(5) 赋值号左边必须是变量或对象属性。 例: X=1 MyStr=Good Morning Command1.Caption=确定 X+1=X 错误，赋值号左边是表达式 Y=5 正确 5=Y 错误，赋值号左边是常量 (6) 变量名或对象属性名的类型应与表达式类型相容。 类型相容：指变量名或对象属性名能够正确存取赋值号右边的表达式的值。例: 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 ‘ 高精度变量赋值给整型变量， 先四舍五入后取整, A中存放12346 C = 123456.789 B = C 高精度变量赋值给低精度变量， 变量B中存放123456.8。有效数字7位 S = abc A = S 错误，类型不匹配(7) 变量未赋值时，数值型变量值为0，字符串变量值为空串。(8) 给可变类型的变量赋值后，变量的类型为赋值号右边表达式的类型。例: 执行下列各赋值语句后，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)A=BBAC=AB=CC【例4-1】设变量A中存放5，变量B中存放8，交换两个变量的值，使变量A中存放8，变量B中存放5。 代码如下: A = 5B = 8C = AA = BB = C赋值语句；输入框(InputBox)；文本框(TextBox)；……输入4.2 数据输入 把要加工的初始数据从某种外部设备（例如键盘）输入到计算机中，并把处理结果输出到指定设备（如显示器），这是程序设计语言所应具备的基本部分。4.2.1 用InputBox函数输入数据1. InputBox函数的格式 InputBox(提示信息 [, 标题 ] [, 默认值])2. 功能 提示一对话框，等待用户输入正文或按下按钮，并返回包含文本框内容的字符串。3. 说明 提示信息: 字符串表达式。 可用Chr(13)、Chr(10)、 Chr(13) Chr(10)、vbCrLf换行。标题: 字符串表达式,省略时默认为应用程序名。默认值: 字符串表达式,省略时默认为空。返回值: 字符串(在对话框中单击取消则返回)例: 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单击“确定”，返回文本框中的文本到变量R中单击“取消”，返回一个零长度的字符串4.2.2 用TextBox控件输入数据 用文本框输入数据时，也就是将文本框的Text属性的内容赋值给某个变量。 例：将文本框Text1中输入的字符串赋给字符串变量Mystr Dim MyStr As String MyStr = Text1.Text 例：将文本框Text1中输入的字符串作为数值赋给整型变量 Dim A As Integer A = Val(Text1.Text)4.2.3 焦点和Tab键序1. 焦点 当前可以接收用户输入的对象称为具有焦点。 注意: 并非所有控件都可以接收焦点。而且, 只有Enabled和Visible属性为True