2021年浙江农林大学VisualBacis答案.docxVIP

精品学习资料 名师归纳总结——欢迎下载 第1 章VB6.0 概述 答案一，判定题1 —— 5 ：11 ―― 15 ： 二，挑选题1 —— 5：ADBBB三，程序设计题 略×× √ ×√√×××√6—— 10 ：××√√√6 —— 10 第1 章 VB6.0 概述 答案 一，判定题 1 —— 5 ： 11 ―― 15 ： 二，挑选题 1 —— 5：ADBBB 三，程序设计题 略 ×× √ ×√ √×××√ 6—— 10 ： ××√√√ 6 —— 10 ： CACDB 11 —-14 ：CDCC 第 2 章 VB6.0 一，判定题 1 —— 5 ： 二，挑选题 语言基础 答案 ×××√× 6—— 10 ： ×××√√ 11 —— 14 ×××× 1 —— 5：ABCDA 三，填空题 6 —— 10 ： ABDBB 11-15: AADBB b 1． a c b e 2 ab d 2. 3. int(900*rnd)+100 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． 2． A=2 12 B=1 C=2 二，挑选题 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 第 1 页，共 14 页 精品学习资料 名师归纳总结——欢迎下载 w=13 w=135w=313.s=1 s=2 s=5s=20三，程序填空题1．(1) max(2)min(3)cmax 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. x mod 3=2 and x mod 5=3 and x mod 7=4 then 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 第 2 页，共 14 页 精品学习资料 名师归纳总结——欢迎下载 3.Private Sub Command1_Click()Dim x., y.x = Val(InputBox(x=))If x 0 And x -3 Theny = x * x + x –6elseIf 0 = x And x 10 And x 2 And x 3 Theny = x *sin(x) +2^ xelsey=sqr(x+5)+log(x+4)/log(10)End IfPrint x=; x, y=; yEnd Sub第 5 章循环结构程序设计 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 三，程序阅读 1， 88 6886 4588642， 2 12 3 ， D 4 ， 1 （第一次输入 7 后） 8 后） 7 5 ， （第 2 次输入 2 2 3 5 四，程序填空 (1