VB课本习题答案

1、第3章 程序流程控制31 填空题1设变量r 表示圆的半径，则计算圆的面积并赋给变量s使用的赋值语句为（ s=3.14159*r*r ）。2 给命令按钮Command2的Caption属性赋予字符串“退出”使用的赋值语句为（ Command2.Caption=退出 ）。3为了求n的阶乘，要求用户输入n的值。程序使用InputBox函数输入，要求对话框提示信息为“请输入一个求阶乘的数：”，标题为“求数的阶乘”，并且正确地把输入的信息转换为数值存放到变量n中，则使用的赋值语句为（ n=val（InputBox（请输入一个求阶乘的数：，求数的阶乘） ）。如果使用MsgBox对话框显示提示信息“退出本系

2、统？”，并显示“是（Yes）”和“否（No）”两个按钮，显示图标“？”号，指定第一个按钮为默认值以及标题为“提示信息”，则调用MsgBox函数的形式为（ MsgBox（退出本系统? ，4+32+0，提示信息） ）。如果使用MsgBox对话框显示提示信息“文件未找到！”，并显示“确定”按钮、图标“！”号和标题“文件查找”，则使用的MsgBox语句为（ MsgBox文件未找到，0+48+0，文件查找 ）。要在当前窗体Form和立即窗口输出字符串“Visual BASIC 6.0”使用的Print方法分别是( Print “Visual BASIC 6.0” )和( Debug.Print “Vis

3、ual BASIC 6.0” )。使用Print方法时，若用逗号分隔， 则按( 标准 )格式输出各表达式的值，若用分号分隔，则按( 紧凑 )格式输出各表达式的值。注释语句是一个（ 非执行 ）语句，VB不对它们进行编译，对程序的执行结果没有任何影响。判别变量i是否为偶数，若为偶数就把它显示出来。使用单行结构条件语句为（ If i Mod 2=0 Then print x ）。10判别变量x是否大于0，若大于0，则累加到变量s1中，否则，累加到变量s2中，使用的单行结构条件语句为（ If x>0 Then s1=s1+x Else s2=s2+x ）。11给定分段函数，求y的值，使用的单行结

4、构条件语句为（ If x>0 Then y=2*x+1 Else If x=0 Then y=0 Else y=2*x-1 ）。12判别a是否等于b，若a=b，则输出字符串 “a is equal to b”的块结构条件语句为（ ）。答案： If a=b Then Print “a is equal to b”End13判别ch是否为小写字母，若是，输出“yes”；否则，输出“No”的块结构条件语句为（ ）。答案： If Asc(ch)>=97 And Asc(ch)<=122 ThenPrint “Yes”Else Print “No”End If14若一个case子句中的

5、表达式表由逗号分隔的若干个常数组成，则它的含义是：当测试表达式的值等于（ 这些常数中的某一个 ）时，执行该case子句相应的程序块。15若case子句中的表达式表列具有形式：<表达式1> To <表达式2>，则它的含义是：当测试表达式的值等于（ 这个范围内的值 ）时，执行该case子句相应的程序块。16若case子句中的表达式表列具有形式：Is <关系运算符> <表达式>，则它的含义是：当测试表达式的值满足（ Is后的关系 ）时，执行该case子句相应的程序块。17在循环语句中，反复执行的程序段称为（ 循环体 ）；进入循环体的条件称为（ 循环条件

6、 ）；中止循环体执行的条件称为（ 结束循环条件 ）。32 选择题下列赋值语句中，( d )是正确的。)x！abcb)a10ec)xd)s1002下列选项中，( d )不能交换变量a和b的值。 a) t=b : b=a : a=t b) a=a+b : b=a-b : a=a-b c) t=a : a=b : b=t d) a=b : b=a 3若在消息框MsgBox中显示“确定(Ok)”和“取消(Cancel)”两个按钮，则buttons参数的设置值是( b )。a) 0b) 1c) 2d)34若在消息框MsgBox中选择第二个按钮为默认值，则buttons参数的设置值是( b )。a)0b)

7、256c)512d)7685若单击了“终止（Abort）”按钮，则MsgBox函数的返回值是（ c ）。a)1b)2c)3d)46以下不正确的单行结构条件语句是（ d ）。a) If x>y Then Print “x>y”b) If x Then t = t * xc) If x Mod 3=2 Then ? xd) If x<0 Then y = 2*x-1 : Print x End If7给定程序段Dim a As Integer, b As Integer, c As Integera=1：b=2：c=3If a=c-b Then Print "#&quo

8、t; Else Print "*"以上程序（ c ）。a) 没有输出 b) 有语法错c) 输出# d) 输出*8把a, b之中的最大值存放于max，下面语句书写正确的是（ d ）。a) If a>b Then max=a Else max=b End Ifb) If a>b Then max=aElse max=bEnd Ifc) If a>b Then max=a Else max=b d) If a>b Thenmax=a Elsemax=bEnd If9. 下列Case语句中正确的是（ c ）。a)Select Case xCase 1 Or

9、3 Or 5 y=x*x-1 Case Is >10 y=x+1 End Selectb) Select Case x Case 1, 3, 5 y=2*x-1 Case Is x <=1 Y=2*x+1End Selectc) Select Case x Case Is <=0 y=x-1 Case Is >0 y=Sqr(x)+1 End Select d) Select Case xCase x>=1 And x<= 5y=x-1Case Is >10y=x*x+1End Select10执行下列程序段后屏幕上（ c ）。i% = 10 : Su

10、m = 0While i > 1Sum = Sum + ii = i - 1WendPrint Suma) 无显示b) 显示10c) 显示54d) 显示5511执行下列程序段输出结果是（ c ）。x%=2Do while x<8Print “*”；x=x+2Loopa) *b) *c) *d) *12设有程序段Dim k% k=5Do until k=0k=k-1Loop则下面对循环语句描述正确的是（ c ）。a) 循环体1次也不执行 b) 循环体执行1次c) 循环体执行5次 d) 循环体执行无限次 13下面描述中错误的是（ a, c ）。a) 执行Do until <条件&

11、gt;loop语句中，当循环<条件>为false时，结束循环体的执行。b) 执行While <条件>Wend语句时，循环体可能一次也不执行。c) Do loop While <条件>语句的循环体可能一次也不执行。d) 执行Do loop Until <条件>语句中，当循环条件为true时，结束循环体的执行。14下面程序段中循环语句的循环次数是（b ）。For x=10 To 1 Step -3Print xNext xa) 0b) 4c) 5d) 1015执行语句For i=1 to 3: i=i+1 :Next i后变量i的值是（ c）。a)

12、3b) 4c) 5d) 616下面程序段执行后输出结果是（ b ）。For i=1 To 2 s=1For j=0 To i-1 s=s+s*jNext jPrint s,Next ia) 1 1b) 1 2c) 2 1d) 2 233 阅读下列程序，写出执行结果1. Private Sub Form_Click Print 2*3/2 , “Visual ” & “BASIC”， Not 5>3， 0.75 Print 2*3/2 ; “Visual ” & “BASIC”; Not 5>3; 0.75x=12.34Print “x=”；Print xEnd Su

13、b答案： -3 Visual BASIC False .75-3 Visual BASICFalse .75x=12.342 Private Sub Form_Click Print Tab(10); -100;Tab(20); 200;Tab(30); -300Print Spc(10); -100;Spc(10); 200;Spc(10); -300End Sub 答案：-100 200 -300 -100 200 -300 3 Private Sub Form_Click x=12.35Print Format ( x,”#.#” )Print Format ( x,”#.#” ) Pr

14、int Format ( x,”000.00” ) Print Format ( x,”00.0”)Print Format ( x,”0.00%” )Print Format ( x,”$#.#” )Print Format ( x,”+#.#” )Print Format ( x,”00.00E+00” )End Sub答案：1235 1235 01235 124 123500% $12.35 +12.3512.35e+004 Private Sub Command1_Click()Dim a%, b%, c%, s%, w%, t%a = -1: b = 3: c = 3s = 0: w

15、 = 0: t = 0If c > 0 Then s = a + bIf a <= 0 Then If c <= 0 Then w = a - b End IfElse If c > 0 Then w = a - b Else t = cEnd Ifc = a + bPrint a, b, cPrint s, w, tEnd Sub答案： -1 3 2 2 0 05 Private Sub Command1_Click()Dim x%, y%x = InputBox("请输入x的值：")Select Case xCase 1, 3, 5y = x -

16、 1Case 6 To 10y = x + 1Case 2, 4y = 2 * xCase Is > 10y = x * x + 1End SelectPrint "x=" x, "y=" yEnd Sub （x 的输入值为2.5、8、4和15）答案： x=2 y=4x=8 y=9x=4 y=8x=15 y=2266 Private Sub Command1_Click()Dim i%, t!t = 1: i = 1While i < 10t = t * ii = i + 2WendPrint "t=" tEnd Sub答

17、案：t=9457 Private Sub Command1_Click()Dim i%, x%, y%x = 1: y = 1:i = 1Do Until i > 8If i Mod 2 = 1 Thenx = x * iElsey = y * iEnd Ifi = i + 1LoopPrint "x=" x, "y=" yEnd Sub答案：x=105 y=3848 Private Sub Command1_Click()Dim p%, s%p = 1: s = 1Do p=p+2:s=s+pLoop While p<10Print &qu

18、ot;s=" sEnd Sub答案：s=369 Private Sub Command1_Click()Dim m%, n%For m=1 to 3 n=0 While n<=m-1 Print m,n n=n+1 WendNext mEnd Sub答案: 1 0 2 0 2 13 03 13 234 编程题1. 输入一个学生成绩，若成绩在85分以上，则输出“very good”；若成绩在60分到80分之间，则输出“good”；若成绩低于60分，则输出“no good”。解答：(1) 界面设计和属性设置在窗体上建立两个标签、两个文本框和两个命令按钮。窗体和窗体上控件的主要属性设

19、置如表3-3-1所示。表3-3-1 第1题的属性设置 控件名称 属性名 属性值 Form1 Caption根据分数给定评语 Label1 Caption 分数 Label2Caption 评语 Text1 Text 空串 Text2 Text 空串 Command1Caption 开始 Command2 Caption 结束(2) 程序代码Private Sub Command1_Click() Dim score! score = Val(Text1.Text) If score >= 85 Then Text2.Text = "Very good!" ElseIf

20、 score >= 60 Then Text2.Text = "Good!" Else Text2.Text = "No good!" End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub(3) 运行情况运行程序后，屏幕出现用户界面。把鼠标移到Text1文本框并单击，输入分数。然后，单击“开始”命令按钮，系统执行Command1_Click事件过程。执行结果如图所示。单击标题为“结束”的命令按钮，执行Command2_Click事件过程，结束程序的执行。图3.3.1 第1题的执行结果2. 求一元二

21、次方程ax+bx+c=0的根。解答：(1) 界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-2所示。表3-3-2 第2题的属性设置 控件名称 属性名 属性值 Form1 Caption求一元二次方程的根 Command1Caption 开始 Command2 Caption 结束(2) 程序代码由中学数学知识知道，求一元二次方程的根的公式为：，编程时要考虑如下各种情况： 当a=0 时，方程不是二次方程； 当 b2-4ac=0 时,有两个相同的实根： ； 当 b2-4ac>0 时,有两个不同的实根： ； 当 b2-4ac<0 时,有两个共轭复根：

22、。Private Sub Command1_Click() Cls Dim a!, b!, c!, disc!, x1!, x2!, realpart!, imagpart! a = InputBox("请输入方程的系数a：") b = InputBox("请输入方程的系数b：") c = InputBox("请输入方程的系数c：") Print: Print Print Tab(10); "输入方程的系数为：" "a=" a; "b=" b; "c="

23、c Print If Abs(a) <= 0.000001 Then Print Tab(15); "方程不是一个二次方程！" Else disc = b 2 - 4 * a * c If Abs(disc) <= 0.000001 Then Print Tab(10); "方程有两个相同的实根：" "x1=x2=" -b / (2 * a) ElseIf disc > 0.000001 Then x1 = (-b + Sqr(disc) / (2 * a) x2 = (-b - Sqr(disc) / (2 * a

24、) Print Tab(5); "方程有两个实根：" Print Tab(18); "x1=" x1 Print Tab(18); "x2=" x2 ElseIf disc < 0.000001 Then realpart = -b / (2 * a): imagpart = Sqr(-disc) / (2 * a) Print Tab(5); "方程有两个虚根：" Print Tab(18); "x1=" realpart; "+" imagpart; "i

25、" Print Tab(18); "x2=" realpart; "-" imagpart; "i" End If End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub注意，程序中的条件“fabs(a)<=0.000001”和“fabs(disc)<=0.000001”分别用来判断a和disc的值是否为0。因为实数在计算机计算和存储时会有微小的误差，若用“a=0”和“disc=0”来判断a和disc是否为0，则会由于误差导致条件不成立，无法得到正确的运行结果。(

26、3)运行情况运行程序后，单击“开始”命令按钮，执行Command1_Click事件过程。执行时，在InputBox框中输入 a、b和c三个系数。图图显示了不同系数输入的执行结果。 图3.3.2 执行结果(a) 图3.3.3 执行结果(b) 图3.3.4 执行结果(c) 图3.3.5 执行结果(d)3. 给定函数y = ,从键盘上输入x的值，求y的值。(要求使用Case语句)解答：(1) 界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-3所示。表3-3-3 第3题的属性设置 控件名称 属性名 属性值 Form1 Caption求给定分段函数的值 Command

27、1Caption 开始 Command2 Caption 结束(2) 程序代码Private Sub Command1_Click() Cls Dim x!, y! x = InputBox("请输入x的值：") If x >= 1 And x <= 5 Then Select Case x Case Is < 2 y = 3 * x - 5 Case Is < 4 y = 2 * Cos(x) + 1 Case Is <= 5 y = Sqr(1 + x * x) End Select Else y = x * x - 4 * x + 5 E

28、nd If Print Tab(10); "x=" x, "y=" yEnd SubPrivate Sub Command2_Click() EndEnd Sub(3) 运行情况运行程序后，单击“开始”命令按钮，执行事件过程Command1_Click。执行时，按InputBox对话框提示，输入x的值。计算结果在窗体上显示。4. 输入圆的半径R和运算标志，按照运算标志进行指定运算。给定的运算标志及其表示的运算如下：C（Circle） 表示计算周长A（Area） 表示计算面积B（Both） 表示周长和面积都计算(要求使用Case语句)解答：(1)界面设计和

29、属性设置在窗体上放置两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-4所示。表3-3-4 第4题的属性设置 控件名称 属性名 属性值 Form1 Caption计算圆周长或圆面积或两者都计算 Command1Caption 开始 Command2 Caption 结束(2)程序代码Private Sub Command1_Click() Cls Dim r!, f As String * 1 Const pi! = 3.14159265 r = InputBox("请输入圆的半径 r ：") If r >= 0 Then f = UCase(InputBox(&

30、quot;输入运算标志：" + Chr(13) & _ "C_(计算周长)" + Chr(13) & _ "A_(计算面积)" + Chr(13) & _ "B_(两者都计算)") '提示信息分多行显示 Select Case f Case "C" Print Tab(10); "半径r=" r; "圆周长=" r * 2 * pi Case "A" Print Tab(10); "半径r="

31、r; "圆面积=" r 2 * pi Case "B" Print Tab(10); "半径r=" r; "圆周长=" r * 2 * pi Print Tab(10); "半径r=" r; "圆面积=" r 2 * pi Case Else Print Tab(18); "输入的运算标志错！" End Select Else Print Tab(18); "半径不能是负数！" End IfEnd SubPrivate Sub Comm

32、and2_Click() EndEnd Sub(3)运行情况运行程序后，单击标题为“开始”的命令按钮，执行Command1_Click事件过程。按InputBox对话框的提示输入半径r和运算标志。计算结果在窗体上显示。5. 求满足12+22+n2>1000的最小n值。(要求使用WhileWEnd语句)解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-5所示。表3-3-5 第5题的属性设置 控件名称 属性名 属性值 Form1 Caption求满足12+22+n2>1000的最小n值 Command1Caption 开始 Command2

33、 Caption 结束(2)程序代码Private Sub Command1_Click() Dim n%, s& n = 0: s = 0 While s <= 1000 n = n + 1 s = s + n 2 Wend Print: Print: Print Print Tab(8); "满足12+22+n2>1000的最小n值为：" nEnd SubPrivate Sub Command2_Click() EndEnd Sub6输入若干个正实数，个数预先不能确定，求这些正实数之和。(要求分别使用Do WhileLoop语句和Do Until L

34、oop语句)解答：(1)界面设计和属性设置在窗体上建立三个命令按钮。窗体和命令按钮的主要属性设置如表3-3-6所示。表3-3-6 第6题的属性设置 控件名称 属性名属性值 Form1 Caption求正实数之和 Command1CaptionDo WhileLoop Command2 CaptionDo UntilLoop Command3 Caption结束(2)程序代码Private Sub Command1_Click() Cls Dim a!, s! a = InputBox("输入一个实数：") Do While a >= 0 s = s + a a = I

35、nputBox("输入一个实数：") Loop Print: Print Print Tab(15); "输入的正实数之和为：" sEnd SubPrivate Sub Command2_Click() Cls Dim a!, s! a = InputBox("输入一个实数：") Do Until a < 0 s = s + a a = InputBox("输入一个实数：") Loop Print: Print: Print Print Tab(15); "输入的正实数之和为：" sEnd

36、 SubPrivate Sub Command3_Click() EndEnd Sub(3) 运行情况运行程序后，屏幕出现用户界面如图所示。单击标题为“Do WhileLoop”或标题为“Do WhileLoop”的命令按钮，系统执行相应的Click事件过程。用户可以输入一系列数据，以输入-1作结束。窗体显示运算结果。单击“结束”按钮，结束程序执行。图3.3.6 第6题的执行结果7 使用公式 来求的近似值，直到最后一项的值小于10-8为止。(要求使用DoLoop While语句)解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-7所示。表3-3-7

37、 第7题的属性设置 控件名称 属性名 属性值 Form1 Caption求圆周率的近似值 Command1Caption 开始 Command2 Caption 结束(2)程序代码Private Sub Command1_Click() Dim i&, s#, term# i = 1 s = 0 Do term = 1 / (i * i) s = s + term i = i + 1 Loop While term >= 0.00000001 Print: Print: Print Print Tab(8); "圆周率的近似值为：" Sqr(6 * s)End

38、 SubPrivate Sub Command2_Click() EndEnd Sub(3)运行情况运行程序后，单击标题为“开始”的命令按钮，执行Command1_Click事件过程。计算结果在窗体上显示。8. 由数值计算方法可知，用牛顿迭代法解方程f(x)=0的迭代公式为：试用牛顿迭代法求解方程x53x2 2x1=0 在x0=0附近的根。(要求使用DoLoop Until语句)解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-8所示。表3-3-8 第8题的属性设置 控件名称 属性名 属性值 Form1 Caption用牛顿法求方程的根 Comma

39、nd1Caption 开始 Command2 Caption 结束(2)程序代码根据迭代公式，牛顿迭代法的计算过程为：令n=0 ，由迭代公式得 ，然后判别x1x0是否小于(给定精度)。若是，则迭代结束，x1作为方程的近似根；否则，进行下一步。令n=1 ，由迭代公式得 ， 然后判别 x2x1是否小。若是，则迭代结束，x2 作为方程的近似根；否则，由x2求x3的值，判断x3x2。 按这样迭代下去，一直到xi1xi< (i=0，1，2，)为止。根据上述计算过程可以编写程序为：Private Sub Command1_Click() Dim x0!, x1! x1 = 0 Do x0 = x1

40、x1 = x0 - (x0 5 - 3 * x0 2 + 2 * x0 + 1) / (5 * x0 4 - 6 * x0 + 2) Loop Until Abs(x1 - x0) < 0.00001 Print Tab(10); "方程的根为：" x1End SubPrivate Sub Command2_Click() EndEnd Sub(3)运行情况运行程序后，单击标题为“开始”的命令按钮，执行Command1_Click事件过程。在窗体上显示计算结果。9求S = 的值。解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3

41、-3-9所示。表3-3-9 第9题的属性设置 控件名称 属性名 属性值 Form1 Caption求s=1-1/2+1/3-1/4+1/99-1/100的值 Command1Caption 开始 Command2 Caption 结束(2)程序代码Private Sub Command1_Click() Dim i%, s!, sign% sign = 1: s = 0 For i = 1 To 100 s = s + sign * 1 / i sign = -sign Next i Print: Print: Print Print Tab(18); "s的值为：" sE

42、nd SubPrivate Sub Command2_Click() EndEnd Sub(3)运行情况运行程序后，单击标题为“开始”的命令按钮，执行Command1_Click事件过程。窗体显示计算结果。10求100到999中的水仙花数。所谓水仙花数是指一个三位数，它的各位数字的立方之和等于该数。例如，因为153 = 13 + 53 + 33 ，所以153是水仙花数。解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-10所示。表3-3-10 第10题的属性设置 控件名称 属性名 属性值 Form1 Caption求水仙花数 Command1Cap

43、tion 开始 Command2 Caption 结束(2)程序代码Private Sub Command1_Click() Dim i%, a%, b%, c% Print Print Tab(5); "100-999之间的水仙花数为：" For i = 100 To 999 a = i 100 b = (i - a * 100) 10 c = i - a * 100 - b * 10 If i = a 3 + b 3 + c 3 Then Print Tab(10); i End If Next iEnd SubPrivate Sub Command2_Click()

44、EndEnd Sub (3)运行情况执行结果如图所示。图3.3.7 第10题的执行结果11. 求1000之内的所有完数。所谓完数是指一个数恰好等于它的所有因子之和。例如，因为6=1+2+3，所以6为完数。解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-11所示。表3-3-11 第11题的属性设置 控件名称 属性名 属性值 Form1 Caption 求完数 Command1Caption 开始 Command2 Caption 结束(2)程序代码Private Sub Command1_Click() Dim i%, j%, s% Print P

45、rint Tab(5); "1-1000之内的完数为：" For i = 1 To 1000 s = 0 For j = 1 To i - 1 If i Mod j = 0 Then s = s + j Next j If i = s Then Print Tab(5); i Next iEnd SubPrivate Sub Command2_Click() EndEnd Sub(3) 运行情况 程序执行结果如图所示。图3.3.8 第11题的执行结果12. 在窗体上输出形如以下图形，其中第一行的起始字母和终止字母由用户从键盘上输入。 A B C D E B C D E A C D E A B D E A B CE A B C D解答：(1)界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-12所示。表3-3-12 第12题的属性设置 控件名称 属性名 属性值 Form1 Caption输出由字母构成的图形