vb练习题,电子版 第七章 Visual Basic控制结构(改)

第七章 Visual Basic控制结构

教学要求：

熟练掌握选择结构条件语句（包括单行结构条件语句、块结构条件语句）、IIf函数的特点和使用，熟练掌握多分支结构的特点和使用，熟练掌握For循环控制结构、DO循环控制结构的特点和使用，掌握多重循环控制结构，了解GOTO型控制（GOTO和ON-GOTO语句）的特点，正确使用选择结构、循环结构的嵌套。

知识点：

单行结构条件语句、块结构条件语句；IIf函数；多分支结构；For循环结构、DO循环结构、多重循环控制结构，循环控制语句的比较；选择结构、循环结构的嵌套。

熟练连续累加、累乘的算法，数列运算算法、‖遍历‖算法的程序设计；常用数值运算算法：平方根迭代公式、牛顿迭代法和二分法求方程的根、求f(x)的数值积分、泰勒公式。

内容导航：

一、选择控制结构

（一）单行结构条件语句

格式：If条件Then then部分［Else else部分］

功能：如果―条件‖为True，则执行―then部分‖，否则执行―else部分‖。

（二）块结构条件语句

格式：

If条件1 Then

语句块1

［ElseIf 条件2 Then

语句块2］

［ElseIf 条件3 Then

语句块3］

……

［Else

语句块n］

End If

功能：如果―条件1‖为True，则执行―语句块1‖;否则如果―条件2‖为True，则执行―语句块2‖……否则执行―语句块n‖，若无Else及其后面语句，则执行End If后面的语句。（三）IIf函数

IIf函数的格式：result=IIf（条件，True部分，False部分）

功能：当―条件‖为真时，IIf函数返回―True部分‖，而当―条件‖为假时返回―False部分‖。

二、多分支控制结构

格式：

Select Case 测试表达式

Case 表达式表列1

语句块1

［Case表达式表列2

［语句块2］］

……

［Case Else

［语句块n］］

End Select

执行过程：先对―测试表达式‖求值，然后测试该值与那一个Case子句中的―表达式表列‖相匹配；如果找到，就执行该Case子句有关的语句块，并把控制转移到End Select后面的语句；如果没有找到，则执行Case Else子句有关的语句块，并把控制转移到End Select。

三、For循环控制结构

一般格式：

For循环变量= 初值To终值［Step步长］

［循环体］

［Exit For］

Next［循环变量］［，循环变量］……

执行过程：首先把―初值‖赋给―循环变量‖，接着检查―循环变量‖的值是否超过―终值‖，若超过就停止执行―循环体‖，跳出循环，执行Next后面的语句；否则执行一次―循环体‖，然后把―循环变量＋步长‖的值赋给―循环变量‖，重复上述过程。

四、当循环控制结构

格式：

While

［语句块］

Wend

执行过程：如果―条件‖为True，则执行―语句块‖，当遇到Wend语句时，控制返回到While语句并对―条件‖进行测试，如仍然为True，则重复上述过程，如果―条件‖为False，则不执行―语句块‖，执行Wend后面的语句。

五、Do循环控制结构

格式：

Do

［语句块1］

［Exit Do］

Loop［While|Until循环条件］

Do［While|Until循环条件］

［语句块2］

［Exit Do］

Loop

功能：当指定的―循环条件‖为True或直到指定的―循环条件‖变为True之前重复执行一组语句（即循环体）。

训练：

一、选择题

1.VB的3中结构化程序设计的3种基本结构是________。

A) 选择结构、过程结构、顺序结构B) 递归结构、选择结构、顺序结构

C) 过程结构、转向结构、递归结构D) 选择结构、顺序结构、循环结构

2．用If语句表示分段函数

3

3

11

()

11

x x

f x

x x

⎧-≥

=⎨

+<

⎩

，以下________表示方法不正确。

A) f=x^3+1

If x>=1 Then f=s^3-1

B) If x>=1 Then f=x^3-1

If x<1 Then f=x^3+1

C) If x>=1 Then f=x^3-1

f=x^3+1

D) If x<1 Then f=x^3+1 Else

F=x^3-1

3．执行下面的程序段后显示结果是________。

Private Sub Form_Click()

Dim m

If m Then Print m Else Print m+1

End Sub

A) 0 B) 1 C) ‖‖D) False

4．设a=6，则执行x=IIf(a>5,-1,0)后，x的值为________。

A) 5 B) 6 C) 0 D) –1

5．下面程序段的运行结果是________。

cj=85

If cj>90 Then dj="A"

If cj>80 Then dj="B"

If cj>70 Then dj="C"

If cj>60 Then dj="D"

If cj<60 Then dj="E"

Print "dj=";dj

A) dj=B B) dj=C C) dj=D D) dj=E

6．下列语句正确的是________。

A) If K<3*N And k>N Then N=k^3

B) If K<3*N And k>N Then N=k3

C) If K<3*N : k>N Then N=k^3

D) If K<3*N And k>N Then N=k**3

7．设X=2.0，y=8.0，z=6.0，L=True，则下列V isual Basic表达式中值为True的是________。

A) X+Z>Y AND L B) NOT(YNOT L

C) NOT L OR (L=Y+X=Z) D) Y+X>=Z+X AND (L AND FALSE)

8．要判断‖月收入在2000元以上（含2000元）且5000元以下（不含5000元）‖的职工，应使用的逻辑表达式是________。

A) M>=2000 AND M<=5000 B) M>=2000 OR M<=5000

C) M>=2000 AND M<5000 D) M>=2000 OR M<5000

9．下列程序段的执行结果为________。

x=Int((69-60)*Rnd+60)

Select Case x

Case Is>90

Print "优秀"

Case 80 To 89

Print "良好"