2014年9月二级VB等级考试辅导第2次教程.ppt

2014年9月等级考试辅导;第二讲 VB控制结构-选择; VB控制结构;顺序结构; 变量/属性名＝表达式/属性值;1.赋值号左边只能是变量，不能是常量、常数符号或表达式 sin(x) = x + y 5 = sqr(s) + x + y x + y = 3 2.不能在一句赋值语句中给多个变量赋值 Dim x%,y%,z% x=y=z=1;赋值语句的特点;;P71 单分支选择结构;单分支选择结构;P72- 考点1 选择结构;双分支选择结构;If X Y Then Max = X Else Max = Y End If;If 嵌套;X＝90;P72- If多分支选择结构;If x = 90 Then y = 优秀 ElseIf x = 80 Then y = 良好 ElseIf x = 60 Then y = 合格 Else y = 不合格 End If;上机练习题;P75- 考点2 Select Case语句;Select Case x Case 90 to 100 y = 优秀 Case 80 to 89 y = “良好“ Case 60 to 79 y = “合格 Case Else y = 不合格 End Select;练习题; 历年真题 2006年4月选择题20题;上机练习题3.3; 常用标准控件;P69 –考点3 单选按钮 Option;;P69 –考点3 复选框 Check;历年真题 2007年9月选择题第18题 ;;;P77 循环结构;循环结构;循环结构;循环结构;历年真题;循环结构;While条件;练习题;练习题;循环结构;循环结构;循环结构;循环结构;典型例题;;Public Sub Guess() Dim R As Integer Dim X As Integer Dim times As Integer Randomize R = Rnd * 100 产生一个1--100 的任意整数 times = 1 Do X = Val(InputBox(输入猜数X)) Select Case X Case R Form1.Print 猜中了 Exit Do Case X R Form1.Print “太大了,继续猜!” Case Else Form1.Print 太小了,继续猜! End Select;多重循环结构;例:产生并显示由数码1、2、3构成的所有三位数， 并统计这些三位数的个数;例:编写打印右边图案的代码 ;Private sub form_click() For i=1 to 3 For j=1 to 3 For k=1 to 3 Print i;j;k A=A+1 Next Next Next Print A End sub;Private sub form_click() For i=1 to 3 For j=1 to 3 For k=j to 3 Print i;j;k A=A+1 Next Next Next Print A End sub;Private sub form_click() For i=1 to 3 For j=1 to i For k=j to 3 Print i;j;k A=A+1 Next Next Next Print A End sub ;Thank You !