(VB程序设计作业册答案201.3.docVIP

第1-2章 Visual Basic导论与算法 第1-2章 Visual Basic导论与算法 一、单项选择题 题号 1 2 3 4 5 6 7 8 9 10 答案 C C B A B C B C B 第3章 常见控件与界面设计 一、单项选择题 题号 1 2 3 4 5 6 7 8 9 10 答案 C B B D D C A B A A 题号 11 12 13 14 15 16 17 18 19 20 答案 B C A D B D B B C C 题号 21 22 23 24 25 26 27 28 29 30 答案 B B A D C B C A B B 二、填空题 题号 答案 题号 答案 1 Click 11 True 2 Left 12 组合框 3 Myfirst.frm 13 Setfocus 4 Form1.Show 14 事件过程 5 Picture 15 Interval 6 Timer 16 图形 7 True 17 对其它控件 8 Locked 18 选中、未选中 9 Tabindex 19 项目列表 10 0 20 Picture 第4章 数据、表达式与简单程序设计 一、单项选择题 题号 1 2 3 4 5 6 7 8 9 10 答案 D C A C A B D C B D 题号 11 12 13 14 15 16 17 18 19 20 答案 C B B B A B A B C D 题号 21 22 23 24 25 26 27 28 29 30 答案 B D A C B B D A C B 题号 31 32 33 34 35 36 37 38 39 40 答案 A A B D C B A B B A 二、填空题 题号 答案 题号 答案 题号 答案 1 标准模块 11 a=1 XOR b=1 21 Beijing 2 9 12 True 22 CDEF 3 23 13 -1 23 -3 2 -2 2 4 x*y mod z 14 -3 24 Sin(15*3.14/180)+Sqr(x+Exp(3))/Abs(x-y)-Log(3*x) 5 长整型 15 3 25 x mod 5=0 OR x mod 9=0 6 A=Int（A） AND B=Int（B） AND A*B0 16 x=1 and x12 26 False 7 123.55 17 True 27 SCII编码 8 0 18 5 28 34.6 9 4 19 False 29 200+Int(Rnd*100) 10 Option Explicit 20 -56 30 Click 第5章 选择分支与循环 一、填空题 题号 答案 题号 答案 1 Case 3 To 7 5 11 10 8 2 6 55 6 BBABBA 3 DDEF FDDEF FEDDEF 7 t=x； Abs(t) esp 4 6 5 8 3 15 28 二、编程题 （说明：界面自行设计，并上机调试，作业册上只需写出相应的主要程序代码和正确的运行结果。） 1、编写程序代码，随机生成100个两位整数，并统计出其中小于等于40，大于40小于等于70以及大于70的数据个数。 方法1： Private Sub Command1_Click() Dim sum, a%, b%, c% Dim i% a = 0: b = 0: c = 0 For i = 1 To 100 sum = Int((99 - 10 + 1) * Rnd) + 10 Select Case sum Case Is = 40 a = a + 1 Case 40 To 70 b = b + 1 Case Else c = c + 1 End Select Next i Text1 = a: Text2 = b: Text3 = c End Sub 方法2： Option Explicit Private Sub Command1_Click() Dim a As Integer, I As Integer Dim c1 As Integer, c2 As Integer, c3 As Integer Randomize For I = 1 To 100 a = Int(90 * Rnd) + 10 If a = 40 Then c1 =