浙江农林大学VisualBacis答案

1、文档来源为：从网络收集整理.word版本可编辑.欢迎下载支持 第1章 VB6.0概述答案 一、判断题 I 5 :xx V xV6 10 : xxWV II 15 : VxxxV 二、选择题 1 5: ADBBB 610 : CACDB 1114 : CDCC 三、程序设计题 略 第2章VB6.0 语言基础答案 一、判断题 15 : xxxVx610: xxxVV 1114 xxxx 二、选择题 1 5: ABCDA 610 : ABDBB 11-15: AADBB 三、填空题 2. int(900*rnd)+100 3. sin(65/180*3.14159)+2*3.14159*sqr(x+

2、2*exp(y)/(x-y) 4. BCD 5.6_ 6. Byte 7.5*5 第3章顺序文件 一、程序阅读 1. A=2B=1C=2 2. 12 二、选择题 1. D 2.A 3. C 4.A 6.A 7.A 8. D 三、略 第四章选择结构程序设计 一、选择题 1 . A 2. D 3.A 4.B5.A6.A 二、程序阅读 1. -9 2. w=4 w=13 w=135 w=31 3. s=1 s=2 s=5 s=20 三、程序填空题 1 (1) max (2)min (3)cmax (4)cmin 2. (5) x mod 3=2 and x mod 5=3 and x mod 7=4

3、 then (6) text1.text= ” 五、程序设计题 1. Private Sub Command1_Click() Dim y As Integer y = Val(InputBox(y=) If (y Mod 4 = 0 And y Mod 100 0) Or (y Mod 400 = 0) Then Print 是闰年 Else Print 不是闰年 End If End Sub 2、 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, t As Integer a = Val(I

4、nputBox(a=) b = InputBox(b=) c = InputBox(c=) If a b Then t = a: a = b: b = t If a c Then t = a: a = c: c = t If b c Then t = b: b = c: c = t Print a; b; c End Sub 3. Private Sub Command1_Click() Dim x!, y! x = Val(InputBox(x=) If x 0 And x -3 Then y = x * x + x -6 elseIf 0 = x And x 10 And x 2 And

5、x 3 Then y = x *si n(x) +2A x else y=s q r(x+5)+log(x+4)/log(10) End If Prin t x=; x, y=; y End Sub 第5章循环结构程序设计 一、判断题 1 6: VxVxxx 二、选择题 16: BCCCDA 三、程序阅读 1、 88 6886 458864 2、2 12 3、D 4、1 (第一次输入7后) 7 (第2次输入8后) 5、 2 2 _3 5_ 四、程序填空 (1) while n30 (2) k=0 (3) sum+1/(k*(k+1) Ien(str1) (5) length-1 (6) mid

6、(str1,i,2) (7) sum=0 (8) Sign=1 (9) For I=2 to 19 (10) Sign=-sign (11) While m=len(str1)/2-1 (12) mid(str1,m+1,1) (13) mid(str1,len(str1)-m,1) (14) B (15) A (16) D (17) A 五、程序设计 Private Sub Command2_Click() Dim x As Single, s As Single, t As Long, i As Integer s = 0: t = 1 n = Val(InputBox(n=) x = V

7、al(InputBox(x=) For i = 2 To n t = t * i s = s + (-1) A (i) * x / t Next i Print s=; s End Sub 2 Private Sub Command3_Click() Dim i As Integer Dim a As Integer, b As Integer, c As Integer i = 100 Do While i = 0.0001 Print e=; e End Sub 4 Private Sub Command4_Click() Dim x As Integer, k As Integer, i

8、 As Integer,c as integer i = 2 : c=1 for j= 1 to 100 x=int(rnd*990+10) k = Int(Sqr(x) Do While i k Then Print x; C=c+1 If c mod 5= 0 then print End If Next j Print “ 总共有： ”+str(c)+ ” 个素数 End Sub 5. Private Sub Command5_Click() Dim i As Integer, j As Integer For i = 1 To 5 Print space(20 - i); For j

9、= 1 To 2 * i - 1 Print Trim(Str(i); Next j Print Next i For i = 6 To 9 Print space(10 + i); For j = 1 To 19 - 2 * i Print Trim(Str(i); Next j Print Next i End Sub 第 6 章 数组 一、判断题 16 :XXXXXX 二、选择题 1 4 ： CCAC 三、程序阅读 1、 1234 2、 11 12 13 14 21 22 23 24 31 32 33 34 41 42 43 44 3、 1 2 3 4 sum=10 4 、 1 4 9

10、16 25 四、程序填空 1. (1)int(rnd*90)+10 (2) i+1 to 30 (3) a(i)=a(j) (4) a(i) mod 2=1 2. (5) a(i,j)=1 (6) print 3. (7 ) val(txtinput.text) (8)p + 1 (9 ) false (10 ) prime(j)=1 (11 ) end if 4. BDA 五、程序设计 1 Private Sub Command1_Click() Dim a(100) As single Dim b() As Integer Dim i As Integer, j As Integer, n

11、 As Integer, t As Integer n = 0 For i = 1 To 100 a(i) = inputbox( “”) If int(a(i)=a(i) Then n = n + 1 Next i ReDim b(n) As Integer j = 1 For i = 1 To 100 If a(i)=int(a(i) Then b(j) = a(i) j = j + 1 End If Next i For i = 1 To n - 1 For j = i + 1 To n If b(i) b(j) Then t = b(i): b(i) = b(j): b(j) = t

12、End If Next j Next i For i = 1 To n Print b(i); If i Mod 5 = 0 Then Print Next i End Sub 2 Private Sub Command2_Click() Dim a(1 to 5, 1 to 5) As Integer, i%, j% Dim sum1 As Integer, sum2 As Integer sum1 = 0: sum2 = 0 Print 数组 : For i = 1 To 5 For j = 1 To 5 a(i, j) = Int(Rnd * 9) + 1 Print a(i, j);

13、Next j Print Next i For i = 1 To 5 For j = 1 To 5 If i = 1 Or j = 1 Or i = 5 Or j = 5 Then sum1 = sum1 + a(i, j) If i = j Or i + j = 6 Then sum2 = sum2 + a(i, j) Next j Next i Print 数组靠边元素之和为 :; sum1 Print 数组对角线元素之和为 :; sum2 End Sub 3、 Private Sub Command1_Click() Dim a(1 To 20) As Integer, i As Int

14、eger, t As Integer For i = 1 To 20 a(i) = Int(Rnd * 90) + 10 Next i Print 交换前的数为： For i = 1 To 20 Print a(i); If I mod 10=0 then print Next i Print For i = 1 To 10 t = a(i): a(i) = a(21 - i): a(21 - i) = t Next i Print 交换后的数为： For i = 1 To 20 Print a(i); If i mod 10=0 then print Next i End Sub 第 7 章

15、过程 答案 一、判断题 1 10 :VxxWWxxV 二、选择题 1 5 : AACDB6 10 : DBCAB 三、程序阅读题 1、 3 12 3 2、 32 64 16 64 8 64 4 64 3、 3 5 11 19 26 59 4、 5 1 5 2 四、程序填空题 1） temp=1 （2） temp ( 3) nfactor(i) 4） sum (5)C （）A (7)A (8) B （9） A （10） A (1 1)B(1 2)D 五、上机测试题 1 Function chu(n As Integer) As boolean If n 17 = n / 17 And n / 3

16、7 = n 37 Then Chu=true End If End Function Private Sub Form_DblClick() Dim i As Integer For i = 100 To 10000 If chu (i)=true then print I; Next i End Sub 2. Private Function fsum(n As Integer) As Integer Dim i As Integer, x As Integer, y As Integer, z As Integer x = n 100 y = (n - x * 100) 10 z = n

17、Mod 10 fsum = x + y + z End Function 3. Function ave(x() As Integer, n As Integer) Dim i As Integer, s As Long For i = 1 To n s = s + x(i) Next i ave = s / n End Function Private Sub Command1_Click() Dim a(1 To 10) As Integer, i As Integer For i = 1 To 10 a(i) = Val(inputobx() Print a(i); Next i Pri

18、nt text1.Text = 数组的平均值为 & ave(a(), 10) End Sub 第 8 章 常用控件 答案 一、断题 115 : VxxVx xVxxV xVxVx 二、选择题 ADD 1 5: BCDAB 610: CBACD 11-15:ABCBC 16-20:AABAA 21-23: 三、填空题 1 、 Enabled 、 Visible 2 、文本框和列表框 3 、 Change 4 、 Command1.setfoucs 5 、 Timer 6 、 MaxLength 四、程序阅读题 1、D 2、ABB 3、463789 4、李子 苹果 橘子 葡萄 柚子 香蕉 5、 6

19、 15 28 45 6、1 1 2 3 3 6 7文档来源为 :从网络收集整理 .word 版本可编辑 . 文档来源为 :从网络收集整理 .word 版本可编辑 .欢迎下载支持 3) 4 10 5 15 五、程序填空题 1、( 1)Label1.left 2、(1)List1.ListIndex0 2)-label1.width 或者写成 = -1)( 2)List1.RemoveItem List1.ListIndex Text1.Text= 4) List1.AddItem Text1.Text 3、( 1) Text2.Enabled=False( 2)print i (3) Text2

20、.Enabled=False ( 4)keyascii=13 Command1.Enabled=True 4、(1) Timer1.Enabled=True(2) x 3600(3) (x-h*3600)60 或 (x mod 3600) 60 (4) x=x+1 (5) 5 、A D B C 6 、C A B A 7 、B A A D 五、程序设计题 1、 Private Sub Text1_Change() Dim f As Single, c As Single c = Val(Text1.Text) f = 9 / 5 * c + 32 Text2.Text = f End Sub P

21、rivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 57 And KeyAscii 46 Then KeyAscii = 0 End If End Sub 2、 Private Sub Command1_Click() If Text1.Text = Then MsgBox 请先输入添加项 Else List1.AddItem Text1.Text End If End Sub Private Sub Command2_Click() If List1.ListIndex 0 Then MsgBox 请选择一删除项 Else L

22、ist1.RemoveItem List1.ListIndex End If End Sub Private Sub Command3_Click() If List1.ListIndex 0 Then MsgBox 请选择一修改项 9文档来源为 :从网络收集整理 .word 版本可编辑 文档来源为 :从网络收集整理 .word 版本可编辑 .欢迎下载支持 Else Text1.Text = List1.Text End If Command4.Enabled = True End Sub Private Sub Command4_Click() Dim a As Integer If Lis

23、t1.Text = Text1.Text Then MsgBox 请先修改此项 Else a = List1.ListIndex List1.RemoveItem List1.ListIndex List1.AddItem Text1.Text, a End If End Sub Private Sub Form_Load() Command4.Enabled = False End Sub 3、 Dim t As Integer Private Sub Timer1_timer() label1(0).Caption = Time() t = t + 1 h = t 3600 m = (t

24、- h * 3600) 60 s = t Mod 60 label1(1).Caption = h label1(2).Caption = m label1(3).Caption = s End Sub Private Sub command1_click() timer1.Enabled = True End Sub Private Sub Form_Load() timer1.Enabled = False timer1.Interval = 1000 End Sub 4、 Private Sub Check1_Click() If Check1.Value = 1 Then Label1

25、.FontBold = True Else Label1.FontBold = False End If 11文档来源为 :从网络收集整理 .word 版本可编辑 . 文档来源为：从网络收集整理.word版本可编辑.欢迎下载支持 13文档来源为：从网络收集整理.word版本可编辑 End Sub Private Sub Check2_Click() If Check1.Value = 1 Then Label1.Fontltalic = True Else Label1.FontItalic = False End If End Sub Private Sub Option1_Click()

26、Label1.FontName = End Sub Private Sub Option2_Click() Label1.FontName = End Sub 楷体 _gb2312 Private Sub Comma nd1_Click() For i = 0 To List1. ListCou nt - 1 If List1. List(i) Mod 2 = 0 The n List2.AddItem List1.List(i) End If Next i For i = 0 To List2. ListCou nt - 2 For j = i + 1 To List2. ListCou n

27、t - 1 If List2. List(i) List2.List(j) The n t = List2.List(i): List2.List(i) = List2. List(j): List2 .L ist(j) = t End If Next j, i End Sub Private Sub Form_Load() Fori = 1 To 10 List1.AddItem Int(Rnd * 900) + 100 Next i End Sub 第9章习题集答案: 一、判断题 4分（偶数移动） 、4分（排序） 4分（随机产生三位整数） xvVvV xxV 2 二、选择题 DACAA 第10章图形操作与图形控件 一、判断题 1 5 :xVxW 二、选择题 15 : BAADA6 三、填空题 答案 6 11 : VxVxxV 10: BAACB 11-14:CCDD