例： r=Val(InputBox("请输入半径") 第四章 h=Val(InputBox("请输入高") 或： r=Val(InputBox("请输入半径"，"计算底面 积侧面积、体积"，"1") 顺序结构程序设计 h =Val(InputBoz"读输入高"，"计算底面积、 侧面积、体积，1") 计算底面积、 面积兴 体积 请输入半径 确定 取消 11
第 四 章 顺 序 结 构 程 序 设 计 11 例: r = Val(InputBox("请输入半径")) h = Val(InputBox("请输入高")) 或： r = Val(InputBox("请输入半径", "计算底面 积、侧面积、体积", "1")) h = Val(InputBox("请输入高", "计算底面积、 侧面积、体积", "1"))
4.2.2用TextBox控件输入数据 用文本框输入数据时，也就是将文本框 第四章 的Text属性的内容赋值给某个变量。 例：将文本框Text1中输入的字符串赋给 字符串变量Mystr 顺序结构程序设计 Dim MyStr As String MyStr=Text1.Text 例：将文本框Text1中输入的字符串作为 数值赋给单精度型变量 Dim r As Single r=Val(Text1.Text) 12
第 四 章 顺 序 结 构 程 序 设 计 12 用文本框输入数据时，也就是将文本框 的Text属性的内容赋值给某个变量。 例：将文本框Text1中输入的字符串赋给 字符串变量Mystr Dim MyStr As String MyStr = Text1.Text 例：将文本框Text1中输入的字符串作为 数值赋给单精度型变量 Dim r As Single r = Val(Text1.Text) 4.2.2 用TextBox控件输入数据
4.2.3焦点和Tab键序 1.焦点 第四章 当前可以接收用户输入的对象称为具有 焦点。 顺序结构程序设计 注意：并非所有控件都可以接收焦点。而 且，只有当控件的Enabled和Visible属性为 True时，才可以接收焦点。 2.事件 GotFocus 发生在对象得到焦点时 LostFocus 发生在对象失去焦点时 13
第 四 章 顺 序 结 构 程 序 设 计 13 1. 焦点 当前可以接收用户输入的对象称为具有 焦点。 注意: 并非所有控件都可以接收焦点。而 且, 只有当控件的Enabled和Visible属性为 True时，才可以接收焦点。 2. 事件 GotFocus 发生在对象得到焦点时 LostFocus 发生在对象失去焦点时 4.2.3 焦点和Tab键序
3.对象何时得到焦点 >运行时用Tab键移动、用访问键或用鼠标 第四章 单击选择该对象 。 >在代码中对该对象使用SetFocus.方法。 顺序结构程序设计 4.对象何时失去焦点 >运行时用Tab键移动、用访问键或用鼠标 单击选择另一个对象。 >在代码中对另一个对象使用SetFocus方法 改变焦点。 14
第 四 章 顺 序 结 构 程 序 设 计 14 3. 对象何时得到焦点 ➢运行时用Tab键移动、用访问键或用鼠标 单击选择该对象。 ➢在代码中对该对象使用SetFocus方法。 4. 对象何时失去焦点 ➢运行时用Tab键移动、用访问键或用鼠标 单击选择另一个对象。 ➢在代码中对另一个对象使用SetFocus方法 改变焦点
5.Tab键序 >指按Tab键时光标在各个控件之间移动的 第四章 顺序。 >每个窗体都有自己的Tab键序。 >默认键序与控件的建立次序一致。 顺序结构程序设计 >TabIndex属性 决定Tab键序，改变该属性可以改变Tab键 序。 >TabStop属性 决定是否能够使用Tab键将焦点移动到当 前对象。 15
第 四 章 顺 序 结 构 程 序 设 计 15 5. Tab键序 ➢指按Tab键时光标在各个控件之间移动的 顺序。 ➢每个窗体都有自己的Tab键序。 ➢默认键序与控件的建立次序一致。 ➢TabIndex属性 决定Tab键序，改变该属性可以改变Tab键 序 。 ➢TabStop属性 决定是否能够使用Tab 键将焦点移动到当 前对象