VB编程实报告答案 完整版.docVIP

实验一： 一、选择 1.D 2.D 3.B 4.A 5.B 6.C 7.CD 8.D 9.D 10. BC 11. A 12.D 13. D 14. C 15. A 二、填空 1.windows 2. 中断 3.工具箱 4.代码 5.分类 6.form2.show 7. 出现语法错误 8. 错 9. 事件 10. 面向对象 11.工程文件结构 12. 工程 13. 设计程序代码 14. 双击窗体 15. C:\Program Files\Microsoft Visual Studio\VB98 或者 VB的安装文件夹 16.属性 17.方法 18.font 19. form_load() 20.对象 实验二： 一、选择 1.B 2.C 3. B 4.C 5.C 6.C 7.B 8.B 9.D 10. A 11. C 12.C 13. C 14. B 15. A 16.C 17.B 18.D 19.C 20. C 二、填空 1. Form_Click() 2. Interval、5000 3..vbp .frm 4.left top Height、Width twip 5.picture 6.load 7. locked 8. font Alignment 9. GotFocus() LostFocus() 10. 属性窗口 程序代码 实验三： 一、选择 1.A 2.BC 3.BC 4.A 5.A 6.A 7.BCD 8.D 9.B 10. B 11. B 二、判断题 不合法的变量： 3. 4. 5. 6. 8. 10. 11. 14.15. 16. 三、 1、abs(x+y) 2. (3+x*y)^2 3. (-b+sqr(b^2-4*a*c))/(2*a) 4.sin(30*3.14/180)+exp(2) 四、 1. int(rnd* 71+20) 或int(rnd* 71)+20 2. x0 and y0 or x0 and y0 或者x*y0 3. x mod 3=0 or x mod 7=0 或 x/3=x\3 or x/7=x\7 4. x=10 and x20 5. x=A and x=Z 6. left(s,3) 实验四： 一、选择 1.C 2.D 3. C 4.D 5.A 6.D 7.B 8.B 9.A 10. C 二、填空 1. 48.71E-01, -4.8712 2. 关系、逻辑、算术 3. 900，100，mid(s,2,1) 4.m、1,2,3 、print m 月是第二季度、end select 三、 1. X=4 y=13 2. 10 实验五 一、选择 B C B A C 二、填空 （1）for x=2 to 10 s*(1-1/x) (2) 1 t1E-6 (3) j t (4) 5 11 5 实验六 一、选择 B C C C D D D D C A 实验七 一、选择 1C 2C 3D 4A 5B 6D 7AB 8A 9A 10A 二、填空 （1）n！ （2）1+1+2+3+4+……+n （3）n是否是素数 （4）冒泡排序 （5）递归调用产生斐波那契数列 （6）求最大公约数和最小公倍数 第八页编程 2-1 Private Sub Command1_Click() Label3 = Val(Text1) * Val(Text2) End Sub Private Sub Command2_Click() Label3 = Val(Text1) / Val(Text2) End Sub 2-2 Private Sub Command1_Click() Picture1.Picture = LoadPicture(d:\tu1.jpg) End Sub Private Sub Command2_Click() Picture1.Picture = LoadPicture(d:\tu2.jpg) End Sub Private Sub Command3_Click() Picture1.Visible = False End Sub 2-5 Private Sub Form_Load() Image1.Picture = LoadPicture(C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Sunset.jpg) End Sub Private Su