iisrp 第四章基本的控制结构 (8学时) 41顺序结构 4.2选柽结构 43循环结构 4.4其它辅助控制语句 4.5常用算法(一) 46常见错误(版底、条件环)
第四章 基本的控制结构 （8学时） 4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 其它辅助控制语句 4.5 常用算法（一） 4.6 常见错误 （顺序、条件、循环）
赋值语句 形式:[E门变量名一表达式 作用:将表达式的值赋值给变量名 般用于给变量赋值或对控件设定属性值. 例: sRate!=0 Ie*1et"迎使用 isual basic e0° 当表达式的类型与变量的类型不一致时强制转换成左边的 精度 1A%=10/3A中的结果为3 注意:虽然赋值号与关系运算符等于号都用“="表 统会根据所处的位置自动判断是何种意义的符号。,VB系
一 . 赋值语句 形式: [LET]变量名＝表达式 作用: 将表达式的值赋值给变量名. 一般用于给变量赋值或对控件设定属性值. 例: sRate!=0.1 Text1.Text ＝ "欢迎使用Visual Basic 6.0” 当表达式的类型与变量的类型不一致时,强制转换成左边的 精度 iA% = 10 / 3 iA中的结果为3 注意：虽然赋值号与关系运算符等于号都用“=”表示，VB系 统会根据所处的位置自动判断是何种意义的符号
与用户交互函数和过程 1. InputBox函数 InputBox(提示[,标题][,缺省[,x坐标位置[,y坐标位置) 其中:提示提示信息标题对话框标题,缺省输入区缺省值 函数返回字符类型 尔的名 例要在屏幕上显示如下的对话框:器峰击能 取消 Dim strName As String 40 strs As String*40 王晓明 相应的语句如下: strName= Input Box(“请输入你的姓名”+ vbCrlf+“然后单击确定”,“输入框” 也可以: strS1=“请输入你的姓名”+Chr(13)+Chr(10)+“然后单击确定 strname= InputBox(strS1,“输入框”,,100,100) 当键盘输入“王晓明”后变量 strName获得键盘输入的值
二. 与用户交互函数和过程 1. InputBox函数 InputBox(提示[，标题][，缺省][，x 坐标位置][，y坐标位置]) 其中:提示 提示信息,标题 对话框标题,缺省输入区缺省值 函数返回字符类型. 例要在屏幕上显示如下的对话框: Dim strName As String * 40， strS1 As String * 40 相应的语句如下: strName= InputBox( “请输入你的姓名” + vbCrLf + “然后单击确定” , “输入框” ) 也可以： strS1 = “请输入你的姓名” + Chr(13) + Chr(10) + “然后单击确定” strName= InputBox(strS1， “输入框”， ， 100，100) 当键盘输入“王晓明” 后,变量strName获得键盘输入的值
2. MsgBox函数和 MsgBox过程 函数形式:变 量[ %1=MsgBoX (提示按钮,杯题D 过程形式: Msg Box提示按钮标题] 按钮值如下: 函数返回所选按钮整数值: 分组内部常数按钮值 描述 0只显示0k按钮 内部常数返回值被按下的按钮 1显示0k, Cancel按 coOk Ok 钮 woAboutRetryl2显示 About, Retry,io按钮 cAncel Cancel 数 IoresNoCancel3显示Ye,No, CancEl按钮 vbAbout About 目beo 显示Yes,N按钮 reTry Retry voRetr Cancel 5显示Ry, Cancel按扭 16关键信息郾标红色STP标志 culmore Ignore 32问信息陈标? byes 类 ExClamation 48警告信息医标! boNo 型matn 64信息图标i
2. MsgBox函数和MsgBox过程 函数形式:变量[%] = MsgBox(提示[,按钮][，标题]) 过程形式: MsgBox 提示[,按钮][,标题] 按钮值如下: 函数返回所选按钮整数值:
例3,2编一帐号和密码检验程序。 要求 帐号不超过6位数字,有错清除原内容再输入 密码输入时在屏幕上以“*”代替;若密码错,显示有关信息, 选择“重试”按钮,清除原内容再输入,选择“取消”按钮, 停止运行。 帐号6位 MaxLength为6, Lostfocus判断数字 Numeric函数 分析 密码 PassWord Char-为“*”MgD函数设置密码错对话框 密码 区 输入密码 123456 密码错误 密码 火火火火 重试( 取消 确定
例3.2 编一帐号和密码检验程序。 要求: 帐号不超过6位数字,有错,清除原内容再输入. 密码输入时在屏幕上以 “*”代替; 若密码错，显示有关信息， 选择“重试”按钮，清除原内容再输入，选择“取消”按钮， 停止运行。 分析: 帐号6位,MaxLength为6 , LostFocus判断数字IsNumeric函数 密码PassWordChar为“*” ,MsgBox函数设置密码错对话框