vb报告册答案-高等教育出版社-王贺明主编.doc

实验一：一、选择1.D 2.D 3.B 4.A 5.B 6.C 7.CD 8.D 9.D 10. BC11. A 12.D 13. D 14. C 15. A二、填空1.windows 2. 中断 3.工具箱 4.代码 5.分类6.form2.show 7. 出现语法错误 8. 错 9. 事件 10. 面向对象 11.工程文件结构 12. 工程 13. 设计程序代码 14. 双击窗体 15. C:Program FilesMicrosoft Visual StudioVB98 或者 VB的安装文件夹 16.属性 17.方法 18.font 19. form_load() 20.对象实验二：一、选择1.B 2.C 3. B 4.C 5.C 6.C 7.B 8.B 9.D 10. A11. C 12.C 13. C 14. B 15. A16.C 17.B 18.D 19.C 20. C二、填空1. Form_Click() 2. Interval、5000 3.vbp .frm 4.left top Height、Width twip 5.picture 6.load 7. locked 8. font Alignment 9. GotFocus() LostFocus() 10. 属性窗口 程序代码实验三：一、选择1.A 2.BC 3.BC 4.A 5.A 6.A 7.BCD 8.D 9.B 10. B11. B 二、判断题不合法的变量： 3. 4. 5. 6. 8. 10. 11. 14.15. 16. 三、1、abs(x+y)2. (3+x*y)23. (-b+sqr(b2-4*a*c)/(2*a)4.sin(30*3.14/180)+exp(2)四、1. int(rnd* 71+20) 或int(rnd* 71)+202. x0 and y0 or x0 and y0 或者x*y03. x mod 3=0 or x mod 7=0或 x/3=x3 or x/7=x74. x=10 and x205. x=A and x=Z6. left(s,3)实验四：一、选择1.C 2.D 3. C 4.D 5.A 6.D 7.B 8.B 9.A 10. C二、填空1. 48.71E-01, -4.8712 2. 关系、逻辑、算术 3. 900，100，mid(s,2,1) 4.m、1,2,3 、print m 月是第二季度、end select三、1. X=4 y=132. 10实验五一、选择B C B A C二、填空（1）for x=2 to 10s*(1-1/x)(2) 1 t1E-6(3) j t(4) 5 11 5实验六一、选择B C C C D D D D C A实验七一、选择1C 2C 3D 4A 5B 6D 7AB 8A 9A 10A二、填空（1）n！（2）1+1+2+3+4+n（3）n是否是素数（4）冒泡排序（5）递归调用产生斐波那契数列（6）求最大公约数和最小公倍数第八页编程2-1Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2)End SubPrivate Sub Command2_Click()Label3 = Val(Text1) / Val(Text2)End Sub2-2Private Sub Command1_Click()Picture1.Picture = LoadPicture(d:tu1.jpg)End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture(d:tu2.jpg)End SubPrivate Sub Command3_Click()Picture1.Visible = FalseEnd Sub2-5Private Sub Form_Load()Image1.Picture = LoadPicture(C:Documents and SettingsAll UsersDocumentsMy Pictures示例图片Sunset.jpg)End SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Image1_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Image1.Left = Int(Rnd * (Form1.ScaleWidth - Image1.Width)Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height)End Sub第11页编程2-3Private Sub Command1_Click()Dim x%, y%x = Int(Rnd * 900 + 100)Print 产生的随机数：; xy = (x Mod 10) * 100 + (x 10 Mod 10) * 10 + x 100Print 反序数：; Format(y, 000)End SubPrivate Sub Command2_Click()Dim x%, y As Stringx = Int(Rnd * 900 + 100)Print 产生的随机数：; xy = Trim(Str(x)Print 反序数： Right(y, 1) Mid(y, 2, 1) Left(y, 1)End SubPrivate Sub Form_Load()End Sub2-4Private Sub Command1_Click()Dim m%, n%Randomizem = Val(Text1): n = Val(Text2)x = Int(Rnd * (n - m + 1) + m)y = Int(Rnd * (n - m + 1) + m)z = Int(Rnd * (n - m + 1) + m)Label3 = m 到 n 之间的3个随机数为: x Space(3) y Space(3) zEnd SubPrivate Sub Form_Load()End Sub2-5Private Sub Command1_Click()Label1.Caption = DateEnd SubPrivate Sub Command2_Click()Label2.Caption = TimeEnd SubPrivate Sub Command3_Click()Label3.Caption = WeekdayName(Weekday(Date)End SubPrivate Sub Form_Load()End Sub第十五页2-1方法一Private Sub Command1_Click()Dim x!, a!, aa%, b!, bb%, c!, cc$x = Val(Text1)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, #.000)Label2 = 弧度 Text1 转换为 aa 度 bb 分 cc 秒End Sub方法二Private Sub Command1_Click()x = InputBox(请输入弧度数值, 弧度转换, 0)xx = Val(x)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, #.000)MsgBox 弧度 x 转换为 aa 度 bb 分 cc 秒End Sub2-2Private Sub Command1_Click()Dim x%x = Val(Text1)If x / 400 = x 400 Or x Mod 4 = 0 And x Mod 100 0 ThenLabel2 = Text1 年是闰年ElseLabel2 = Text1 年不是闰年End IfEnd Sub2-3方法二Private Sub Command1_Click()Dim x%, y%, z%x = InputBox(输入第一个数)y = InputBox(输入第二个数)z = InputBox(输入第三个数)If x y Then t = x: x = y: y = tIf y z Then t = y: y = z: z = tIf x y Then t = x: x = y: y = tPrint x, y, zEnd SubPrivate Sub Form_Load()End Sub方法一Private Sub Command1_Click()Dim x%, y%, z%x = Val(Text1)y = Val(Text2)z = Val(Text3)If x y Then t = x: x = y: y = tIf y z Thent = y: y = z: z = tIf x y Thent = x: x = y: y = tEnd IfEnd IfLabel1 = x Space(5) y Space(5) zEnd Sub2-4方法一Private Sub Command1_Click()x = Val(InputBox(请输入上网时间:)If x -1 ThenSelect Case xCase Is 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is = 100fei = x * 1End SelectMsgBox 上网费用为: fei 元End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End Sub方法二Private Sub Command1_Click()Dox = Val(InputBox(请输入上网时间:, , -1)If x -1 ThenSelect Case xCase Is 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is = 100fei = x * 1End Selectzongfei = zongfei Space(3) feiMsgBox zongfei, , 上网费用为ElseExit DoEnd IfLoopEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End Sub2-5第18页2-3Private Sub Command1_Click()n = 0DoIf n Mod 2 = 1 And n Mod 3 = 2 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Don = n + 1LoopPrint nEnd Sub2-5Private Sub Command1_Click()x = Val(Text1)y = x * 4n = 0Do While x = yx = x * (1 + 0.1)n = n + 1Print xLoopPrint x, nEnd Sub2-6Private Sub Command1_Click()n = Val(InputBox(输入计算到第几项:, , 0)For i = 1 To ns = s + (-1) (i + 1) * iNextPrint n, sEnd SubPrivate Sub Form_Load()-8End Sub2-8Private Sub Command1_Click()Dim s As Double, pi As Doublen = 1: s = 0Do While 1 / (2 * n - 1) = 0.0001s = s + (-1) (n + 1) * 1 / (2 * n - 1)n = n + 1Looppi = 4 * sPrint piEnd Sub2-9Private Sub Command1_Click()For n = 100 To 999k = Trim(Str(n)If n = Left(k, 1) 3 + Mid(k, 2, 1) 3 + Right(k, 1) 3 Then Print nNextEnd Sub2-11Private Sub Command1_Click()s = 0: Max = 0: Min = 1000For i = 1 To 20Randomizex = Int(Rnd * 50 + 51)Print x;If x Max Then Max = xIf x Min Then Min = xs = s + xNext iaver = s / 20PrintPrint max=; Max, min=; Min, aver=; averEnd SubPrivate Sub Form_Load()End Sub实验一：一、选择1.D 2.D 3.B 4.A 5.B 6.C 7.CD 8.D 9.D 10. BC11. A 12.D 13. D 14. C 15. A二、填空1.windows 2. 中断 3.工具箱 4.代码 5.分类6.form2.show 7. 出现语法错误 8. 错 9. 事件 10. 面向对象 11.工程文件结构 12. 工程 13. 设计程序代码 14. 双击窗体 15. C:Program FilesMicrosoft Visual StudioVB98 或者 VB的安装文件夹 16.属性 17.方法 18.font 19. form_load() 20.对象实验二：一、选择1.B 2.C 3. B 4.C 5.C 6.C 7.B 8.B 9.D 10. A11. C 12.C 13. C 14. B 15. A16.C 17.B 18.D 19.C 20. C二、填空1. Form_Click() 2. Interval、5000 3.vbp .frm 4.left top Height、Width twip 5.picture 6.load 7. locked 8. font Alignment 9. GotFocus() LostFocus() 10. 属性窗口 程序代码实验三：一、选择1.A 2.BC 3.BC 4.A 5.A 6.A 7.BCD 8.D 9.B 10. B11. B 二、判断题不合法的变量： 3. 4. 5. 6. 8. 10. 11. 14.15. 16. 三、1、abs(x+y)2. (3+x*y)23. (-b+sqr(b2-4*a*c)/(2*a)4.sin(30*3.14/180)+exp(2)四、1. int(rnd* 71+20) 或int(rnd* 71)+202. x0 and y0 or x0 and y0 或者x*y03. x mod 3=0 or x mod 7=0或 x/3=x3 or x/7=x74. x=10 and x205. x=A and x=Z6. left(s,3)实验四：一、选择1.C 2.D 3. C 4.D 5.A 6.D 7.B 8.B 9.A 10. C二、填空1. 48.71E-01, -4.8712 2. 关系、逻辑、算术 3. 900，100，mid(s,2,1) 4.m、1,2,3 、print m 月是第二季度、end select三、1. X=4 y=132. 10实验五一、选择B C B A C二、填空（1）for x=2 to 10s*(1-1/x)(2) 1 t1E-6(3) j t(4) 5 11 5实验六一、选择B C C C D D D D C A实验七一、选择1C 2C 3D 4A 5B 6D 7AB 8A 9A 10A二、填空（1）n！（2）1+1+2+3+4+n（3）n是否是素数（4）冒泡排序（5）递归调用产生斐波那契数列（6）求最大公约数和最小公倍数第八页编程2-1Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2)End SubPrivate Sub Command2_Click()Label3 = Val(Text1) / Val(Text2)End Sub2-2Private Sub Command1_Click()Picture1.Picture = LoadPicture(d:tu1.jpg)End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture(d:tu2.jpg)End SubPrivate Sub Command3_Click()Picture1.Visible = FalseEnd Sub2-5Private Sub Form_Load()Image1.Picture = LoadPicture(C:Documents and SettingsAll UsersDocumentsMy Pictures示例图片Sunset.jpg)End SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Image1_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Image1.Left = Int(Rnd * (Form1.ScaleWidth - Image1.Width)Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height)End Sub第11页编程2-3Private Sub Command1_Click()Dim x%, y%x = Int(Rnd * 900 + 100)Print 产生的随机数：; xy = (x Mod 10) * 100 + (x 10 Mod 10) * 10 + x 100Print 反序数：; Format(y, 000)End SubPrivate Sub Command2_Click()Dim x%, y As Stringx = Int(Rnd * 900 + 100)Print 产生的随机数：; xy = Trim(Str(x)Print 反序数： Right(y, 1) Mid(y, 2, 1) Left(y, 1)End SubPrivate Sub Form_Load()End Sub2-4Private Sub Command1_Click()Dim m%, n%Randomizem = Val(Text1): n = Val(Text2)x = Int(Rnd * (n - m + 1) + m)y = Int(Rnd * (n - m + 1) + m)z = Int(Rnd * (n - m + 1) + m)Label3 = m 到 n 之间的3个随机数为: x Space(3) y Space(3) zEnd SubPrivate Sub Form_Load()End Sub2-5Private Sub Command1_Click()Label1.Caption = DateEnd SubPrivate Sub Command2_Click()Label2.Caption = TimeEnd SubPrivate Sub Command3_Click()Label3.Caption = WeekdayName(Weekday(Date)End SubPrivate Sub Form_Load()End Sub第十五页2-1方法一Private Sub Command1_Click()Dim x!, a!, aa%, b!, bb%, c!, cc$x = Val(Text1)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, #.000)Label2 = 弧度 Text1 转换为 aa 度 bb 分 cc 秒End Sub方法二Private Sub Command1_Click()x = InputBox(请输入弧度数值, 弧度转换, 0)xx = Val(x)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, #.000)MsgBox 弧度 x 转换为 aa 度 bb 分 cc 秒End Sub2-2Private Sub Command1_Click()Dim x%x = Val(Text1)If x / 400 = x 400 Or x Mod 4 = 0 And x Mod 100 0 ThenLabel2 = Text1 年是闰年ElseLabel2 = Text1 年不是闰年End IfEnd Sub2-3方法二Private Sub Command1_Click()Dim x%, y%, z%x = InputBox(输入第一个数)y = InputBox(输入第二个数)z = InputBox(输入第三个数)If x y Then t = x: x = y: y = tIf y z Then t = y: y = z: z = tIf x y Then t = x: x = y: y = tPrint x, y, zEnd SubPrivate Sub Form_Load()End Sub方法一Private Sub Command1_Click()Dim x%, y%, z%x = Val(Text1)y = Val(Text2)z = Val(Text3)If x y Then t = x: x = y: y = tIf y z Thent = y: y = z: z = tIf x y Thent = x: x = y: y = tEnd IfEnd IfLabel1 = x Space(5) y Space(5) zEnd Sub2-4方法一Private Sub Command1_Click()x = Val(InputBox(请输入上网时间:)If x -1 ThenSelect Case xCase Is 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is = 100fei = x * 1End SelectMsgBox 上网费用为: fei 元End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End Sub方法二Private Sub Command1_Click()Dox = Val(InputBox(请输入上网时间:, , -1)If x -1 ThenSelect Case xCase Is 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is = 100fei = x * 1End Selectzongfei = zongfei Space(3) feiMsgBox zongfei, , 上网费用为