浙江农林大学Visual Bacis答案.docVIP

VB6.0概述 答案 判断题 1——5 ：　××√×√　　　6——10： ××√√√ 11――15： √×××√ 二、选择题 1——5：ADBBB 6——10： CACDB 11—-14：CDCC 三、程序设计题 略 第2章 VB6.0语言基础　答案 一、判断题 1——5 ：　×××√×　　　6——10： ×××√√ 11——14 ×××× 二、选择题 1——5：ABCDA 6——10： ABDBB 11-15: AADBB 三、填空题 1． 2. int(900*rnd)+100 3. sin(65/180*3.14159)+2*3.14159*sqr(x+2*exp(y))/(x-y) 4.BCD 5.6 6. Byte 7.5*5 第3章 顺序文件 程序阅读 1． A=2 B=1 C=2 12 二、选择题 1.D 2.A 3. C 4.A 6.A 7.A 8. D 三、略 第四章 选择结构程序设计 一、选择题 1．A 2. D 3.A 4.B 5.A 6.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 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(InputBox(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 x 3 Then y = x *sin(x) +2^ x else y=sqr(x+5)+log(x+4)/log(10) End If Print x=; x, y=; y End Sub 第5章 循环结构程序设计 判断题 1——6：　√×√×××　　 二、选择题 1——6： BCCCDA 三、程序阅读 88 6886 458864 2 12 3、 D 4、 1（第一次输入7后） 7（第2次输入8后） 5、 2 2 3 5 四、程序填空 while n0 or n30 k=0 sum+1/(k*(k+1)) len(str1) length-1 mid(str1,i,2) sum=0 Sign=1 For I=2 to 19 Sign=-sign While m=len(str1)/2-1 mid(str1,m+1,1) mid(str1,len(str1)-m,1) B A D A 五、程序设计 1． 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 = Val(InputBox(x=)) For i = 2 To n t = t * i s = s + (-1) ^ (i) * x / t Next i Print s=; s End Sub 2． Private Su