Visual Basic 程序设计.doc

Visual Basic 程序设计参考答案第 1 章 程序设计及 VB 概述 一、选择题 1、C 2、A 3、A 4、C 5、B 6、C 7、D 8、A 9、D 10、C 二、填空题 1、 对象 Windows（不确定） 事件驱动 2、窗体 工程 3、查看对象 查看代码 4、CmdExam Click lbldisp 5、“启动”按钮 “运行”菜单“启动”命令 F5 6、Click 事件过程 7、Cancel 8、Label1第 2 章 Visual Basic 程序设计基础 一、选择题 1、A 2、C 3、D 4、B 5、C 6、A 7、B 8、A 9、B 10、D 二、写出下列表达式的值 1、 6 2、 0 3、 8 4、False 5、False 6、 True 7、 1 8、16.7 9、C 10、Basic 11、VISUAL 12、 5 三、将代数式改写成 VB 表达式 1、(a + b) / (c * d - Sqr(1 - a * a) + 5 (1 / 3) * Cos(3.14159 / 3) 2 2、Sin(45 * 3.14159 / 180) + Abs(x - y) 3、2 * Exp(x) + Log(x * y) 4、(Log(50) / Log(10) - Log(20) / (9 * Exp(3) 5、Abs(x) = Y And Abs(x) Z 6、m = 0 7、(A Mod 3 = 0) Or (A Mod 7 = 0) 8、(N Mod 4 = 0 And N Mod 100 0) Or (N Mod 400 = 0)第 3 章 程序的基本控制结构 一、选择题 1、 C D 2、B 3、B 4、B 5、C 6、A 7、D 8、BD 9、C 10、D 11、A 12、A 13、D 14、A 15、A 16、D 二、填空题 1、 15 15 2、 x= 3 y=10 3、 1 2 3 4 5 6 7 8 9 0 * * * * * * * * * * * * * * * 4、 12345 54321 5、 ABCDE 6、 32 7、 k If x 0 8、窗体、图片框、框架 9、MultiLine ScrollBars 10、AutoSize Stretch 11、Image1.Picture = LoadPicture(c:pic1.jpg) 12、Change 13、另存为 14、顶级 15、 ListIndex Text 或 List(List1.ListIndex) List(2) x , Lst1.ListIndex +1 ListCount 1 Selected RemoveItem i第 6 章 过程 一、选择题 1、C 2、C 3、C 4、A 5、D 二、填空题 1、内存空间 或者：地址 2、传值 传址 3、Sub TestAB(a As Single, b!, c As Boolean) 4、过程名 5、局部变量 6、Static 7、本过程 模块 整个工程 8、模块级 工程级 9、过程调用自身 递归结束 递归描述 10、 6 8 4 6 4 3 11、 0.6 1.8 12、 2 5 8 11 13、 3 1 3 0 1 3 4 1 3 0 1 3 1 1 3 第 7 章 鼠标和键盘 填空题 1、 11 2、 MouseDown MouseUp MouseMove 3、 Shift Ctrl Alt 4、 MouseDown MouseUp MouseUp 5、 A a 6、 Ctrl + Alt + 单击鼠标右键 7、 Form-66 Text-66 第 8 章 文件 一、选择题 1、C 2、B 3、A 4、D 5、D 二、填空题 1、程序文件和数据文件 顺序文件和随机文件 ASCII 文件和二进制文件 2、顺序 随机 二进制 3、 Output Append Input Random Binary Random 4、打开（建立） 读/写 关闭 5、Input# LineInput# Input() Get Put 6、Input As #10 Output As #20 7、Dir1.Path Drive1_Change()第 9 章 多窗体和多文档界面 一、选择题 1、C 2、C 3、D 4、C 5、C 二、填空题 1、Load UnLoad 2、Show Hide 3、无效 4、图片框 5、图片框、计时器 第 10 章 文本和图形 选择题 1、A 2、C 3、A 4、B 5、C第 3 章 编程题参考答案 1、Private Sub Form_Click() Dim a%, b%, c% Dim d!, x1!, x2% a = InputBox(a=) b = InputBox(b=) c = InputBox(c=) d = b * b - 4 * a * c If d 0 Then 虚根 Print x1=; -b / (2 * a); +; Sqr(-d) / (2 * a); i Print x2=; -b / (2 * a); -; Sqr(-d) / (2 * a); i Else Print x1=; (-b + Sqr(d) / (2 * a) Print x2=; (-b - Sqr(d) / (2 * a) End If End Sub 2、Private Sub Form_Click() Dim n As Integer For n = 1 To 100 If n Mod 8 0 And n Mod 3 0 Then Print n End If Next 实根 End Sub 3、Private Sub Form_Click() Dim n%, x%, n1%, n2% n = InputBox(n=) For i = 1 To n x = InputBox(x=) If x 0 Then s1 = s1 + x: n1 = n1 + 1 If x = i If x Mod i = 0 Then If x = i Then Print i Else Print i; *; x = x i Else i = i + 1 End If Loop End Sub5、Private Sub Form_Click() Dim x%, i%, n% For i = 1 To 20 x = Int(100 * Rnd) If x Mod 2 = 0 Then Print x; n = n + 1 End If Next Print Print 偶数个数为：; n End Sub6、Private Sub Form_Click() Dim x!, y! x = InputBox(x=) If x = -1 Then y = Exp(-x) ElseIf x 200 Print sum=; Sum 9、Private Sub Form_Click() For m = 100 To 999 tem = m gw = tem Mod 10 tem = tem 10 sw = tem Mod 10 bw = tem 10 If (gw + sw) Mod 10 = bw Then 满足第一个条件 flag = True 判断其是否为素数 For i = 2 To Sqr(m) If m Mod i = 0 Then flag = False: Exit For Next i If flag Then Print m; n = n + 1 按每行 5 个输出 If n Mod 5 = 0 Then Print End If End If Next m End Sub 第 4 章 编程题参考答案1. Option Base 1 Private Sub Form_Click() Dim A, B Dim C(10) As Integer A = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) B = Array(2, 4, 6, 8, 10, 1, 3, 5, 7, 9) For i = 1 To 10 C(i) = A(i) * B(i) Print C(i); Next i End Sub 2. Option Base 1 Private Sub Form_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = InputBox(输入整数) Print a(i); Next Print For i = 1 To 10 2 temp = a(i) a(i) = a(11 - i) a(11 - i) = temp Next i For i = 1 To 10 Print a(i); Next End Sub 3. Option Base 1 Dim a() As Integer Dim n As Integer Private Sub Form_Click() Randomize 10: n = InputBox(n=) If n a(i) Then temp = a(i): a(i) = a(j): a(j) = temp End If Next j Next i For i = 1 To n Print a(i); Next Print End Sub 4. Private Sub Command1_Click() Dim x As Integer, y As Integer ReDim Preserve a(n + 1) 插入操作 排序 x = InputBox(输入要插入的数) For k = 1 To n If x a(k) Then Exit For Next k For i = n To k Step -1 a(i + 1) = a(i) Next i a(k) = x For i = 1 To n + 1 Print a(i); Next i Print y = InputBox(输入要删除的数) For k = 1 To n + 1 If y = a(k) Then Exit For Next For i = k + 1 To n + 1 a(i - 1) = a(i) Next For i = 1 To n Print a(i); Next Print End Sub 删除操作5. Option Base 1 Private Sub Form_Click() 第(1)小题 Dim a(5, 5) As Integer Dim Max As Integer, timax As Integer, tjmax As Integer For i = 1 To 5 For j = 1 To 5 a(i, j) = Int(90 * Rnd + 10) Print a(i, j); Next j Print Next i 第(2)小题 Max = a(1, 1): timax = 1: tjmax = 1 For i = 1 To 5 For j = 1 To 5 If a(i, j) Max Then Max = a(i, j) timax = i tjmax = j End If Next j Next i Print 最大元素为：; Max; 其位置在第; timax; 行; tjmax; 列 第(3)小题 s = 0 For i = 1 To 5 For j = 1 To i Print a(i, j); s = s + a(i, j) Next j Print Next i Print 下三角元素和为; s 第(4)小题 For i = 1 To 5 temp = a(i, 2): a(i, 2) = a(i, 4): a(i, 4) = temp Next i For i = 1 To 5 For j = 1 To 5 Print a(i, j); Next j Print Next i End Sub 6. Option Base 1 Private Sub Form_Click() Dim a() As Integer n = Val(InputBox(n=) ReDim a(n, n) For i = 1 To n a(i, i) = 1: a(i, 1) = 1 Next For i = 3 To n For j = 2 To i - 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j Next i For i = 1 To n For j = 1 To i Print a(i, j); Next j Print Next i End Sub第 8 章 编程题参考答案 1、Option Base 1 Private Sub Form_Click() Dim a(5, 5) As Integer Open d:a1.txt For Output As #1 For i = 1 To 5 For j = 1 To 5 a(i, j) = Int(90 * Rnd + 10) Print #1, a(i, j); Next j Print #1, Next i Max = a(1, 1) For i = 1 To 5 For j = 1 To 5 If a(i, j) Max Then Max = a(i, j) End If Next j Next i Print #1, Max=; Max Close #1 End Sub2、Private Sub Command1_Click() Open d:file1.txt For Input As #1 Do While Not EOF(1) Line Input #1, str1 Text1 = Text1 + s