VB作业第三章习题答案.doc

上传人:飞****2 文档编号:52755111 上传时间:2022-10-23 格式:DOC 页数:23 大小:56KB
返回 下载 相关 举报
VB作业第三章习题答案.doc_第1页
第1页 / 共23页
VB作业第三章习题答案.doc_第2页
第2页 / 共23页
点击查看更多>>
资源描述

《VB作业第三章习题答案.doc》由会员分享,可在线阅读,更多相关《VB作业第三章习题答案.doc(23页珍藏版)》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

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

2、putBox(请输入一个求阶乘的 数:,求数的阶乘) ) 。 如果使用MsgBox对话框显示提示信息“退出本系统?”, 并显示“是 (Yes) ”和“否 (No) ” 两个按钮, 显示图标“?”号, 指定第一个按钮为默认值以及标题为“提示信息”, 则调用MsgBox 函数的形式为( MsgBox(退出本系统? ,4+32+0,提示信息) ) 。 如果使用MsgBox对话框显示提示信息“文件未找到!”,并显示“确定”按钮、图标“!” 号和标题“文件查找”,则使用的MsgBox语句为( MsgBox文件未找到,0+48+0,文件 查找 ) 。 要在当前窗体Form和立即窗口输出字符串“Visual

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

4、,累加到变量s2中,使 用的单行结构条件语句为( If x0 Then s1=s1+x Else s2=s2+x ) 。2x + 1 x 0 y = 0 x = 0 2x 1 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” End(13判别ch是否为小写字母,若是,输出“yes”;否则,输出“No”的块结构条件语句为 ( ) 。 答案:If As

5、c(ch)=97 And Asc(ch)=122 Then Print “Yes” ElsePrint “No” End If14若一个case子句中的表达式表由逗号分隔的若干个常数组成,则它的含义是:当测 试表达式的值等于( 这些常数中的某一个 )时,执行该case子句相应的程序块。 15若case子句中的表达式表列具有形式: To ,则它的含义是: 当测试表达式的值等于( 这个范围内的值 )时,执行该case子句相应的程序块。 16 若case子句中的表达式表列具有形式: , Is 则它的含义是: 当测试表达式的值满足( Is后的关系 )时,执行该case子句相应的程序块。 17 在循环语

6、句中, 反复执行的程序段称为 ( 循环体 ) 进入循环体的条件称为 ; ( 循 环条件 ) ;中止循环体执行的条件称为( 结束循环条件 ) 。 32 选择题 下列赋值语句中,( d )是正确的。)x!abc a) t=b : b=a : a=t c) t=a : a=b : b=t b)a10e c)x d)s1002下列选项中,( d )不能交换变量a和b的值。b) a=a+b : b=a-b : a=a-b d) a=b : b=a3若在消息框MsgBox中显示“确定(Ok)”和“取消(Cancel)”两个按钮,则buttons参数的 设置值是( b )。a) 0 a)0 a)1 a) c

7、) b) 1 b)256 b)2 c)3 b) d) c) 2 c)512 d)4 If x Then t = t * x If xy Then Print “xy” If x Mod 3=2 Then ? x7给定程序段Dim a As Integer, b As Integer, c As Integer a=1:b=2:c=3 If a=c-b Then Print # Else Print * b) 有语法错 d) 输出* Then max=a Then max=b max=a Else max=b End If以上程序( c ) 。a) 没有输出 c) 输出# a) b) If If

8、 ab ab8把a, b之中的最大值存放于max,下面语句书写正确的是( d ) 。Else End If c) If ab max=a Else max=b d) If abThenThenmax=a Else max=b End If9. 下列Case语句中正确的是( c ) 。a) Select Case x Case 1 Or 3 Or 5 y=x*x-1 Case Is 10 y=x+1 End Select b) Select Case x Case 1, 3, 5 y=2*x-1 Case Is x =1 Y=2*x+1 End Select c) Select Case x C

9、ase Is 0 y=Sqr(x)+1 End Select d) Select Case x Case x=1 And x10 y=x*x+1 End Select10执行下列程序段后屏幕上(c ) 。i% = 10 : Sum = 0 While i 1 Sum = Sum + i i = i - 1 Wend Print Suma) 无显示 b) 显示10 c) 显示54 d) 显示5511执行下列程序段输出结果是( c ) 。 x%=2 Do while x8 Print “*”; x=x+2 Loopa) * b) * c) * d) *12设有程序段Dim k% k=5 Do un

10、til k=0 k=k-1 Loop 则下面对循环语句描述正确的是( c ) 。 a) 循环体1次也不执行 b) 循环体执行1次 c) 循环体执行5次 d) 循环体执行无限次 13下面描述中错误的是( a, c ) 。 a) 执行Do until loop语句中,当循环为false时,结束循环体的执 行。 b) 执行While Wend语句时,循环体可能一次也不执行。 c) Do loop While 语句的循环体可能一次也不执行。 d) 执行Do loop Until 语句中, 当循环条件为true时, 结束循环体的执行。 14下面程序段中循环语句的循环次数是( b ) 。 For x=10

11、 To 1 Step -3 Print x Next xa) 0 b) 4 b) 4 c) 5 c) 5 d) 1015执行语句Fora) 3i=1 to 3: i=i+1 :Next i后变量i的值是( cd) 6) 。16下面程序段执行后输出结果是( b ) 。 For i=1 To 2 s=1 For j=0 To i-1 s=s+s*j Next j Print s, Next ia) 1 1 b) 1 2 c) 2 1 d) 2 233 阅读下列程序,写出执行结果1. Private Sub Form_Click Print 2*3/2 , “Visual ” & “BASIC”,

12、Not 53, 0.75 Print 2*3/2 ; “Visual ” & “BASIC”; x=12.34 Print “x=”; Print x End Sub Not 53; 0.75答案:-3 -3 x=12.34Visual BASIC Visual BASICFalse .75False.752Private Sub Form_Click Print Tab(10); -100;Tab(20); 200;Tab(30); -300 Print Spc(10); -100;Spc(10); 200;Spc(10); -300End Sub答案:-100-100 3 x=12.352

13、00 200-300 -300Private Sub Form_Click Print Format ( x,”#.#” ) Print Format ( x,”#.#” ) Print 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答案:12351235 01235 124 123500% $12.35 +12.3

14、5 12.35e+00 4 Private Sub Command1_Click() Dim a%, b%, c%, s%, w%, t% a = -1: b = 3: c = 3 s = 0: w = 0: t = 0 If c 0 Then s = a + b If a = 0 Then If c 0 Then w = a - b Else t = c End If c = a + b Print a, b, c Print s, w, t End Sub答案:5-1 23 02 0Private Sub Command1_Click() Dim x%, y% x = InputBox(请

15、输入x的值:) Select Case xCase 1, 3, 5 y = x - 1 Case 6 To 10 y = x + 1 Case 2, 4 y = 2 * x Case Is 10 y = x * x + 1 End Select Print x=; x, y=; y End Sub (x 的输入值为2.5、8、4和15)答案:x=2 x=8 x=4 x=15y=4 y=9 y=8 y=2266Private Sub Command1_Click() Dim i%, t! t = 1: i = 1 While i 8 If i Mod 2 = 1 Then x = x * i E

16、lse y = y * i End If i = i + 1 Loop Print x=; x, y=; y End Sub答案:x=105Dim p%, s% p = 1: s = 1 Doy=3848 Private Sub Command1_Click()p=p+2:s=s+p Loop While p10 Print s=; s End Sub答案:s=369 Private Sub Command1_Click() Dim m%, n% For m=1 to 3 n=0 While n= 85 Then Text2.Text = Very good! ElseIf score = 6

17、0 Then Text2.Text = Good! Else Text2.Text = No good! End If End Sub Private Sub Command2_Click() End End Sub(3) 运行情况 运行程序后,屏幕出现用户界面。把鼠标移到Text1文本框并单击,输入分数。然后, 单击“开始”命令按钮,系统执行Command1_Click事件过程。执行结果如图3.3.1所示。单击 标题为“结束”的命令按钮,执行Command2_Click事件过程,结束程序的执行。图3.3.12第1题的执行结果2. 求一元二次方程ax +bx+c=0的根。 解答: (1) 界面

18、设计和属性设置 在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-2所示。表3-3-2控件名称 Form1 Command1 Command2第2题的属性设置属性值 求一元二次方程的根 开始 结束属性名 Caption Caption Caption(2) 程序代码由中学数学知识知道,求一元二次方程的根的公式为: 编程时要考虑如下各种情况: 当a=0 时,方程不是二次方程;x1, 2 = b b 2 4ac 2a , 当 b -4ac=0 时,有两个相同的实根:2x 1, 2 = b 2a ;b 2 4 ac 2a ; 当 b -4ac0 时,有两个不同的实根:2x 1, 2

19、=b 当 b -4ac0 时,有两个共轭复根:Private Sub Command1_Click() Cls2x 1, 2 = b 2a4 ac b 2 i 2a 。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=; c Print If Abs(a) = 0. Then Pr

20、int Tab(15); 方程不是一个二次方程! Else disc = b 2 - 4 * a * c If Abs(disc) 0. Then x1 = (-b + Sqr(disc) / (2 * a) x2 = (-b - Sqr(disc) / (2 * a) Print Tab(5); 方程有两个实根: Print Tab(18); x1=; x1 Print Tab(18); x2=; x2 ElseIf disc 0. Then realpart = -b / (2 * a): imagpart = Sqr(-disc) / (2 * a) Print Tab(5); 方程有两

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

22、行情况运行程序后, 单击“开始”命令按钮, 执行Command1_Click事件过程。 执行时, 在InputBox 框中输入 a、b和c三个系数。图3.3.2图3.3.5显示了不同系数输入的执行结果。图3.3.2执行结果(a)图3.3.3执行结果(b)图3.3.4执行结果(c)图3.3.5执行结果(d) 3x 5 2 cos x + 1 1+ x2 2 3. 给定函数y = x 4 x + 51 = x 2 2 = x 4 4 = x = 1 And x = 5 Then Select Case x Case Is 2y = 3 * x - 5 Case Is 4 y = 2 * Cos(x

23、) + 1 Case Is = 0 Then f = UCase(InputBox(输入运算标志: + 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=; r; 圆面积=; r 2 * pi Case B Print Tab(10); 半径r=; r; 圆周长=; r * 2 * pi Print Tab(10); 半径

24、r=; r; 圆面积=; r 2 * pi Case Else Print Tab(18); 输入的运算标志错! End Select Else Print Tab(18); 半径不能是负数! End If End Sub Private Sub Command2_Click() End End Sub(3)运行情况 运行程序后, 单击标题为“开始”的命令按钮, 执行Command1_Click事件过程。 按InputBox 对话框的提示输入半径r和运算标志。计算结果在窗体上显示。 2 2 2 5. 求满足1 +2 +n 1000的最小n值。(要求使用WhileWEnd语句) 解答: (1)界

25、面设计和属性设置 在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-5所示。表3-3-5控件名称 Form1第5题的属性设置属性值 求满足12+22+n21000 的最小n值属性名 CaptionCommand1 Command2Caption Caption开始 结束(2)程序代码Private Sub Command1_Click() Dim n%, s& n = 0: s = 0 While s 1000的最小n值为:; nEnd Sub Private Sub Command2_Click() End End Sub6输入若干个正实数,个数预先不能确定,求这些正实数之和

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

27、 a = 0 s = s + a a = InputBox(输入一个实数:) Loop Print: Print Print Tab(15); 输入的正实数之和为:; s End Sub Private Sub Command2_Click() Cls Dim a!, s! a = InputBox(输入一个实数:) Do Until a = 0. Print: Print: Print Print Tab(8); 圆周率的近似值为:; Sqr(6 * s) End Sub Private Sub Command2_Click() End End Sub(3)运行情况 运行程序后,单击标题为“

28、开始”的命令按钮,执行Command1_Click事件过程。计算结果 在窗体上显示。8. 由数值计算方法可知,用牛顿迭代法解方程f(x)=0的迭代公式为:x n +1 = x n f ( x n ) / f ( x n )5 2( n = 0, 1, 2, )试用牛顿迭代法求解方程x 3x 2x1=0 在x0=0附近的根。(要求使用DoLoop Until语 句) 解答: (1)界面设计和属性设置 在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-8所示。表3-3-8控件名称 Form1 Command1 Command2第8题的属性设置属性值 用牛顿法求方程的根 开始 结束属

29、性名 Caption Caption Caption(2)程序代码 根据迭代公式,牛顿迭代法的计算过程为: 令n=0 ,由迭代公式得x1 = x0 f ( x0 ) / f ( x0 ),然后判别x1x0是否小于(给定精度)。若是,则迭代结束,x1作为方程的近似根;否则,进行下一步。 令n=1 , 由迭代公式得 x 2 = x1 f ( x1 ) / f ( x1 ),然后判别 x2x1是否小。若是,则迭代结束,x2 作为方程的近似根;否则,由x2求x3的值,判断x3x2。 按这样迭代下去,一直到xi1xi (i=0,1,2,)为止。 根据上述计算过程可以编写程序为:Private Sub C

30、ommand1_Click() Dim x0!, x1! x1 = 0 Do x0 = x1 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); 方程的根为:; x1 End Sub Private Sub Command2_Click() End End Sub(3)运行情况 运行程序后,单击标题为“开始”的命令按钮,执行Command1_Click事件过程。在窗体上 显示计算结果。 9求S = 解答:1 1 2 +

31、1 3 1 4 + + 1 99 1 100的值。(1)界面设计和属性设置 在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-9所示。表3-3-9控件名称 Form1 Command1 Command2 属性名 Caption Caption Caption第9题的属性设置属性值 求s=1-1/2+1/3-1/4+1/99-1/100的值 开始 结束(2)程序代码Private Sub Command1_Click() Dim i%, s!, sign% sign = 1: s = 0 For i = 1 To 100 s = s + sign * 1 / i sign = -

32、sign Next i Print: Print: Print Print Tab(18); s的值为:; s End Sub Private Sub Command2_Click() End End Sub(3)运行情况 运行程序后,单击标题为“开始”的命令按钮,执行Command1_Click事件过程。窗体显示 计算结果。 10求100到999中的水仙花数。所谓水仙花数是指一个三位数,它的各位数字的立方之 3 3 3 和等于该数。例如,因为153 = 1 + 5 + 3 ,所以153是水仙花数。 解答: (1)界面设计和属性设置 在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3

33、-3-10所示。表3-3-10控件名称 Form1 Command1 Command2第10题的属性设置属性值 求水仙花数 开始 结束属性名 Caption Caption Caption(2)程序代码Private Sub Command1_Click() Dim i%, a%, b%, c% Print Print Tab(5); 100-999之间的水仙花数为: For i = 100 To 999a = 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

34、); i End If Next i End Sub Private Sub Command2_Click() End End Sub(3)运行情况 执行结果如图3.3.7所示。图3.3.7第10题的执行结果11. 求1000之内的所有完数。所谓完数是指一个数恰好等于它的所有因子之和。例如, 因为6=1+2+3,所以6为完数。 解答: (1)界面设计和属性设置 在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-11所示。表3-3-11控件名称 Form1 Command1 Command2第11题的属性设置属性值 求完数 开始 结束属性名 Caption Caption Cap

35、tion(2)程序代码Private Sub Command1_Click() Dim i%, j%, s% Print Print 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 jIf i = s Then Print Tab(5); i Next i End Sub Private Sub Command2_Click() End End Sub(3) 运行情况 程序执行结果如图3.3.8所示。图3.3.8第11题的执行结果12. 在窗体

36、上输出形如以下图形, 其中第一行的起始字母和终止字母由用户从键盘上输 入。 A B C D E B C D E A C D E A B D E A B C E A B C D 解答: (1)界面设计和属性设置 在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-12所示。表3-3-12控件名称 Form1 Command1 Command2第12题的属性设置属性值 输出由字母构成的图形 开始 结束属性名 Caption Caption Caption(2)程序代码Private Sub Command1_Click() Cls Dim starg As String * 1, e

37、ndg As String * 1, stargc%, endgc%, i%, j%, k% starg = UCase(InputBox(请输入起始字母:) endg = UCase(InputBox(请输入终止字母:) stargc = Asc(starg)endgc = Asc(endg)Print If stargc = endgc Then For i = 0 To endgc - stargcPrint Tab(24); For j = stargc + i To endgc Print Chr(j); Next j For k = stargc To stargc + i - 1 Print Chr(k); Next k Print Next i Else Print Tab(15); 起始字母必须先于终止字母! End If End Sub Private Sub Command2_Click() End End Sub(3)运行情况 运行程序后,需在InputBox对话框输入起始字母和终止字母。执行结果在窗体上显示。 13 已知XYZ + YZZ = 532,其中X,Y和Z为09的数字,编程求出X、Y和Z,并在窗体 上把算式显示出来。 解答: (1)界面设计和属性设置 在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-13所示。表3-3-13

展开阅读全文
相关资源
相关搜索

当前位置:首页 > 教育专区 > 教案示例

本站为文档C TO C交易模式,本站只提供存储空间、用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。本站仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知淘文阁网,我们立即给予删除!客服QQ:136780468 微信:18945177775 电话:18904686070

工信部备案号:黑ICP备15003705号© 2020-2023 www.taowenge.com 淘文阁