《第4章VB控制结构》习题一、填空题1、结构化程序设计语言的三种基本控制结构是、、。

2、分支结构中的条件通常是表达式。

1、Select case语句执行哪一个分支的根据是与相匹配。

2、强制性退出Do…Loop循环的语句是，强制性退出For…Next循环的语句是。

3、VB有三种工作模式，它们分别是、和。

4、VB可能遇到的错误有、和。

5、执行下面的程序段后，s的值为。

s=5For i=2.6 To 4.9 Step 0.6s=s+1Next i6、阅读程序，写出程序的运行结果box 。

Private Sub Form_Click()Dim k，Box as IvtegerFor k=1 to 11Select Case kCase 1,3,5,7,9,11Box=Box+Int(k/2)Case 2,4,6,8,10Box=Box+Int(k/3)End SelectNext kPrint “Box”;BoxEnd Sub7、运行时单击窗体，以下事件发生的次序是。

8、执行下列程序段后，x的值是。

n = 5: x = 1: i = 1Dox = x * ii = i + 1Loop While i < n9、阅读下列程序段：x = 0For i = 1 To 4For j = 1 To ix = x + 1Next j, i执行以上循环后，x 的值为。

10、执行下列程序段后输出的结果是。

s = 1For i = 1 To 3For j = 0 To i-1s = s + s * jNext j? s;Next i11、阅读下列程序段：m = 0For i = 1 To 3For j = 1 To im = m + jNext j, i执行以上的循环后，i和m的值分别为。

12、运行下列程序段，其中“n=n+1”语句被执行的次数是。

Dim m%, n%For m = 1 To 3For n = 1 To 6 Step 2n = n + 1Print nNext nNext m13、窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()Sum = 0For m = 1 To 3Select Case mCase 1a = 1Case 2a = 2Case 3a = 3End SelectPrint a,Sum = Sum + aNext mPrint SumEnd Sub运行时，单击按钮，输出结果是。

14、窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()a = 80:b = 50:c = 30If a < b Or b > c Then b = cIf b = c And a < c Then a = a - 30If a = b And b > c Then c = a + bPrint a, b, cEnd Sub运行时，单击按钮，窗体输出的结果是。

二、单项选择题1、选择和循环结构的作用是（）。

A、提高程序运行速度B、控制程序的运行C、便于程序的阅读D、方便程序调试2、要计算当0<x<10时，将x的值赋给y，应使用语句（）。

A、If 0<x<10 then y=xB、If 0<x or x<10 then y=xC、If 0<x and x<10 then y=xD、If 0<x Xor x<10 then y=x3、多分支选择结构的case语句，写法错误的是（）。

A、Case 1，5，7，9B、Case 8 To 12C、Case 5 To 2D、Case Is<”man”4、For…Next循环结构中，循环控制变量的步长为0，则（）。

A、形成无限循环B、循环体执行一次后结束循环C、语法错误D、循环体不执行即结束循环5、要使循环体至少执行一次，应使用（）循环。

A、For …NextB、While …WendC、Do …Loop[While/Until]D、Do[While/Until] …Loop6、为了显示当前过程中局部变量的当前值，应用调试窗口中的（）。

A、本地窗口B、立即窗口C、监视窗口D、快速监视窗口7、标志错误处理程序开始的语句是（）。

A、Exit SubB、行标号C、On Error语句D、Resume语句8、执行下列程序段，x的值为（）。

x=5For i=1 to 20 Step 2x=x+i\5Next iA、21B、22C、23D、249、编写程序计算5门课的平均成绩，将除数5误写为4，这属于（）。

A、系统错误B、编译错误C、逻辑错误D、运行错误10、下列命令按钮事件过程执行后，输出结果是（）。

Private Sub Command1_Click()For m=1 To 10 Step 2a=10For n=1 To 10 Step 2a=a+2Next nNext mPrint aEnd subA、60B、50C、30D、2011、编写如下事件过程：Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_X As Single, Y As Single)If Shift = 3 And Button = 2 ThenPrint "Visual Basic"End IfEnd Sub运行时，为了在窗体上输出"Visual Basic"，应执行的操作为（）。

A、按下Shift键和鼠标左键B、同时按下Shift、Alt键和鼠标左键C、按下Alt键和鼠标右键D、同时按下Shift、Ctrl键和鼠标右键12、下列求两数中最小数的程序段不正确的是（）。

A、If x < y Then Min = x Else Min = yB、Min = IIf(x < y，x，y)C、Min = x : If y < = x Then Min = yD、If y < = x Then Min = y : Min = x13、下列程序段的执行结果是（）。

x = 3 : y = 5 : z = 9x = x + yy = x - yIf x - y > z - x Then z = x + yIf x + y > z - y Then x = z + yPrint x, y, zA、3 5 9B、14 3 11C、8 3 11D、8 5 914、如果x小于y的平方，则在窗体上输出“OK”。

完成该要求的单行条件语句是（）。

A、If x < y ^ 2 Then "OK"B、If x < y ^ 2 Then Show "OK"C、If x < y ^ 2 Then Print "OK"D、f x < y ^ 2 Then Put "OK"15、有如下程序段：Dim s%, t%, a%, b%s = 1: t = 1a = Text1.Textb = Text2.TextIf a > 0 Then s = s + 1If a > b Thent = t + sElseIf a = b Thent = 5Elset = 2 * sEnd IfEnd IfPrint tEnd Sub要使程序输出结果为4，则a和b应满足的条件是（）。

A、a>0 And a<bB、a<0 And a<bC、a>0 And a>bD、a<0 And a>b16、以下条件语句错误的是（）。

A 、If X Then Y = Y + 1B 、If X = 0 Then Y = 0C 、If X > 0 Then Y = 1: Print YD 、If X > Y Then Print Y End If 三、编程题1、 编程计算下列函数。

SinX X ≥20 Y= CosX 0≤X <20e XX <02、 求一元二次方程ax 2+bx+c=0的根。

提示：从初等代数可知，此方程有两个根，它有三种可能（设d=b 2-4ac ）：（1） 若b 2-4ac>0，有两个不等的实根：a db x 22,1±-=（2） 若b 2-4ac=0，有两个相等的实根：ab x 22,1-=（3） 若b 2-4ac<0，有一对共轭复根：i ad ab x 222,1-±-=3、 某商品价格随购货数量而定，买100个以上（含100个，下同）的打9折，200个以上的打8.5折，300个以上的打8折，400个以上的打7.5折，500个以上的打7折。

设商品单价为65元，要求从键盘输入购买商品数量后，显示出总货款。

4、 求∑=201!n n （即求1！+2！+3！+…+20！）。

5、 输出斐波纳契（fibonacci ）数列的前20项。

数列的规律是：第一、二个数是1，从第三个数起，该数是前面两个数之和。

6、 如果我国工农业生产值每年以12%增长率递增，问多少年后产值翻一番？7、 求出2000 — 2005年之间的所有闰年。

闰年的条件是：能被4整除但不能被100整除的年份，或者能被400整除的年份，如2000年、2004年是闰年，而2001年、2100年不是闰年。

8、 找出1~1000之间的全部“水仙花数”。

“水仙花数”是这样的一个整数，它的每位数字的立方之和正好等于这个三位数。

例如153是水仙花数，因为13+53+33=153。

9、 在窗体上输出如图18所示的图形。

图4-18 编写代码输出图形10、 输出九九乘法表。