vb实践报告册答案

1、实验一：一、选择1. D 2.D 3.B 4.A 5.B6.C 7.CD 8.D 9.D 10. BC11. A 12.D 13. D 14. C 15. A填空1. windows 2. 中断 3. 工具箱 4. 代码6.form2.show 7. 出现语法错误 8. 错 件结构 12. 工程 13. 设计程序代码5. 分类9. 事件 10. 面向对象 11. 工程文14. 双击窗体15. C:Program FilesMicrosoft Visual StudioVB98 夹 16. 属性 17. 方法 18.font 19. form_load() 实验二：一、选择1.B 2.C 3.

2、B 4.C 5.C或者 VB 的安装文件20. 对象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. Interval4.left top Height 、Width6.load 7. locked 8. font9. GotFocus() LostFocus()、5000 3.vbp .frmtwip 5.pictureAlignment10. 属性窗口 程序代码实验三：一、选择1.A 2.BC 3.BC 4.A 5.A6.A 7.BCD 8.D 9.B

3、 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 or x0 and y0或者 x*y=10 and x=A and x1E-65实验六 一、选择 B C C C D实验七一、选择1C 2C 3D 4A 5B 6D 7AB 二、填空（1）n！（2）1+1+2+3+4+n（ 3） n 是否是素数（4

4、）冒泡排序（5）递归调用产生斐波那契数列（ 6）求最大公约数和最小公倍数8A 9A 10A第八页编程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()Pictur

5、e1.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 示例图片 Sunset.jpg)End SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.En

6、abled = 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)Pri

7、nt 产生的随机数： ; 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

8、Sub Command1_Click()Dim m%, n%Randomize m = 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 Sub 2-5Private Sub Command1_Click() L

9、abel1.Caption = Date End 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.14 aa =

10、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

11、)MsgBox 弧度 & x & 转换为 & aa & 度 & bb & 分 & cc & 秒 End Sub 2-2Private Sub Command1_Click()Dim x%x = Val(Text1)0 ThenIf x / 400 = x 400 Or x Mod 4 = 0 And x Mod 100 Label2 = Text1 & 年是闰年 ElseLabel2 = Text1 & 年不是闰年 End IfEnd Sub 2-3方法二Private Sub Command1_Click() Dim x%, y%, z%x = InputBox( 输入第一个数 ) y =

12、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

13、z Thent = y: y = z: z = tIf x y Then t = x: x = y: y = tEnd IfEnd IfLabel1 = x & Space(5) & y & Space(5) & z End Sub 2-4方法一Private Sub Command1_Click()x = Val(InputBox( 请输入上网时间 :) If x -1 ThenSelect Case xCase Is = 100fei = x * 1End SelectMsgBox 上网费用为 : & fei & 元 End IfEnd SubPrivate Sub Command2_Cl

14、ick()EndEnd SubPrivate Sub Form_Load()End Sub 方法二Private Sub Command1_Click() Dox = Val(InputBox( 请输入上网时间 :, , -1) If x -1 ThenSelect Case xCase Is = 100fei = x * 1End Selectzongfei = zongfei & Space(3) & feiMsgBox zongfei, , 上网费用为 ElseExit Do End IfLoopEnd SubPrivate Sub Command2_Click()EndEnd SubP

15、rivate 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 Mod7 = 0 Then Exit Don = n + 1LoopPrint nEnd Sub 2-5Private Sub Command1_Click() x = Val(Text1)y = x * 4n = 0Do While x = 0.0001s = s + (-1) (n + 1) * 1 / (2 * n - 1) n = n + 1Looppi = 4 * sPrint piEnd Sub 2-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 n NextEnd Sub 2-11Private Sub Command1_Click