下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、姓名:_ 班级:_ 学号:_-密-封 -线- 初级程序员填.空考试卷模拟考试题考试时间:120分钟 考试总分:100分题号一二三四五总分分数遵守考场纪律,维护知识尊严,杜绝违纪行为,确保考试结果公正。1、【说明】某学校举办了一场奥运知识竞赛,参加竞赛的选手为200名,1200为选手编号。竞赛时间为9:0011:00。8道竞赛题目依次从“a”“h”编号,选手可按任意次序答题,每完成一道题目,可立即提交答案。若答案正确(y),则选择其他题目进行解答,否则,可继续做该题目或选择其他题目进行解答,直至竞赛结束。选手提交答案的情况及判定结果由专人即时录入,录入数据包括提交答案的时间、选手编号、题目编号(
2、ah)、是否正确(y/n)等。对竞赛情况进行统计和排名的规则如下:1若选手x在竞赛时提交的题目p解答正确,则解答该题目所用时间计算如下:解答题目p的用时=提交题目p正确的时间-竞赛的开始时间+罚时,罚时=提交题目p错误解答的次数20例如:表1中14号选手在10:27提交了题目a的正确解答,因此该选手正确解答该题目所用时间p为87分钟,由于他在09:37和09:52两次提交了题目a的错误解答,因此罚时为(220)分钟=40分钟,所以14号选手解答题目a的用时=(87+ 40)分钟:127分钟。2已经提交正确答案的题目再次提交时不再计算。3竞赛结束时,选手的总用时为所有解答正确的题目用时累加所得,
3、解答不正确的题目不计时。4排名时,完成题目数量多者排名靠前;若完成的题目数相同,则用时少者排名靠前;若完成的题目数和所用时间均相等,则名次相同;完成题目数为。的选手不参加排名。本应用程序的运行窗口如图3所示。窗口中的两个文本框为txt_time和txt_player,分别用于录入提交答案的时间和选手编号。组合列表框combo1提供题目编号(ah),录入时从中选择。检查框chk_yn用于输入解答是否正确信息。当单击“确定”按钮(cmd_comfirm)时,录入的提交信息加入列表框list1中,排名情况在列表框list2输出。单击“关闭”按钮时退出应用程序。在开发过程中,需要编写的部分程序代码如下
4、:【程序】private type infono as integer 选手编号num as integer 完成题目数量time as integer 完成题目的总用时d(8)as integer d用于记录提交第i个题目错误答案的次数a(8)as boolean a用于记录第i个题目是否已经提交正确答案end typedim r(201)as info rj用于统计编号为j的选手提交答案的情况dim maxlndex as integer maxlndex记录提交答案的选手中编号最大者private sub form_load( )for i = 1 to 8combo1. addltem
5、 chr(1)nextcombo1. text = combo1. list(0):txt_time.text =“ “:txt_player.text =“ “for i = 1 to 200r(i) num=0:r(i).time =0:r(i).no=iforj = 1 to 8r(i).d(j) =0:r(i).a(j) =falsenext j,iend subprivate sub cmd_confirm_click( )dim h, m, k, time as integer, ch, pass, s1 as stringk = instr(txt_time, text,”: “
6、):if k2 then goto error1h = val(left(txt_time. text, k-1):m = val(mid(txt_time. text, k+1)if h11 or h=11 and m0 or m=60 then goto errorltime=(2)计算答题时间,以分钟为单位if txt_plater, text1 or txt_player, text200 then goto errorlch=(3)pass = iif(chk_yn.(4)=0,”n” ,”y”)s1 = txt_time. text+space(4) + txt_player. t
7、exts1 = s1 + space(10 - len(txt_player. text)+ch+space(8)+passlist1. additem s1k = val(txt_player. text) k为选手编号r(k). no =k 编号为k的选手的提交信息记录在下标为k的数组元素中if kmaxindex then maxindex = km =asc(ch)-asc(“a”)if pass ”y” then 编号为k的选手提交第m个题目的解答不正确r(k).d(m)=r(k).d(m)+1else if r(k).a(m) true then 已经提交正确的题目的解答不再计算r(k).a(m) =true:r(k).num=r(k).num+1r(k).time = r(k). time +(
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 公路基础设施数据治理规范
- 高层建筑暖通系统设计方案
- 2026年安庆潜山天柱山人才服务有限公司公开招聘劳务派遣人员10名考试参考题库及答案详解
- 2026年宁夏回族自治区石嘴山市工会人员招聘笔试备考题库及答案详解
- 永新县文物保护中心招聘公益性岗位延期笔试参考题库及答案详解
- 2026年芜湖市镜湖区工会人员招聘考试备考题库及答案详解
- 2026中国移动九天人工智能科技公司全球AI人才招募笔试备考试题及答案详解
- 2026年陕西省渭南市工会人员招聘笔试备考试题及答案详解
- 2026年郑州市金水区街道办人员招聘笔试备考题库及答案详解
- 2026年淄博市张店区工会人员招聘笔试参考试题及答案详解
- 2026天津石油职业技术学院招聘20人笔试备考题库及答案详解
- 2026年成都高新投资集团有限公司下属高新发展、社事投资公司公开招聘22人笔试参考题库及答案详解
- 2026年6月青少年软件编程Scratch等级考试一级真题(含答案)
- 2026杭州市市级机关事业单位招聘编外人员综合基础知识和综合应用试题附答案
- 2026年广东安全员b证考试题及答案
- 2026江苏连云港东海县事业单位招聘工作人员14人重点基础提升(共500题)附带答案详解
- 2026年高考语文北京卷试卷附答案
- 2026年货运场站运营公司安全工作计划及车辆引导措施
- 2025四川省水电投资经营集团普格电力有限公司员工招聘8人笔试历年备考题库附带答案详解
- (正式版)DB44∕T 2829-2026 高处作业吊篮安装检验评定标准
- 机加工中心刀具寿命管理规范
评论
0/150
提交评论