计算机二级复习选择

1、选择结构适于解决根据“不同情况，采取不同措施”的问题单分支：如果那么IfThen 双分支：如果那么否则IfThen Else 多分支：复杂情况IfThen ElseIf 情况语句Select Case选择结构的嵌套选择结构的执行过程先判断，后执行表达式语句真假表达式假真语句1语句2表达式1表达式2表达式n语句n语句n+1语句2语句1假假假真真真无论表达式值为真或假最后均执行If的后续语句表达式可以为关系表达式、逻辑表达式和算术表达式逻辑数据与整型数据的转换规则True-1False0非0 True0False考点2：单分支结构条件语句格式： 1. If Then 2. If Then End

2、If可为表达式功能：若条件成立或为非0值，则执行“语句1”，否则执行语句2。 If xy Then t = x x = y y = t End If或If xy Then t = x: x = y: y = tx yx = t x = yy = tFalseTruex = 1 Then A = 3If K = 2 Then A = 2If K = 3 Then A = 1Print AEnd Sub运行时，输出的结果是（）A）1 B）2C）3D）出错 实例2：Private Sub Form_Click()Dim a,b,x As Integera = InputBox (a=?)b = In

3、putBox (b=?)x = a + bIf a b Then x = a - bPrint xEnd Sub运行时从键盘输入3和4，输入x的值是（）A）3 B）5 C）7D）34思考：此句改成Dim a%,b%,x As Integer结果是（）实例3：Private Sub Form_Click() a = Val(InputBox(请输入a) b = Val(InputBox(请输入b) x = a * a + b If b a Then x = b * b + a Print xEnd Sub运行时从键盘输入3和4，输出X的值是（）A）12B）13C）19D）20考点3：双分支条件语

4、句If Then Else End IfIf Then Else 表达式语句组1语句组2TFIf x0 Theny = sin(x) x3 + xElsey =tan(x+1) + 3 * x2End Ify =tan(x+1) + 3x2 (x = 0) sin x - x3 + x (x 0)计算分段函数行If与块If的区别If ab Then t=a:a=b:b=tIf ab Then t=a a=b b=tEnd If单、双分支If语句比较If x=y Then max=xElsemax=yEnd IfPrint maxmax=yIf x=y Then max=x Print max考

5、点4：IIf函数格式： 变量IIf(条件，True部分，False部分)功能：当条件为真时，返回true部分的值为函数值，而当条件为假时，返回False部分的值为函数值。说明： 1、条件是逻辑表达式或关系表达式。 2、True部分和False部分是表达式。 3、True部分和False部分的返回值必须与结果变量类型一致。 实例1：Private Sub Form_Click() b = 1 : a = 2 Print IIf (a = b,a,b) End Sub 运行后输出的结果是（ ） A）0 B）1 C）2 D）3 实例2: 下面程序用IIf函数改写为: x=b If ab then x

6、=a 多分支条件语句表达式1表达式2表达式n语句块1语句块2语句块n语句块n+1FFFTTTIfThenElseIfElseIfThenThenElse格式：If Then ElseIf Then . Else End If 输入一组成绩，评定其等级If x=90 ThenPrint 优秀ElseIf x=80 ThenPrint 良好ElseIf x=70 ThenPrint 中等ElseIf x=60 ThenPrint 及格ElsePrint 不及格End IfX=80If x=90 Then Print 优秀If x=80 Then Print 良好If x=70 Then Print

7、 中等If x=60 ThenPrint 及格ElsePrint 不及格End If多分支选择结构比较If x=60 ThenPrint 及格ElseIf x=70 ThenPrint 中等ElseIf x=80 ThenPrint 良好ElseIf x=90 ThenPrint 优秀ElsePrint 不及格End IfIf x=60 thenPrint 不及格ElseIf x=70 ThenPrint 及格ElseIf x=80 ThenPrint 中等ElseIf x=90 ThenPrint 良好ElsePrint 优秀End IfSelect Case语句Select Case 变量

8、或表达式Case 条件1Case 条件2Case ElseEnd Select表达式列表1语句块1表达式列表2语句块2表达式列表n语句块n语句块n+1TTTFFF条件的表现形式简单常量：Case 2, 5, 8测试范围：Case 10 To 20比较范围：Case Is10表达式列表形式表达式列表可以为单个值，如“VB”或A+3表达式列表可以为一组值，如1,3,5表达式列表可以为一个闭区间，如1 To 10表达式列表可以为一个半开区间，如Is60Select Case x Case 90 to 100 Print 优秀 Case 80 to 89 Print 良好 Case 70 to 79

9、Print 中等 Case 60 to 69 Print 及格 Case Else Print 不及格End Select实例1：假定有如下语句：Private Sub Form_Click() score = Int (Rnd * 10) + 80 Select Case score Case Is 60 a$ = F Case 60 To 69 a$ = D Case 70 To 79 a$ = C Case 80 To 89 a$ = B Case Else a$ = A End Select Print a$End Sub运行时输出的结果是（ ）A）AB）BC）CD）DPrivate

10、Sub Form_Click() s = Val(InputBox(Input Value of s:) Select Case s Case Is 6 f = s + 1 Case Is 5 f = s + 2 Case Is 4 f = s + 3 Case Else f = s + 4 End Select Print s; fEnd Sub运行时从键盘输入6，输出结果是（）A）6 7B）6 8 C）6 9D）6 10If语句的嵌套是指If或Else后面的语句块中又包含If语句。形式如下： If Then If Then End If End If If语句的嵌套特别要注意IF与Else

11、和end if的配对关系一个If必须与一个end if配对一个Else必须与一个If配对 IF Then . If Then Else . End If . Else . If Then . Else . End If . End If课堂练习1.设有函数r =1 x =0则下列能正确计算该函数值的语句是（）A）If x = 0 Thenr = 2End IfB）If x = 0 Thenr = 2 Else r = 1End IfC）Print ( IIf (x 0,1,2)D）r = IIf (x 0,1,2) 2.假定有如下语句Private Sub Form_Click()k = Va

12、l ( InputBox (请输入一个数)If k = 0 Then Abc = 4 : GoTo aIf k = 1 Then Abc = 3 : GoTo a If k = 2 Then Abc = 2 : GoTo a If k = 3 Then Abc = 1 a:Print k ; AbcEnd Sub运行时输入3，输出的结果是（）A）3 1B）3 4 3C）3 4 3 2D）3 4 3 2 1 3.运行以下程序后,输出的图案是:form1.clsa$=string$(10, *)for i=1 to 5 n=10-2*i x$=a$: y$=space$(n) y$=mid$(x$

13、,i+1,n) print y$next i4.假如有如下的窗体单击事件:a$= microsoft visual basic b$=right(a$,5)c$=mid(a$,1,9)msgbox a$,34,b$,c$,5程序运行后则在弹出的信息框中标题栏中显示的信息是:5.要在文本框中输入字符时,只显示某个字符,如星号(*),应设置文本框的_属性.(A) caption (B)passwordchar(C) text (D) char6.Dim a As Integer, x As IntegerFor i = 1 To 6 If i = 1 Then x = i If i = 4 The

14、n x = x + 1 Else x = x + 2 End IfNext iPrint x输出结果为:7.用输入对话框输入x，根据下式计算对应的y，并在窗体上输出y的值。+=106210010sin3xxxxxxy Dim n%, m% Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Select Case Val(Text1) Mod 2 Case 0 n = n + Val(Text1.Text) Case 1 m = m + Val(Text1.Text) End Select End If T

15、ext1.Text = Text1.SetFocus Text2.Text = n: Text3.Text = m End Sub8.下面程序运行后，在text1中依次输入12345678，按回车键后在text2和text3中显示的内容是?单选按钮 Option属性Caption（标题）Enabled（是否活动）Value（是否选中）Alignment（标题位置）Visible（是否可见） 事件ClickValue值True 为选中False 为不选【例】在名称为Form1的窗体上画三个单选按钮，其名称分别为Option1、Option2和Option3,然后通过属性窗口设置窗体和单选按钮的属

16、性，实现如下功能： 1）窗体标题为“设置单选按钮属性” 2）三个单选按钮的标题分别为“按钮1”、“按钮2”和“按钮3” 3）初始状态为，第一个单选按钮为“选中” 4）程序运行后，第二个单选按钮“禁用” 5）程序运行后，第三个单选按钮不可见要求：不编写任何代码。复选框 Check属性CaptionValueAlignment事件Click1-checked为选中0-Unchecked为不选2-Grayed为禁止操作（灰色）历年真题 2007年9月选择题第18题 在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序：PrivateSubForm_Load()Command2.Enabled=FalseCheck1.value=1EndSub刚运行程序时，看到的窗体外观是： ABCD补充几个属性字体属性FontName字号属性 FontSize下划线 FontUnderline加粗 FontBold倾斜 FontItalic记忆方法：注意都包含Font，在代码窗口输入对象名后，利用下拉式属性列表输入Font后可查到对应的字体系列属性名【例4