VB章节练习答案.doc

第一章答案1.1小节 D 本题考查2点，1是在模块中申明必须用private，2不能使用动态数组。所以答案AB都有问题3 A4 C D ，A B错误1.21 A2 B3 B4 D1.31 D2 C3 1684 25 考查str(有符号位)与format区别5 B6 A 1 海洋培训海洋培训It S网络科技School 32 17 it school of sea海洋电脑培训学校下属海浪网络科技1.41 C2 A3 A 计算结果为4，但答案中没用，所以将4转化为True4 B5 -3/8+8*int(24.8) (8+6)(4/-2)+sin(2*3.1415926)(x+y)+z)*80-5*(C+D) cos(c+2)22*a*(7+b) 8*e3*log(2)6 B 题干错误：10,27改为10,377 B1.51 Int(76*rnd)+11 I mod 4=02 D(将题干中“不能显示”改 “能显示”)3 12,345.684 A inputbox如果声明了x是数值且输入的是数，则得到数值型，相对正确，BCD选项中X如果是数值类型，而右边的值是数其实也可以5 B 千分位不可以放在格式的两头6 17:23:07 D8 B9 D10 是否 第1个 题干要求的是第4个但仅只有2个，不符合要求，所以用默认的第1个11 C12 65 A海洋培训 25 3 -113 字符串类型14 C15 A1.61 FontBold=True2 默认字体，即宋体3 printform第二章2.11 B(题干由错误改正确) 2 B(题干6改16) 3 B 4 B 5 B 6 A2.21 B(考虑a b的数据类型和case的值必须是常数值) 2 A 3 B 4 B2.31 C 2 i=4.8 s=4 3 B 4 C 5 B 6 B(While语句无Exit子句) 7 B 8 C 9 C 10 B 11 A 22 44 6613 B 14 D 15 B 16 C 17 B 18 C(超纲) S=9 3 8 4 9 2 11 13 17 1924168 nMax n5 5 Isb,a,b) Rnd X Mod 5 X (被整除 改 被5整除) X=0 X100 then exit for If Countn then exit do( X=5 To Step -1 改 X=5 To 1 Step -1) * * * * * Mid(a$,i,1) j = i Exit For海海海海海35 Int(Rnd*101) max 1000 s = s * 1.05 i = i + 1 Loop Print iEnd Sub3)Private Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To 9 Print Tab(9 - i + 1) * 3); print打印数值时前后有空格，所以乘以3 For j = 1 To i - 1 Print j; Next Print i; For j = i - 1 To 1 Step -1 Print j; Next Print NextEnd Sub4)Private Sub Form_Click() Dim s As String, result As String, i As Integer s = InputBox(请输入一串字符：) For i = Len(s) To 1 Step -1 result = result & Mid(s, i, 1) Next Print result For i = 1 To Len(s) result = Mid(s, i, 1) & result Next Print resultEnd Sub第三章3.11 A 2 B(B选项6改为16) 3 D 4 A 5 C 6 B(D题干改为X6)3.21 C 20 3 A(Aba(m+n)改为Abs(m+n) 4 B 5 Lbound(a) To Ubound(a)-1 i+1 To Ubound(a) (昌改冒)6 b(200) b(i - 1) * n + j) (Tran a , 20 ,10 b改Tran a , 20 ,10 , b)7 a(i) = a(10 - i + 1) a(10 - i + 1) = Tmp8 1第四章4.11 A B 2 C 3 C 4 A 5 C(阶级 改 阶段) 6 B 7 B 8 AutoSize 9 PasswordChar 10 A4.21 LoadPicture(d:pica.jpg) 2 B 3 C 4 C4.31 D(ScrolBbar改Scrollbar) 2 Style 3 B4.41 B 2 D 3 D 4 D 5 C4.51 B(名称为List 改 名称为List1) 2B 3 1 4 D 5 D(List1.ListIndex=3改List1.ListIndex=2) 6 D 7 2(DropDown List) 8 List1_DblClick List1.Text 9 A 10 B 11 D12 A (则应设置的属性是 改 则与其相关的控件是)4.61 Change Value 2 SmallChange 3 C4.71 Timer 2C 3 D 4 C 5 Interval 6 C 7 B4.81 B 2 D4.9 5 0 5 2 B 3 Index4.101 C 2 C 3 D 4 D 5 B 6 D 7 B 8 B第五章5.11 C 2 A 3 C 4 A 5 B(1 1 改 5 1)5.2042136 A 3 C 4 C 5 C 6 C 7 C5.3 D (D) Sub F2(x As Integer, ByVal y As Integer) 改 D) Sub F2(x As Integer, ByRef y As Integer) 另 C) Private Sub F2 (ByVal x As Integer, ByVal As Integer, ByVal z As Integer) 改 C) Private Sub F2 (ByVal x As Integer, ByVal y As Integer, ByVal z As Integer)2 D 3 D 4 _Load(Sub后另加填写的画线) 5 C5.41 C 2 A(常数、固定长度字符串、数组、自定义类型与 Declare 语句不能是对象模块中的 Public 成员) 3 B 4 C5.51 A 2 B 3 C 4 B 5 A 6 D 7 C 8 Hide Show ( Form1 改Form1. ) 第一个创建的窗体 MDI窗体的标题栏 1 MDIChild True12 窗体模块 标准模块 类模块 13 标准模块 Public 14 C 15 B 16 A 17 C18 B(MBIChild改MDIChild)第六章6.11 B 2 B(将其“可是”改为将其“可视”) 3 A (衙句 改 语句 A )Myclass. Enabled 补上=False) 4 Load Unload 5 B6 A(删除题干中的1.) 7 C 8 D 9 PopupMenu 10 数据区 编辑区 菜单项显示区11 - 12将弹出对话框 13 Caption 14 Name 15 Index 16 Checked 17 Enabled18 Visible 19 Alt+F 20 &Find6.21 A 2 A 3 C 4C 5 C 6 D 7 B 8 C 9 预定义对话框 自定义对话框 通用对话框10 Filename包含路径 FileTitle不含路径 11(*.Doc)|*.doc 12 C1.ShowColor C1.ShowFont13 ShowSave 14 BorderStyle 15 Action 16 Show 17设置第七章7.11 C 2Shift Ctrl Alt 3D 4D(KeyDown KeyPress Change) 5D 6 A7.21 C 2A 2A 3 MousePointer 99 MouseIcon 4 1 2 4 左 右 中5海洋电脑职业培训学校 计算机等级考试培训专家 6 C7.31 C 2C (Ptint 培训 改 Print 培训) 3字符ASCII值 按下上档键 ASCII4 DragMode 1 0第八章8.11 B(c:= 改 c:) 2 C 3 B8.21 Input #2,X Print #3,Y (For Input As #3 改 For Output As #3)2 A（补 格式：10 20 30）3 C 4 A 5B 6 FreeFile() 7 Lock Read Write Shared 8 C(正确的是改 不正确的是)8.31 D 2 顺序文件 随机文件 3 C 4 C 5 C 6 B 7D 8 C9 A 10A (RL 改 R1) 11 D(书中题号需往后移一位) 12 Open Input Output Append Random Binary R