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语句表示分段函数3311()11x xf xx x⎧-≥=⎨+<⎩，以下________表示方法不正确。

A) f=x^3+1If x>=1 Then f=s^3-1B) If x>=1 Then f=x^3-1If x<1 Then f=x^3+1C) If x>=1 Then f=x^3-1f=x^3+1D) If x<1 Then f=x^3+1 ElseF=x^3-13．执行下面的程序段后显示结果是________。

Private Sub Form_Click()Dim mIf m Then Print m Else Print m+1End SubA) 0 B) 1 C) ‖‖D) False4．设a=6，则执行x=IIf(a>5,-1,0)后，x的值为________。

A) 5 B) 6 C) 0 D) –15．下面程序段的运行结果是________。

cj=85If 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=";djA) dj=B B) dj=C C) dj=D D) dj=E6．下列语句正确的是________。

A) If K<3*N And k>N Then N=k^3B) If K<3*N And k>N Then N=k3C) If K<3*N : k>N Then N=k^3D) If K<3*N And k>N Then N=k**37．设X=2.0，y=8.0，z=6.0，L=True，则下列V isual Basic表达式中值为True的是________。

A) X+Z>Y AND L B) NOT(Y<Z+X)<>NOT LC) 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<=5000C) M>=2000 AND M<5000 D) M>=2000 OR M<50009．下列程序段的执行结果为________。

x=Int((69-60)*Rnd+60)Select Case xCase Is>90Print "优秀"Case 80 To 89Print "良好"Case 60 To 79Print "合格"Case ElsePrint "不合格"End SelectA) 优秀B) 良好C) 合格D) 不合格10．在窗体上画一个命令按钮，名称为Command1。

然后编写如下程序：运行结果________。

Private Sub Command1_Click()For I=1 To 4For J=0 To IPrint Chr$(65+I);Next JPrintNext IEnd Sub单击命令按钮后，运行结果________。

A) BBCCCDDDDEEEEEB) ABBCCCDDDDC) BCCDDDEEEED) AABBBCCCCDDDDD11．在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer,n As IntegerFor i=0 To 50i=i+3n=n+1If i>10 Then Exit ForNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是________。

A) 2 B) 3 C) 4 D) 512．在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i=1 To 4x=4For j=1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是________。

A) 7 B) 15 C) 157 D) 53813．阅读下面的程序段：For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext i执行上面的三重循环后，a的值为________。

A) 3 B) 9 C) 14 D) 2114．在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程：Private Sub Form_Load()Text1.Text=""Text1.SetFocusFor i=1 To 10Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的运行结果是________ 。

A) 在文本框Text1中输出55 B) 在文本框Text1中输出0C) 出错D) 在文本框Text1中输出不定值15．有如下程序：a=10b=4For j=1 To 20 Step -2a=a+5b=b+4Next jPrint a;b运行后，输出的结果是________。

A) 10 4 B) 60 24 C) 110 44D) 55 4016．有如下程序：d$=""a$="abcde"For i=Len(a$) To 1 Step -1d$=d$+Mid(a$,i,1)Next iPrint d$运行后，输出的结果是________。

A) abcde B) edcba C) acebd D) ecadb17．在Command1_Click事件程序的功能是：按顺序读入10名学生4门课程的成绩。

计算出每位学生的平均分并输出，程序如下：Dim n As Integer,k As IntegerDim score As Single,sun As Single,ave As Singlesum=0#For n=1 To 10For k=1 To 4score=InputBox("请输入一门课的成绩")sum=sum+scoreNext kave=sum/4print"第";n;"个人的平均成绩为：";aveNext n上述程序运行后结果不正确，调试中发现有一条语句出现在程序中的位置不正确。