第3章 VB结构程序设计(选择和循环).ppt

复习 程序运行时能被对象响应和识别的操作是 下列表达式的值是 20*（4\9）+5 mod 2 +4^0.5 设a=2,?b=3,?c=4,?d=5,?下列表达式的值是_____。? NOT a=c? OR ?4*c=b^2? AND? ba+c? 复习 y=“HelloWorld”时，Mid(y，4，3) 编辑标题时，在某一个字母前加上_____符号，则该字母下加一条下划线 菜单类型、数值类型 VB程序设计基础 结构程序设计 程序结构 顺序结构 选择结构 循环结构 顺序结构 由若干个依次执行的处理块组成 语句系列1 语句系列2 语句系列n … 选择结构 程序运行时，若需要进行判断和选择，使用选择结构，有条件的选择执行一个分支，即某些语句。 简单分支 分支函数 情况分支（多分支语句） 分支嵌套（块结构条件语句） 作业 简单分支（一） 条件成立？ Y N 语句序列1 语句序列2 ENDIF之后的语句 简单分支（二） If 条件 Then 语句 If 条件 Then 语句序列 End If 简单分支（三） If 条件 Then If 条件1 Then 语句序列1 语句序列1 Else ElseIf 条件2 语句序列2 语句序列2 ……… End If Else 语句序列n End If 分支函数 格式： R=IIF(逻辑表达式，表达式1，表达式2) 功能： 当逻辑表达式的值为.T.时，返回表达式1 的值；否则，返回表达式2的值。 例：max1=IIF(xy,x,y) 情况分支（一） 在遇到多选一的情况时,可使用情况分支(多路分支)语句。 格式： Select Case 测试表达式 Case 表达式值1 语句序列1 …… Case Else 语句序列n End Select 情况分支（二） … 条件=值 1 条件=值2 条件=值n 语句组 1 语句组 2 语句组 n Y Y Y N N 语句组n+1 END SELECT之后语句 N 分支嵌套 在分支语句中，嵌入一个或多个其它的分支语句，称为分支嵌套。 注意： If/End If、Select Case/End Select必须配对使用 内层分支必须完全嵌套在外层分支之中，不能交叉 书写程序时，为清晰起见，使用逐层缩进式书写方式 复习 有两个文本框：txt1和txt2，下面程序段是当用户按下回车键（该键的ASCII值是13）后，文本框txt2即即获取到焦点。请问程序段中空格应该是什么？ Private Sub txt1_KeyPress(KeyAscii as Integer) If ______then txt2.SetFocus End Sub “选择结构”实习题 实验3-4，实验3-5，实验3-8 设计性实验3-11（x=rnd可以使x得到 一个0～1之间的随机小数） 。 任选一个select程序改写成if程序 课本P80，第1题 复习 有一个程序的界面如下图所示，：单击字体或字型选项时，标签label1的文字”单选钮和复选框”将被设置成相应的字体和字型。例如，单击单选钮optSong即宋体被选中时，标签文字显示成宋体；单击复选框chkItalic即斜体被选中时，文字斜体显示，但当再次单击斜体使得斜体选项未选中时，需取消文字的斜体效果。请完成这两个程序段。 ……… Private Sub optHei_Click() ____ = optHei.Caption End Sub Private Sub chkItalic _Click() If chkItalic.Value=1 Then ____ = True Else Label1.FontItalic =False End If End Sub 复习 已知工程有两个窗体Form1和Form2，要求在Form1启动后，单击Form1窗体弹出一个输入对话框，要求用户输入抽奖号码，如果号码正确(=“7777”)，则将Form2显示出来，并将Form1卸载；如果号码不正确，则弹出一个消息框告诉用户未中奖，然后退出整个程序。请在给定的事件过程内添加用户程序代码。 Option Explicit Private Sub Form_Click ( ) End Sub 循环结构 用来实现语句序列的重复操作。 While循环 For循环 Do循环 循环退出 循环嵌套 作业 当循