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三、填空题1 abedca22. 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二
2、、选择题1.D 2.A 3. C 4.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)c 0) Or (y Mod 400 = 0) ThenPrint “是闰年“ElsePrint “不是闰年“End IfEnd Sub2、Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, t As
3、 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 = c: c = tPrint a; b; cEnd Sub3.Private Sub Command1_Click()Dim x!, y!x = Val(InputBox(“x=“)If x -3 Theny = x * x + x 6elseIf 0 2 And x 3 Theny = x *sin(x) +2 x elsey=sqr(x+5)+log(x+4)/log(10)End IfPrint “x=“; x, “y=“; yEnd Sub
