實(shí)驗(yàn)報告冊答案(含編程)參考模板

1、實(shí)驗(yàn)一：一、選擇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. 出現(xiàn)語法錯誤  8. 錯  9. 事件 10. 面向?qū)ο?11.工程文件結(jié)構(gòu)  12. 工程  13. 設(shè)計程序代碼  14.  雙擊窗體 15.  C:Program FilesMicrosoft Visual StudioVB98

2、 或者 VB的安裝文件夾 16.屬性 17.方法  18.font  19. form_load()  20.對象實(shí)驗(yàn)二：一、選擇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. 屬性窗口   程序代碼實(shí)驗(yàn)三：一、選擇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)實(shí)驗(yàn)四：一、選擇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.  關(guān)系、邏輯、算術(shù) 3. 900，100，mid(s,2,1) 4.m、1,2,3 、print m & "月是第二季度"、end select三、1.  X=4    y=132.  10實(shí)驗(yàn)五一、選擇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實(shí)驗(yàn)六一、選擇B C C C D  D  D D C A實(shí)驗(yàn)七一、選擇1C  2C  3D  4A  5B  6D  7AB  8

7、A  9A  10A二、填空（1）n！（2）1+1+2+3+4+n（3）n是否是素數(shù)（4）冒泡排序（5）遞歸調(diào)用產(chǎn)生斐波那契數(shù)列（6）求最大公約數(shù)和最小公倍數(shù)實(shí)驗(yàn)二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實(shí)驗(yàn)三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 "產(chǎn)生的隨機(jī)數(shù)：" x  y = (x Mod 10) * 100 + (x 10 Mod 10) * 10 + x 100  Print "反序數(shù)：" Format(y, "000")End SubPrivate Sub Command2_Click()  Dim x%, y As S

13、tring  x = Int(Rnd * 900 + 100)  Print "產(chǎn)生的隨機(jī)數(shù)：" x  y = Trim(Str(x)  Print "反序數(shù)：" & 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個隨機(jī)數(shù)為:  " & 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實(shí)驗(yàn)四 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 & "轉(zhuǎn)換為" & aa & "度" & bb & "分" & cc & "秒"End Sub方法二Priva

17、te Sub Command1_Click() x = InputBox("請輸入弧度數(shù)值", "弧度轉(zhuǎn)換", 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 & "轉(zhuǎn)換為"

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("輸入第一個數(shù)")y = InputBox("輸入第二個數(shù)")z = InputBox("輸入第三個數(shù)")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("請輸入上網(wǎng)時間:")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 "上網(wǎng)費(fèi)用為:" & fei & "元"End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End

23、Sub方法二Private Sub Command1_Click()Dox = Val(InputBox("請輸入上網(wǎng)時間:", , -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, , "上網(wǎng)費(fèi)用為"Else  Exit DoEnd IfLoopEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End Sub4-5  實(shí)

25、驗(yàn)五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("輸入計算到第幾項(xiàng):", , 0)For i = 1 To ns = s + (-1) (i + 1) * iNextPrint n, sEnd SubPrivate Sub Form_Load()-8End Sub5-7法一（單循環(huán)）Private Sub Command1_Click()Dim n%, s%n = Val(InputBox("輸入計算到第幾項(xiàng):", , 0)s = 0: t = 0For i = 1 To n t = t + i s = s +

29、 tNextPrint sEnd Sub法二（雙循環(huán)）Private Sub Command2_Click()Dim n%, s%n = Val(InputBox("輸入計算到第幾項(xiàng):", , 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 +