04 控制结构与算法一.pptVIP

四、基本的控制结构;4.1 顺 序 结 构;4.1 顺 序 结 构;二、与用户交互函数和过程 1. InputBox函数：输入函数 InputBox(提示信息，对话框标题，缺省值，x 坐标，y坐标) 例:在屏幕上显示图示的对话框：;InputBox函数举例;2. MsgBox函数和MsgBox语句：输出函数 函数形式：变量[%] = MsgBox(提示,按钮，标题) 语句形式：MsgBox 提示,按钮,标题 按钮值如下： 函数返回所选按钮整数值：;例如：编一帐号和密码检验程序。 要求： 帐号不超过6位数字，有错，清除原内容再输入。 密码输入时在屏幕上以 “*”代替； 若密码错，显示有关信息，选择“重试”按钮，清除原内容再输入，选择“取消”按钮，停止运行。 分析： 帐号6位，MaxLength为6，LostFocus时判断IsNumeric函数 密码PassWordChar为“*”，MsgBox函数设置密码错对话框。;Private Sub Command1_Click() If Text2.Text = 12345 Then MsgBox 恭喜您！ Else If vbRetry = MsgBox(密码输入错误！, vbRetryCancel + 48, 错误提示) Then Text2.SetFocus Text2.Text = Else End End If End If End Sub Private Sub Text1_LostFocus() If IsNumeric(Text1.Text) = False Or Len(Text1.Text) 6 Then If vbRetry = MsgBox(用户名不是数字或者长度超过6位，重试, vbRetryCancel + 48, 错误提示) Then Text1.SetFocus Text1.Text = Else End End If End If End Sub; 4.2 选 择 结 构 1. If…Then语句(单分支结构) If 表达式 Then 语句块 End If 或 If 表达式 Then 语句 ;2. If…Then…Else语句(双分支结构) If 表达式 Then 语句块1 Else 语句块2 End If If 表达式 Then 语句1 Else 语句2 计算分段函数：;3. If…Then…ElseIf语句(多分支结构) 形式： If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 … [Else 语句块 n+1 ] End If;例：输入直角坐标系上某一点的坐标x和y，判断该点在哪个象限内。 Private Sub Form_Click() Dim x As Single, y As Single x = InputBox(请输入x轴的坐标, 输入框) y = InputBox(请输入y轴的坐标, 输入框) If x 0 And y 0 Then MsgBox 坐标在第一象限内 ElseIf x 0 And y 0 Then MsgBox 坐标在第二象限内 ElseIf x 0 And y 0 Then MsgBox 坐标在第三现象内 ElseIf x 0 And y 0 Then MsgBox 坐标在第四象限内 Else MsgBox 坐标不在任何象限内 End If End Sub;例如：已知百分制成绩mark，显示对应的五级制成绩 哪些正确，哪些错误？;4．If语句的嵌套 If语句的嵌套是指If或Else后面的语句块中又包含If语句。 形式如下： If 表达式1 Then If 表达式11 Then … End If … End If ;表达式列表可以有以下形式： 1、常数：case “A“ 2、一组枚举值：case 2,4,6,8 3、常数范围：case 1 to 10