VisualBasic程序设计方案考试及答案2

1、visual basic程序设计模拟试题及答、单项选篥（画、2分,共30分）1 .后缀为.bas的文件表示vb的（a .类模块文件 b .窗体文件c.工程文件d 标准类模块文件2 .无论何种控件，共同具有的属性是（)o)oa.c.text属性name属性b . caption 属性d . autosize 属性3.式是（a.c.如果对象的名称为mytext ,而且对象有一个属姓，榔么在代码中引用该属性的正确 ）o个人收集整理勿做商业用途text. mytext b. mytext. textmytext. （text） d. mytext*text4.在设计动画时，用时钟控件来控制动画速度的属

2、性是）。5.6.7.a. enabled b. intervalc. timer d. move要在窗体上显示“欢迎您！ ”，a. form, caption -欢迎您！c. forml. print 欢迎您！ 关于语句行，下列说法正确的是a 一行只能写一条语句c.每行的酋字符必须大写下列正确的赋值语句是（使用的语句是（b. forml).caption -“欢迎您！ ”a. x+y= 20 b. y=x+20c. 3x=y d. s= n *r*r&如果希望以模态方式显示窗体a. forml.show b forml. showd. form. print ”欢迎您!.长度不能超过255个字

3、符d.一条语句可以分多行书写forml,卜列正确的语句是（）。c. forml.9.对于定时器show id.以下都不正确（timer）控件，设置其定时是否开启的属性是（a.）。index b .tagc. enabled d. left10 .多窗体程序是由多个窗体组成,11.a 不包含任何控件的窗体c.包含控件最多的窗体dim i as integer .则运彳丁时变量指定为启动窗体。在缺省情况vb在应用程序执行时，总是把（下，12.a. 0 b. 1c. -1 d .空值使用ado数据模型时，建立b .设计时的第一个窗体d .命名为frmi的窗体i的初始值是（13.a. execute

4、b. openrecordset和connection对象连接的属性是（c. act i veconnect ion d. commandtype下列关于变量的说法不正确的是a 局部变量是指那些在过程中用）odim语句或static语句声明的变量r.局部变量的作用域仅限于声明它的过程c静态局部变量是在过程中用staric语句声明的d.局部变量在声明它的过程执行完毕后就被释放了14 .下列数据对象模型中采用ole db访问数据库的是（）。a. dao b. adoc. rdo d. rdo 和 ado15 .为了在运行时把d:pic文件夹下的图形文件a. jpg装入图片框picturel中，所使

5、用的语句为（ ）.a. picturel. text= loadpicture （a” . jpgd:）b. picturel.picture =loadpicture（d:、pica. jpg）c. picturel. picture =loadpicture（d:pica. jpg）d. picturel. picture =load（ dk pica.jpg ）二、填空题（每小题 2 分，共 20 分）16 .在vb中，要想获得某个相关控件或语句的帮助信息，一般可首先选中该控件 或语句， 然后按 键.个人收集整理勿做商业用途17 .表达式8+13 mod 2*4+3的值是 .18 .全局

6、变量在整个应用程序中有效，一般在标准模块中使用 ,语句声明。19 .若窗体forml左上角坐标为（0, 600）,右下角的坐标为（800. - 200）。贝lj x轴 的正向 向 ， y轴的正向向 o个人收集整理勿做商业用途20 .将图片框的autosize属性设置成 时.可使图片框根据图片调整大小。21 . winsock控件主要用来编制基于 或 协议的网络应用程序。22 . vb中.access敷据库属于.（说明是哪种数据库类型）23 . vb应用程序与数据库进行通信的主要机制称为 24 .设某个程序中要用到一个二维散组，要求数组名为 a.类型为字符串类型，第 一维下标从1至ij 3,第二

7、维下标从-1至ij 2.则相应的数组声明语句为 个人收集整理勿 做商业用途25 .列表框控件中最后一项的序号等于listcount属性减三、阅读程序题（共25分）阅读下列程序并写出程序运行结果. 26. （6 分）private sub command1_click （）dim sumi as integer, sum2 as integersumi = 0 : sum2=2for i =1 to 2for j=l to i sum2=sum2*j next jsumi = suml+sum2 next i print sumiend sub写出程序运行时单击commandl按纽后，forml

8、上的输出结果.27. （6 分）privaie sub command1_click （） do while x50#/7x= (x+l)*(x+2) n=n+llooptextl. text = str(n)text2. text = str (x)end sub写出程序：运行时单击commandl按纽后.textl和text2上的输出结果。28. (6分) private sub form_click() a =3:b=4print a= ； a;b二；bcall mult(a)print a二;a ; b二；bend subprivate sub mult(x)x=3+xb=5+bend

9、 sub写出程序运行后，单击窗体时的输出结果.29.(7 分)privale sub commandi_click()static b as integerdim 1 as integer1=1dob=b+l1=1+1loop while i=4 textl. text=btext2. text=iend sub写出程序运行时两次单击commandl按纽后，文本框textl、text2上的输出结果.四、完善程序题(共10分)30.假设在c盘根目录中存在一个名为“学生.mdb的张名为access数据库,其中包含一 “学生基本情况”的数据表，表中存放了学生的基本信息，做商业用 如图1所示。、个人收

10、集整理勿 途现在要求利用vb编写一个数据库记录增加程序，程序的运行界面如图2所示，基 本逻辑 是：分别在textl、text2、text3中输入学号、姓名、籍贯信息，然后点击“保存”按 钮(commandl)将 该记录添加到数据库中。如果数据库中已经存在相同的学号信息，则程序 应提示用户“记录已存 在，请重新输入”，并将焦点置于textl上，等待用户修改或重新输入。当点击退出按钮(command2) 时关闭本窗体。个人收集整理勿做商业用途7/7学生尊：表事号 fts2q0w01toowte 2d09003 ?tjoa(w曲 qeldi图：程序如下，请补充完整.private sub form_

11、load()1 provider = microsoft. jet. 0ledb40； dataource 二学生.mdb； persist个人收集整理勿做商业用途security info二 false”end subprivate sub comma ndl_click()dim strsql as stri ng3 = adoc ndim adors as new recordsetadors. activeco nn ection = adoc nstrsql二select * from学生基本情况where学号= + textl+个人收集整理勿做商业用途adors. open4 if

12、 not adors . eof thenmsgbox 学号已经存在，请重新输入！”，vbokonly，”信息提不”elsetextl. setfocusstrsql=insert into学生基本情况(学号，姓名，籍贯) ”srrsql=strsql+z，values c+textl+， +text2+t+text3+)个人收集整理勿做商业用途5 executestrsqlmsgbox 添加成功！, vbokonly, 信息提示end ifend subprivate sub comma nd2_click() un load meend sub 五、编写程序题(共15分)31.编写简单的工

13、资计算程序，要求在textl、text2、text3中分别输入基本工资、奖金、扣款，单击“计算”按钮(commandl)后，首先计算。应发工资”(text4),然后根据“应发工资”计算个人所得税(text5).最后计算出实发工资(text6).个人收集整理勿做商业用途应发工资二基本工资+奖金-扣款个人所得税的计算规则假设为： 当应发工资在1000元以内部分(含1000元).不扣所得税， 当应发工资大干1000,但小于等于4000元时，超过1000元的部分按15%计算所得税。当应发工资大于4000.按20%扣税，程序运行结果如图3所示。for：谑出visual basic程序设计（二）试题答案及

14、评分标准一、单项选择题（每小题2分,共30分）9/71. d2. c 3. b 4. b5. c6. d 7. b 8. c 9. c 10. b11. a二、填空题12. c 13. d每小题2分，共14. b20分)15. b16. f117. 1618. public19. 右 上20. true21. tcp/ip udp22. 本地数据库23. 数据库引擎as string24. dim a (1 to 3,-1 to 2)25. 1三、阅读程序置1共25分）26. 6 分)27. 6 分)328,(a二 3a二 61826分)b 二4b=429. (7 分)105205四.完善程序题(共10分)30. adocn. open2 dim adors as new recordsei3 adors, activeconnection4 strsol5 adocn.五.编写程序题(共15分)private sub command1_click()text4=val(