《浙江农林大学VisualBacis答案》由会员分享，可在线阅读，更多相关《浙江农林大学VisualBacis答案（14页珍藏版）》请在金锄头文库上搜索。
1、第1章 VB6.0概述 答案一、 判断题15 ：610： 1115： 二、选择题15：ADBBB 610： CACDB 11-14：CDCC三、程序设计题略第2章 VB6.0语言基础答案一、判断题15 ：610： 1114 二、选择题15：ABCDA 610： ABDBB 11-15: AADBB三、填空题12. int(900*rnd)+100 3. sin(65/180*3.14159)+2*3.14159*sqr(x+2*exp(y)/(x-y)4.BCD5.66. Byte7.5*5第3章 顺序文件一、 程序阅读1 A=2 B=1 C=22 12二、选择题1.D 2.A 3. C 4.
2、A 6.A 7.A 8. D三、略第四章 选择结构程序设计一、选择题1A 2. D 3.A 4.B 5.A 6.A二、程序阅读1-92.w=4w=13w=135w=313.s=1s=2s=5s=20三、程序填空题1(1) max (2)min (3)cmax (4)cmin2.(5) x mod 3=2 and x mod 5=3 and x mod 7=4 then (6) text1.text=” 五、程序设计题1.Private Sub Command1_Click() Dim y As Integer y = Val(InputBox(y=) If (y Mod 4 = 0 And y
3、 Mod 100 0) Or (y Mod 400 = 0) Then Print 是闰年 Else Print 不是闰年 End IfEnd Sub2、Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, t As Integera = Val(InputBox(a=)b = InputBox(b=)c = InputBox(c=)If a b Then t = a: a = b: b = tIf a c Then t = a: a = c: c = tIf b c Then t = b: b =
4、c: c = tPrint a; b; cEnd Sub3.Private Sub Command1_Click() Dim x!, y! x = Val(InputBox(x=) If x 0 And x -3 Theny = x * x + x 6 elseIf 0 = x And x 10 And x 2 And x 3 Theny = x *sin(x) +2 x else y=sqr(x+5)+log(x+4)/log(10) End If Print x=; x, y=; yEnd Sub第5章 循环结构程序设计一、 判断题16：二、选择题16： BCCCDA 三、程序阅读1、 8
5、86886458864245886422、 212 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)(4) len(str1)(5) length-1(6) mid(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五
6、、程序设计1Private Sub Command2_Click()Dim x As Single, s As Single, t As Long, i As Integers = 0: t = 1n = Val(InputBox(n=)x = Val(InputBox(x=)For i = 2 To n t = t * i s = s + (-1) (i) * x / tNext iPrint s=; sEnd Sub2Private Sub Command3_Click()Dim i As IntegerDim a As Integer, b As Integer, c As Intege
7、ri = 100Do While i = 0.0001Print e=; eEnd Sub4Private Sub Command4_Click()Dim x As Integer, k As Integer, i As Integer,c as integeri = 2 : c=1for j= 1 to 100x=int(rnd*990+10)k = Int(Sqr(x)Do While i k ThenPrint x;C=c+1If c mod 5= 0 then printEnd IfNext jPrint “总共有：”+str(c)+”个素数”End Sub5.Private Sub
8、Command5_Click()Dim i As Integer, j As IntegerFor i = 1 To 5 Print space(20 - i); For j = 1 To 2 * i - 1 Print Trim(Str(i); Next j PrintNext iFor i = 6 To 9 Print space(10 + i); For j = 1 To 19 - 2 * i Print Trim(Str(i); Next j PrintNext iEnd Sub第6章 数组一、 判断题16 ：二、选择题14： CCAC三、程序阅读1、 12342、 11 12 13
9、1421 22 23 2431 32 33 3441 42 43 443、 1 2 3 4 sum=10 4、1 4 9 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)print3.（7）val(txtinput.text)（8）p + 1 （9）false（10）prime(j)=1（11）end if4.BDA五、程序设计1Private Sub Command1_Click()Dim a(100) As singleDim b() As IntegerDim i
10、As Integer, j As Integer, n As Integer, t As Integern = 0For i = 1 To 100a(i) = inputbox(“”)If int(a(i)=a(i) Then n = n + 1Next iReDim b(n) As Integerj = 1For i = 1 To 100If a(i)=int(a(i) Thenb(j) = a(i)j = j + 1End IfNext iFor i = 1 To n - 1 For j = i + 1 To n If b(i) b(j) Then t = b(i): b(i) = b(j
11、): b(j) = t End If Next j Next i For i = 1 To n Print b(i); If i Mod 5 = 0 Then Print Next i End Sub2Private Sub Command2_Click()Dim a(1 to 5, 1 to 5) As Integer, i%, j%Dim sum1 As Integer, sum2 As Integersum1 = 0: sum2 = 0Print 数组:For i = 1 To 5 For j = 1 To 5 a(i, j) = Int(Rnd * 9) + 1 Print a(i,
12、j); Next j PrintNext iFor 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 jNext iPrint 数组靠边元素之和为:; sum1Print 数组对角线元素之和为:; sum2End Sub3、Private Sub Command1_Click()Dim a(1 To 20) As Integer, i As Integer, t As IntegerFor i = 1 To 20a(i) = Int(Rnd * 90) + 10Next
