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





《VB作业第三章习题答案.doc》由会员分享,可在线阅读,更多相关《VB作业第三章习题答案.doc(23页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 作业 第三 习题 答案

限制150内