第4章 基本控制结构.ppt

第四章 基本控制结构 本章内容： 1.赋值语句、输入/输出消息框函数的使用 2.顺序、选择、循环结构程序设计 3. 算法的概念和常用算法 4.1 顺序结构 4.1.1 赋值语句 形式: 变量名＝表达式 对象.属性＝表达式 功能： 将表达式的值赋值给变量名或指定对象的属性。 一般用于给变量赋值或对控件设定属性值. 例： sRate!=0.1 Text1.Text ＝ 欢迎使用Visual Basic 6.0” 说明： 1 执行过程：先求表达式的值，然后将值赋值给左边的变量。 2 不要将“＝”理解为数学上的等号： A=A+1 是表示将A单元的值加１后以放回到A单元。 4.1 顺序结构 4.1 顺序结构 4.1.2 用户交互函数和过程 1. InputBox函数 变量名=InputBox[$](提示信息[，标题][，缺省] [，x坐标][，y坐标] ) 其中:提示 提示信息,标题 标题区显示,缺省输入区缺省值。 例如，要在屏幕上显示如下的对话框: 4.1 顺序结构 4.1 顺序结构 2. MsgBox函数和MsgBox过程 函数形式:变量[%] = MsgBox(提示[,按钮[＋图标]+ [缺省按钮]+[标题]) 过程形式: MsgBox 提示[,按钮[＋图标] +[缺省按钮]+ [标题] 4.1 顺序结构 4.1 顺序结构 4.1 顺序结构 根据用户所选按钮，函数返回1—7的整数值，其含义如下表: 4.1 顺序结构 请阅读下面的程序 4.1 顺序结构 4.1 顺序结构 4.1 顺序结构 程序调试 4.2 选择结构 1. If…Then语句(单分支结构) If 表达式 Then 语句块 End If 或 If 表达式 Then 语句 4.2 选择结构 2. If…Then…Else语句(双分支结构) If 表达式 Then 语句块1 Else 语句块2 End If If 表达式 Then 语句1 Else 语句2 4.2 选择结构 4.2 选择结构 3. If…Then…ElseIf语句(多分支结构) 形式: If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 … [Else 语句块 n+1 ] End If 4.2 选择结构 4.3.2 Select Case语句（情况语句） 形式： Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else 语句块n+1] End Select 4.2 选择结构 说明： 表达式列表：与变量或表达式同类型的下面四种形式之一： 表达式 A +5 一组枚举表达式(用逗号分隔) 2, 4, 6, 8 表达式1 To 表达式2 60 to 100 Is 关系运算符表达式 Is 60 提出问题 Private Sub Command1_Click() Dim nw%, i%, nl% nw 保存单词个数,nl保存文本框中字符的个数,作为循环的终值 Dim wt As Boolean true:在单词中;false:不在单词中 Dim strT$, strI$ strT保存每次取出的字符;strI保存文本框中的字符 strI = Text1.Text nl = Len(RTrim(strI)) For i = 1 To nl strT = Mid(strI, i, 1) S