《Visual Basic程序设计教程(第2版)》习题参考答案

习题1一、单选题1D 2D 3B 4B 5C 6A7A 8A 9B 10B 11B 12B二、多选题1ADE 2AB 3BCDE 4CD 5CE三、填空题1属性，方法，事件 2解释，编译 3设计，运行，中断 4Command2_Click5中央，代码 6MyForm.frm 7(1)Cmd1_Click()，(2)Txt1.Text=VB语言程序设计习题2一、单选题1(1)A，(2)C 2A 3B 4B 5B 6D 7B8A 9A 10B 11B 12A 13B二、多选题1BD 2CD 3 AD三、填空题1(1) (2+x*y)/(2y*y) (2) a23*a*b/(3+a)(3) x(3/8)+Sqr(y2+4*a2a/(x+y3)2Int(50+6*Rnd)3(1)138， (2)3， (3)214， (4) 70， (5) 45， (6)04 系统管理数据库习题3一、单选题1C 2B 3B 4D 5B 6C 7B 8D9C 10(1)A， (2)C 11A 12B 13D 14B二、多选题1AC 2ABF 3BE三、填空题1$000,124 2Label1.Caption=a*b= 3Height，Width42 5Text1.SetFocus6Multiline, ScrollBars, 2 724，2423习题4一、单选题1C 2B 3C 4C 5D 6B 7(1)D，(2)A，(3)B二、多选题1ABCFGHJ 2BE 3CDE 4AE三、填空题160000 2O&pen 3(1) 0 To 9；(2) a To z, A To Z；(3) Else习题5一、单选题1C 2(1)D，(2)C 3A 4(1)B，(2)C，(3)B 5B 6B二、填空题1(1) 4次，n=13； (2) 3次，n=8； (3) 3次，n=27； (4) 1次，n=12 222730 4Style 5下拉列表框 6AddItem，RemoveItem或Clear7(1)ItemA，(2) ItemD，(3) ItemD，(4) ItemA习题6一、单选题1D 2A 3B 4C 5C 6A 7(1)D (2)A (3)B二、多选题1AD 2CD三、填空题1 二, 12; 1, 3; -1, 22 0 1 2 3 1 0 1 2 2 1 0 1 3 2 1 03 Name, Index 4(1) 0 To Index， (2)Val(Text1(k).Text)习题7一、单选题1B 2C 3B 4B 5C 6D 7A 8C 9D 10C二、填空题1EF 2(1)14，(2) 2，(3)10 3(1)10，(2)28，(3)6，(4) 64(1)Power(x,n-1)*x，(2)Power = x习题8一、单选题1B 2D 3D 4A 5B 6D 7A8(1)D，(2)D 9B 10A 11D 二、填空题1 Get, Put2 (1) Open Myfile3.txt For Output(2) Write #1, StNo, StMb (3) Close #1 3 (1) Open Myfile3.txt For Input As #1 (2) EOF(1) (3) Input #1, StNo, StMb习题9单选题1B 2D 3D 4B 5A 6A习题10一、单选题1C 2(1)A，(2)C 3C 4A 5(1)A，(2)D 6A 7D8B 9D二、填空题1(1)Change，(2)Value，(3)Scroll，(4)Value2Circle(Scale.Width/2,Scale.Height/2),10003(1) P1.Picture ，(2) P2.Picture，(3) P2.Picture = P3.Picture4KeyDown，KeyPress，KeyUp 5MouseDown，MouseUP6菜单编辑器，顶；PopUpMenu7(1) Button.Index (2) BackColor = RGB(255, 0, 0) (3) BackColor = RGB(0, 255, 0) (4) BackColor = RGB(0, 0, 255)8(1)DragMode, (2)1，(3)0 9(1)Action, (2)4, (3)ShowFont10(1)KeyPress， (2)Cls， (3)CurrentY = Y， (4) Button=1习题11一、单选题1C 2C 3A 4D 5A 6D 7D 8C9D 10D 11C 12A 13B二、填空题1Select 职工号,基本工资 From 工资表 Where 基本工资5002Update 职工表 Set 姓名=伍小明 Where 职工号=000183Select 学籍表.班号,Avg(成绩表.英语) From 成绩表,学籍表 Where 学籍表.学号=成绩表.学号 Group By 学籍表.班号4Update 工资表 S