实验报告册答案(含编程)参考模板

1、实验一：一、选择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

2、 或者 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.

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

4、/180)+exp(2)四、1. int(rnd* 71+20) 或int(rnd* 71)+202. x<0 and y>0 or x>0 and y<0 或者x*y<03. x mod 3=0 or x mod 7=0或 x/3=x3 or x/7=x74. x>=10 and x<202 / 195. x>="A" and x<="Z"6. 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, -

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

6、0;       t>1E-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  8

7、A  9A  10A二、填空（1）n！（2）1+1+2+3+4+n（3）n是否是素数（4）冒泡排序（5）递归调用产生斐波那契数列（6）求最大公约数和最小公倍数实验二Private 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.

8、jpg")End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture("d:tu2.jpg")End SubPrivate Sub Command3_Click()Picture1.Visible = FalseEnd Sub2-4Private Sub Command1_Click()Text2 = Text1End SubPrivate Sub Command2_Click()Text1 = ""Text2 = ""End SubPrivate Su

9、b Form_Load()Command1.Visible = FalseCommand2.Visible = FalseEnd SubPrivate Sub Text1_Change()Command1.Visible = TrueCommand2.Visible = TrueEnd Sub2-5Private Sub Form_Load()Image1.Picture = LoadPicture("C:Documents and SettingsAll UsersDocumentsMy Pictures示例图片Sunset.jpg")End SubPrivate Sub

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

11、e1.Height)End Sub实验三3-2Private Sub Command1_Click() Dim n% n = Abs(Val(Text1) Label2 = Format(n 2, "#.000") & Space(2) & Format(Sqr(n), "#.000") & Space(2) & Format(n 3, "#.000") & Space(2) & Format(n (1 / 3), "#.000")End Sub3-3Private

12、Sub Command1_Click()  Dim x%, y%  x = Int(Rnd * 900 + 100)  Print "产生的随机数：" x  y = (x Mod 10) * 100 + (x 10 Mod 10) * 10 + x 100  Print "反序数：" Format(y, "000")End SubPrivate Sub Command2_Click()  Dim x%, y As S

13、tring  x = Int(Rnd * 900 + 100)  Print "产生的随机数：" x  y = Trim(Str(x)  Print "反序数：" & Right(y, 1) & Mid(y, 2, 1) & Left(y, 1)End SubPrivate Sub Form_Load()End Sub 3-4Private Sub Command1_Click()Dim m%, n%Randomizem = Val(Text

14、1): 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 Sub3-5Private Sub Command1_Cli

15、ck()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实验四 4-1方法一Private Sub Command1_Click() Dim x!, a!, aa%, b!, bb%, c!, cc$ x = Val(Text1) a

16、= x * 180 / 3.14 aa = Int(a) b = (a - aa) * 60 bb = Int(b) c = (b - bb) * 60 cc = Format(c, "#.000") Label2 = "弧度" & Text1 & "转换为" & aa & "度" & bb & "分" & cc & "秒"End Sub方法二Priva

17、te Sub Command1_Click() x = InputBox("请输入弧度数值", "弧度转换", 0) xx = Val(x) a = x * 180 / 3.14 aa = Int(a) b = (a - aa) * 60 bb = Int(b) c = (b - bb) * 60 cc = Format(c, "#.000") MsgBox "弧度" & x & "转换为"

18、 & aa & "度" & bb & "分" & cc & "秒"End Sub4-2Private Sub Command1_Click()Dim x%x = Val(Text1)If x / 400 = x 400 Or x Mod 4 = 0 And x Mod 100 <> 0 Then  Label2 = Text1 & "年是闰年"Else    Label2 = T

19、ext1 & "年不是闰年"End IfEnd Sub4-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 =

20、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 Then t = y: y = z: z = t If x > y Then   t = x: x = y: y = t

21、0;End IfEnd IfLabel1 = x & Space(5) & y & Space(5) & zEnd Sub4-4方法一Private Sub Command1_Click()x = Val(InputBox("请输入上网时间:")If x <> -1 Then Select Case x  Case Is < 10    fei = 25  Case 10 To 50   

22、; fei = x * 2  Case 50 To 100    fei = x * 1.5  Case Is >= 100    fei = x * 1 End Select MsgBox "上网费用为:" & fei & "元"End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End

23、Sub方法二Private Sub Command1_Click()Dox = Val(InputBox("请输入上网时间:", , -1)If x <> -1 Then Select Case x  Case Is < 10    fei = 25  Case 10 To 50    fei = x * 2  Case 50 To 100    f

24、ei = x * 1.5  Case Is >= 100    fei = x * 1 End Select zongfei = zongfei & Space(3) & fei MsgBox zongfei, , "上网费用为"Else  Exit DoEnd IfLoopEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End Sub4-5  实

25、验五5-1Private Sub Command1_Click() For n = 1 To 100 s = s + n Next n Print sEnd Sub5-2Private Sub Command1_Click()For i = 0 To 20 For j = 0 To 33 If i * 5 + j * 3 + 1 / 3 * (100 - i - j) = 100 Then Print i, j, 100 - i - j NextNextEnd Sub5-3Private Sub Command1_Click()n = 0DoIf n Mod 2 = 1 And n Mod 3

26、 = 2 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Don = n + 1LoopPrint nEnd Sub5-4法一Private Sub Command1_Click()Dim x%, y%, z%, i%, j%For x = 0 To 9 For y = 0 To 9 For z = 0 To 9 i = x * 100 + x * 10 + z j = y * 100 + z * 10 + z If i + j = 532 Then Print x; y; z Next NextNextEnd Sub法二Pr

27、ivate Sub Command3_Click()For i = 0 To 9 For j = 0 To 9 For k = 0 To 9 If Val(i & i & k) + Val(j & k & k) = 532 Then Print i, j, k Next NextNextEnd Sub5-5Private Sub Command1_Click()x = Val(Text1)y = x * 4n = 0Do While x <= yx = x * (1 + 0.1)n = n + 1Print xLoopPrint x, nEnd Sub5-

28、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 Sub5-7法一（单循环）Private Sub Command1_Click()Dim n%, s%n = Val(InputBox("输入计算到第几项:", , 0)s = 0: t = 0For i = 1 To n t = t + i s = s +

29、 tNextPrint sEnd Sub法二（双循环）Private Sub Command2_Click()Dim n%, s%n = Val(InputBox("输入计算到第几项:", , 0)s = 0: t = 0For i = 1 To n t = 0 For j = 1 To i t = t + j Nexts = s + tNextPrint sEnd Sub5-8Private Sub Command1_Click()Dim s As Double, pi As Doublen = 1: s = 0Do While 1 / (2 * n - 1) >= 0.0001 s = s +