Visual Basic 6.0程序设计教程 第4版 习题答案 作者 罗朝盛 第3章 习题参考答案.docVIP

第3章 习题参考答案 一、判断题 题号 1 2 3 4 5 6 7 8 答案 × × × √ √ √ √ × 二、选择题 题号 1 2 3 4 5 答案 A D B B B 三、程序阅读 写出下列各段程序执行后的输出结果。 1．78 5786 3578642． w=4、w=13、w=135、w=31 3．此题有点错误，修改如下： 是将语句“If k Asc(A) Then k = k + 26”改为： If k Asc(A) Or k Asc(Z) And k Asc(a) Then k = k + 26 改后的答案： xyza12 uvw 4．A BBB CCCCC DDDDDDD EEEEEEEEE 5．此题的“IF KeyAsci=13 Then”改为“IF KeyAscii=13 Then” 答案是：129 四、程序填空题 1． (1) Sing=-1 (2) For i=2 to 19 (3) Sing=-Sing 2． (1) Len(oldsen) (2) Mid(oldsen ,i,1) (3) Ucase(char) (4) char 3． (1) Len(str1) (2) Length-1 (3) Mid(str1,i,2) (4) Sum=0 4． Trim(Str(i)) Trim(Str(i*i)) Right(x2,Len(x1))=x1 5. (1) last_one = last_two (2) last_two = this_one (3) i = i+1 (4) i-1 五、编程题 1． Private Sub Form_Click() Dim R1 As Double, R2 As Double R1，R2 表示两电阻值 Dim Rp As Double, Rs As Double R1 = Val(InputBox(输入电阻R1=？)) R2 = Val(InputBox(输入电阻R2=？)) Rp = R1 * R2 / (R1 + R2) Rs = R1 + R2 Rp = Fix(Rp * 1000 + 0.5) / 1000 保留小数点后3位 Rs = Fix(Rs * 1000 + 0.5) / 1000 保留小数点后3位 MsgBox 并联电阻是： Rp vbCrLf 串联电阻是： Rs End Sub 2． Private Sub Form_Click() Dim N As Long N = Val(InputBox(请输入年份, 提示框)) If (N Mod 400 = 0) Or (N Mod 4 = 0 And N Mod 100 0) Then 判断条件 Print N 年是闰年 Else Print N 年不是闰年 End If End Sub 3． Private Sub Form_Click() Dim a!, b!, c!, s!, x! a = Val(InputBox(Enter A=?)) b = Val(InputBox(Enter B=?)) c = Val(InputBox(Enter C=?)) If a + b c And b + c a And a + c b Then 如果能构成三角形 x = (a + b + c) / 2 s = Sqr(x * (x - a) * (x - b) * (x - c)) Print S=; s Else Print 数据有错,不能构成三角形 End If End Sub 4．(此题不适合使用Select语句) Private Sub Command1_Click() Dim x As Double, fx As Double x = Val(InputBox(输入x=?)) If x 0 And x -3 Then fx = x * x + x - 6 ElseIf x = 0 And x 10 And x 2 And x 3 Then fx = x * x - 5 * x + 6 Else fx = x * x - x - 1 End If Print x= ; x; f( x )=; fx End Sub 5． Dim i As In