《VisualBasic程序设计试题及答案2.docx》由会员分享，可在线阅读，更多相关《VisualBasic程序设计试题及答案2.docx（16页珍藏版）》请在三一文库上搜索。
1、Visual Basic 程序设计模拟试题及答案（二）一、单项选择题（每小题2 分，共30 分）1后缀为 bas 的文件表示VB 的(A类模块文件B窗体文件)。C工程文件D标准类模块文件2无论何种控件，共同具有的属性是()。A Text 属性B Caption 属性C Name 属性D Autosize 属性3如果对象的名称为Mytext ，而且对象有一个属性格式是 ()。Text ，那么在代码中引用该属性的正确A.Text. MytextC.Mytext. (Text)B.Mytext. TextD.Mytext*Text4在设计动画时，用时钟控件来控制动画速度的属性是()。A Enable
2、dB.IntervalC TimerD Move5要在窗体上显示“欢迎您！ ”，使用的语句是 ()A Form caption -”欢迎您！”B Forml caption - “欢迎您！”C Forml. print ”欢迎您！”D Form print “欢迎您！ ”6关于语句行，下列说法正确的是()。A一行只能写一条语句B 长度不能超过255 个字符C每行的酋字符必须大写D 一条语句可以分多行书写7下列正确的赋值语句是 () 。A x+y= 20B y=x+20C 3x=y D. s= *r*r8如果希望以模态方式显示窗体Forml ，下列正确的语句是()。A.Forml. ShowB.
3、Forml. Show 0C Forml. Show lD 以下都不正确9对于定时器( Timer) 控件，设置其定时是否开启的属性是()。A IndexB TagC Enabled D Leftl0 多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把(指定为启动窗体。A不包含任何控件的窗体C包含控件最多的窗体11. Dim l As Integer 则运行时变量B 设计时的第一个窗体D命名为Frml 的窗体I 的初始值是 ()。A 0B 1C -1 D 空值12使用 ADO 数据模型时，建立A ExecuteB OpenRecordset 和Connection对象连接的
4、属性是(C.ActiveConnectionD.CommandType13.下列关于变量的说法不正确的是() 。A局部变量是指那些在过程中用Dim语句或Static 语句声明的变量R局部变量的作用域仅限于声明它的过程C静态局部变量是在过程中用Staric 语句声明的D局部变量在声明它的过程执行完毕后就被释放了14.下列数据对象模型中采用OLE DB 访问数据库的是A DAOB ADO()。C.RDOD RDO 和 ADO15为了在运行时把d:pic 文件夹下的图形文件a.jpg的语句为 ()A.Picturel.Text= LoadPicture(a”.jpgd: ”)B. Picturel.
5、Picture =LoadPicture(d: pica.jpg)C. Picturel. Picture =LoadPicture(d:pica.jpg)D. Picturel.Picture =Load( ” dl pica.jpg ”)装入图片框Picturel中，所使用二、填空题（每小题2 分，共20 分）16.在 VB 中，要想获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按_键17表达式8+13 Mod 2*4+3的值是 _18.全局变量在整个应用程序中有效，一般在标准模块中使用_，语句声明。19若窗体 Forml 左上角坐标为(0，600)，右下角的坐标为（8
6、00- 200）。则 X 轴的正向向 _，Y 轴的正向向 _。20将图片框的AutoSize 属性设置成 _时可使图片框根据图片调整大小。21 Winsock 控件主要用来编制基于_或 _协议的网络应用程序。22. VB 中 Access 敷据库属于 _（说明是哪种数据库类型）23 VB 应用程序与数据库进行通信的主要机制称为_24设某个程序中要用到一个二维散组，要求数组名为A类型为字符串类型，一维下标从l 到 3，第二维下标从-1 到 2则相应的数组声明语句为_25列表框控件中最后一项的序号等于ListCount 属性减 _三、阅读程序题（共25 分）第阅读下列程序并写出程序运行结果26(6
7、 分)Private Sub Command1_Click()Dim Suml As Integer, Sum2 As IntegerSuml = O ： Sum2=2For i =1 T0 2For j=1 To iSum2=Sum2*jNext jSuml = Suml+Sum2Next iPrint SumlEnd Sub写出程序运行时单击Commandl 按纽后， Forml 上的输出结果27（ 6 分）Privaie Sub Commandl_Click()Do While x50x=(x+1)*(x+2)n=n+lLoopTextl. Text = Str(n)Text2. Tex
8、t = Str(x)End Sub写出程序：运行时单击28（6 分）Private Sub Form_Click()a =3：b=4PrintA= ； a； B=; bCall mult(a)Print A=;a ； B=; bEnd SubPrivate Sub mult(x)x=3+xb=5+bEnd SubCommandl按纽后textl和text2上的输出结果。写出程序运行后，单击窗体时的输出结果29.（ 7 分）Privale Sub CommandI_CLick()Static b As IntegerDim l As IntegerI=1Dob=b+lI=I+lLoop Whil
9、e I=4Textl. Text=bText2. Text=IEnd Sub写出程序运行时两次单击四、完善程序题（共10 分）Commandl按纽后，文本框Text1、 Text2上的输出结果30假设在C 盘根目录中存在一个名为“学生MDB 的 Access 数据库，其中包含一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1 所示。现在要求利用 VB 编写一个数据库记录增加程序， 程序的运行界面如图 2 所示，基本逻辑是：分别在 Textl、Text2、Text3 中输入学号、姓名、籍贯信息，然后点击“保存”按钮 (Commandl) 将该记录添加到数据库中。如果数据库中已经存
10、在相同的学号信息，则程序应提示用户 “记录已存在， 请重新输入” ，并将焦点置于 Textl 上，等待用户修改或重新输入。当点击退出按钮 (Command2) 时关闭本窗体。程序如下，请补充完整Private Sub Form_Load()1 Provider = Microsoft. Jet. OLEDB.4.0 ；Dataource = 学生 .mdb； Persist Security Info= FalseEnd SubPrivate Sub Commandl_Click()Dim strSQL As String23= ADOcnDim ADOrs As New RecordsetA
11、DOrs. ActiveConnection = ADOcnstrSQL=Select * from学生基本情况Where学号 = + Textl+ ADOrs. Open4lf Not ADOrs EOF ThenMsgBox 学号已经存在，请重新输入！， vbOKOnly ， 信息提示ElseTextl. SetFocusstrSQL=Insert Into学生基本情况（学号，姓名，籍贯）”srrSQL=strSQL+Values （ +Textl+ ， +Text2+,+Text3+5Execute strSQL） MsgBox 添加成功！ ,vbOKOnly, 信息提示 End IfE
12、nd SubPrivate Sub Command2_Click()Unload MeEnd Sub五、编写程序题（共15 分）31.编写简单的工资计算程序，要求在 Textl、Text2、 Text3 中分别输入基本工资、奖金、扣款，单击“计算”按钮 ( Commandl) 后，首先计算。应发工资” (Text4) ，然后根据“应发工资”计算个人所得税 (Text5)最后计算出实发工资 (Text6)(1) 应发工资 =基本工资 +奖金 -扣款(2) 个人所得税的计算规则假设为：当应发工资在1000 元以内部分（含1000 元）不扣所得税，当应发工资大干1000，但小于等于4000 元时，超
13、过1000 元的部分按15%计算所得税。当应发工资大于4000按 20%扣税，程序运行结果如图3 所示。 Visual Basic 程序设计（二）试题答案及评分标准一、单项选择题（每小题2 分，共 30 分）1 D2C 3B4B5 C6 D7 B8 C 9C10 B11.A12.C13.D14 B15B二、填空题（每小题2 分，共 20 分）16 F117 1618Public19右上20True21TCP/IPUDP22本地数据库23数据库引擎24Dim A(l TO 3,-1 TO 2) As String25 1三、阅读程序置l 共 25 分）26.（ 6 分）627.（ 6 分）318
14、228,（ 6 分）A=3B=4A=6B=429（7 分）10 520 5.四 .完善程序题 (共 10 分 )30. 1 ADOcn. Open2 Dim ADOrs As New Recordsei3 ADOrs, ActiveConnection4 strsoL5 ADOcn.五 .编写程序题 (共 15 分 )Private Sub Commandl_Click()Text4=Val(Text1)+Val(Text2) - Val(Text3)If Val(Text4) 1000 And Val(Text4) =4000 ThenText5= (Val(Text4) - 1000) *
15、 0.15ElseText5= Val(Text4) * 0.2End lfText6= Val(Text4) - Val(Text5)End SubPrivate Sub Command2_Click()Unload MeEnd Sub下午 13 ：00 17 ：00B实行不定时工作制的员工，在保证完成甲方工作任务情况下，经公司同意, 可自行安排工作和休息时间。31 2 打卡制度3.1.2.1公司实行上、下班指纹录入打卡制度。全体员工都必须自觉遵守工作时间，实行不定时工作制的员工不必打卡。3.1.2.2打卡次数：一日两次，即早上上班打卡一次，下午下班打卡一次。3.1.2.3打卡时间：打卡时间
16、为上班到岗时间和下班离岗时间；3.1.2.4因公外出不能打卡：因公外出不能打卡应填写外勤登记表, 注明外出日期、事由、外勤起止时间。因公外出需事先申请，如因特殊情况不能事先申请，应在事毕到岗当日完成申请、审批手续，否则按旷工处理。因停电、卡钟（工卡）故障未打卡的员工，上班前、下班后要及时到部门考勤员处填写未打卡补签申请表，由直接主管签字证明当日的出勤状况，报部门经理、人力资源部批准后，月底由部门考勤员据此上报考勤。上述情况考勤由各部门或分公司和项目文员协助人力资源部进行管理。3.1.2.5手工考勤制度3.1.2.6手工考勤制申请：由于工作性质，员工无法正常打卡（如外围人员、出差），可由各部门提
17、出人员名单，经主管副总批准后，报人力资源部审批备案。3.1.2.7参与手工考勤的员工，需由其主管部门的部门考勤员( 文员 ) 或部门指定人员进行考勤管理，并于每月26 日前向人力资源部递交考勤报表。3.1.2.8参与手工考勤的员工如有请假情况发生，应遵守相关请、休假制度，如实填报相关表单。3.1.2.9外派员工在外派工作期间的考勤, 需在外派公司打卡记录; 如遇中途出差 , 持出差证明 , 出差期间的考勤在出差地所在公司打卡记录;3.2 加班管理3.2.1定义加班是指员工在节假日或公司规定的休息日仍照常工作的情况。A现场管理人员和劳务人员的加班应严格控制，各部门应按月工时标准，合理安排工作班次
18、。部门经理要严格审批员工排班表，保证员工有效工时达到要求。凡是达到月工时标准的，应扣减员工本人的存休或工资；对超出月工时标准的，应说明理由，报主管副总和人力资源部审批。B因员工月薪工资中的补贴已包括延时工作补贴，所以延时工作在4小时（不含）以下的，不再另计加班工资。因工作需要，一般员工延时工作4小时至 8小时可申报加班半天，超过8小时可申报加班1天。对主管( 含) 以上管理人员，一般情况下延时工作不计加班，因特殊情况经总经理以上领导批准的延时工作，可按以上标准计加班。3.2.2.2员工加班应提前申请，事先填写加班申请表，因无法确定加班工时的，应在本次加班完成后3 个工作日内补填加班申请表。加班
19、申请表经部门经理同意，主管副总经理审核报总经理批准后有效。加班申请表必须事前当月内上报有效，如遇特殊情况，也必须在一周内上报至总经理批准。如未履行上述程序，视为乙方自愿加班。3.2.2.3员工加班，也应按规定打卡，没有打卡记录的加班，公司不予承认；有打卡记录但无公司总经理批准的加班，公司不予承认加班。3.2.2.4原则上，参加公司组织的各种培训、集体活动不计加班。3.2.2.5加班工资的补偿：员工在排班休息日的加班，可以以倒休形式安排补休。原则上，员工加班以倒休形式补休的，公司将根据工作需要统一安排在春节前后补休。加班可按1：1的比例冲抵病、事假。3.2.3加班的申请、审批、确认流程3.2.3
20、.1加班申请表在各部门文员处领取，加班统计周期为上月26 日至本月25 日。3.2.3.2员工加班也要按规定打卡，没有打卡记录的加班，公司不予承认。各部门的考勤员( 文员 )负责加班申请表的保管及加班申报。员工加班应提前申请，事先填写加班申请表加班前到部门考勤员 ( 文员 ) 处领取加班申请表，加班申请表经项目管理中心或部门经理同意，主管副总审核，总经理签字批准后有效。填写并履行完审批手续后交由部门考勤员(文员)保管。3.2.3.3部门考勤员（文员）负责检查、复核确认考勤记录的真实有效性并在每月27日汇总交人力资源部，逾期未交的加班记录公司不予承认。从群体上看，中专毕业生的劣势是阅历较少、知识
21、层次相对不高;优势是学校专业设置大多贴近市场实际、贴近一线需要，且中专毕业生年青、肯吃苦、可塑性强。从个体来说，每位毕业生的优势与长项又各不相同，如有相当一部分毕业生动手操作能力较好 ; 有些学生非常上进，上学期间还同时参加了职业资格考试或自学考试。所以，在实事求是，不弄虚作假的前提下，要特别注意扬长避短，从而在竞争中取得优势，打动聘任者。没有重点和章法的写作易使文章显得头绪不清、条理紊乱。非常热爱市场销售工作，有着十分饱满的创业激情。在两年从事现磨现煮的咖啡市场销售工作中积累了大量的实践经验和客户资源。与省内主要的二百多家咖啡店铺经销商建立了十分密切的联系，并在行业中拥有广泛的业务关系。 在
22、去年某省的咖啡博览会上为公司首次签定了海外的定单。能团结自己的同事一起取得优异的销售业绩。合理分配自我介绍的时间前文说过，自我介绍一般也就持续1 3 分钟，所以应聘者得合理分配时间。 常规安排是： 第一段用于表述个人基本情况，中段重点谈自己的工作经历或社会实践经验， 最后展望下自己的职位理想。但如果自我介绍被要求在1 分钟完成， 应聘者就要有所侧重， 突出最有料的一点。 在实践中， 有些应聘者试图在短短的时间内吐露自己的全部经历，而有些应聘者则是三言两语就完成了自我介绍，这些都是不明智的做法。突出和应聘职位相关的信息自我介绍的内容不宜太多的停留在诸如姓名、教育经历等部分上，因为面试官可以在应聘
23、者的简历上一目了然地看到这些内容。应聘者应该在自我介绍时选择一至两项跟自己所应聘的职位相关的经历和成绩作简述，以证明自己确实有能力胜任所应聘的工作职位。一个让人更有机会在面试中出彩的方法是在做一段自我介绍后适当停顿。比如在 “我曾在大学期间组织过有2000 人参与的大型校园活动”之后的停顿可能会引导面试官去问 “那是什么样的活动呢？”，这样做的目的是为面试的深入打下基础。一切以事实说话在证明自己确实有能力胜任所应聘的工作职位时，应聘者可以使用一些小技巧，如介绍自己做过的项目或参与过的活动来验证某种能力，也可以适当地引用老师、同学、同事等第三方的言论来支持自己的描述。而这一切的前提是以事实为基础，因为自吹自擂一般是很难逃过面试官的眼睛的，一旦被发现掺假，基本预示着应聘者将被无情 “秒杀 ”。2年 5 月 至今：担任某咖啡茶品配送服务部的市场部业务员。主要负责与经销商签定经销合同、办理产品的包装、运输、保险、货款结算、售后产品跟踪、市场反馈以及开拓新的销售渠道等。 负责公司新业务员的培训， 在实际工作中具体指导和协调业务员的销售工作，并多次受到公司的表扬。