首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。 【说明】 某学校举办了一场奥运知识竞赛,参加竞赛的选手为200名,1~200为选手编号。竞赛时间为9:00~11:00。8道竞赛题目依次从“A”~“H”编号,选手可
阅读以下说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。 【说明】 某学校举办了一场奥运知识竞赛,参加竞赛的选手为200名,1~200为选手编号。竞赛时间为9:00~11:00。8道竞赛题目依次从“A”~“H”编号,选手可
admin
2009-02-15
114
问题
阅读以下说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。
【说明】
某学校举办了一场奥运知识竞赛,参加竞赛的选手为200名,1~200为选手编号。竞赛时间为9:00~11:00。8道竞赛题目依次从“A”~“H”编号,选手可按任意次序答题,每完成一道题目,可立即提交答案。若答案正确(Y),则选择其他题目进行解答,否则,可继续做该题目或选择其他题目进行解答,直至竞赛结束。
选手提交答案的情况及判定结果由专人即时录入,录入数据包括提交答案的时间、选手编号、题目编号(A~H)、是否正确(Y/N)等。
对竞赛情况进行统计和排名的规则如下:
1.若选手X在竞赛时提交的题目P解答正确,则解答该题目所用时间计算如下:
解答题目P的用时=提交题目P正确的时间-竞赛的开始时间+罚时,罚时=提交题目P错误解答的次数×20例如:表1中14号选手在10:27提交了题目A的正确解答,因此该选手正确解答该题目所用时间P为87分钟,由于他在09:37和09:52两次提交了题目A的错误解答,因此罚时为(2×20)分钟=40分钟,所以14号选手解答题目A的用时=(87+ 40)分钟:127分钟。
2.已经提交正确答案的题目再次提交时不再计算。
3.竞赛结束时,选手的总用时为所有解答正确的题目用时累加所得,解答不正确的题目不计时。
4.排名时,完成题目数量多者排名靠前;若完成的题目数相同,则用时少者排名靠前;若完成的题目数和所用时间均相等,则名次相同;完成题目数为。的选手不参加排名。
本应用程序的运行窗口如图3所示。
窗口中的两个文本框为Txt_time和Txt_player,分别用于录入提交答案的时间和选手编号。组合列表框Combo1提供题目编号(A~H),录入时从中选择。检查框Chk_yn用于输入解答是否正确信息。当单击“确定”按钮(Cmd_comfirm)时,录入的提交信息加入列表框List1中,排名情况在列表框List2输出。单击“关闭”按钮时退出应用程序。
在开发过程中,需要编写的部分程序代码如下:
【程序】
Private Type info
No As Integer ′选手编号
Num As Integer ′完成题目数量
Time As Integer ′完成题目的总用时
d(8)As Integer ′d用于记录提交第i个题目错误答案的次数
a(8)As Boolean ′a用于记录第i个题目是否已经提交正确答案
End Type
Dim R(201)As info ′R[j]用于统计编号为j的选手提交答案的情况
Dim Maxlndex As Integer ′Maxlndex记录提交答案的选手中编号最大者
Private Sub Form_Load()
For i = 1 to 8
Combo1. Addltem chr((1))
Next
Combo1. Text = Combo1. List(0):txt_time.Text =" ":txt_player.Text =" "
For i = 1 To 200
R(i) num=0:R(i).time =0:R(i).no=i
Forj = 1 To 8
R(i).d(j) =0:R(i).a(j) =False
Next j,i
End Sub
Private Sub cmd_confirm_Click()
Dim h, m, k, time As Integer, ch, pass, s1 As String
K = Instr(txt_time, text,": "):If k<2 Then Goto error1
H = Val(Left(txt_time. Text, k-1)):m = Val(Mid(txt_time. Text, k+1))
If h>11 Or h=11 And m>0 Or m>=60 Then goto errorl
Time=(2) ′计算答题时间,以分钟为单位
If txt_plater, text<1 or txt_player, text>200 Then Goto errorl
ch=(3)
pass = IIf(chk_yn.(4)=0,"N" ,"Y")
s1 = txt_time. Text+Space(4) + txt_player. Text
s1 = s1 + Space(10 - Len(txt_player. Text))+ch+Space(8)+pass
List1. Additem s1
K = Val(txt_player. Text) ′k为选手编号
R(k). no =k ′编号为k的选手的提交信息记录在下标为k的数组
′元素中
If k>maxindex Then maxindex = k
M =Asc(ch)-Asc("a")
If pass< >"Y" Then ′编号为k的选手提交第m个题目的解答不正确
R(k).d(m)=R(k).d(m)+1
Else If R(k).a(m)< >True Then ′已经提交正确的题目的解答不再计算
R(k).a(m) =true:R(k).num=R(k).num+1
R(k).time = R(k). time +(5)
Call statistic ′调用过程statistic进行实时排名和输出
End If
Exit Sub
error1: MsgBox "录入信息有错误!" ,vbOKOnly
End Sub
选项
答案
(1)Asc("A")+i-1,或64+i,及其等价形式 (2)(h-9) * 60+m,及其等价形式 (3)Combol.Text (4)Value (5)time+R(k).d(m)*20 其中m可表示为Asc(ch)-Asc("A")或Asc(ch)-65,k可表示为R(R(k).no)
解析
(1)空是为组合列表框Combol提供题目编号(A~H),因此填入Asc("A")+i-1,或64+i,及其等价形式,
在Cmd_confirm_Click过程中,变量11用来表示提交题目时间的小时部分,m用来表示提交题目时间的分钟部分,因此(2)空即答题时间转换成分钟后,应是(h-9)*60+m。
题目编号是组合列表框Combol的当前文本,即(3)空填入Combol.Text。
变量pass用来表示答题是否正确,如果检查框Chk_yn未选中,则否(N),否则是(Y),检查框Chk_yn是否选择,由检查框Chk_yn的属性Value决定,因此空(4)填入Value。
根据题意:解答题目P的用时:正确答题时间+罚时(提交题目P错误解答的次数*20),而答题时间由变量time表示,提交题目P错误解答的次数由记录分量d(m)表示,因此,完成题目的总用时((5)空)是time+R(k).d(m)*20。
转载请注明原文地址:https://kaotiyun.com/show/eEjZ777K
本试题收录于:
程序员下午应用技术考试题库软考初级分类
0
程序员下午应用技术考试
软考初级
相关试题推荐
为查看Windows系统当前正在运行哪些应用程序或进程,可用(43)组合键实现。
数据清洗工作不包括(10)。
一条内存不常见的容量是(1)。
信息处理技术员教程共有318页,甲在第一天看了全书的1/6,第二天看了剩下的1/5,第三天应从第(32)页开始看。
数据分析工具的(13)________________特性是指它能导入和导出各种常见格式的数据文件或分析结果。
某单位的统计报表比较多,采用表号(报表的编号)的好处是______。
在统计学中,用来衡量一个样本中各个数据波动大小的量是______。
在Excel的A2单元格中输入:“=1=2”,则显示的结果是______。
删除Windows中某个应用程序的快捷方式,意味着(39)。
随机试题
患儿,男,12岁。因烧伤面积较大,症见壮热烦渴,躁动不安,口干唇焦,呼吸气粗,鼻翼扇动,大便秘结,小便短赤,舌红苔黄糙,脉弦数。其证候是()
患者男性,55岁,患慢性粒细胞白血病3年,恶液质,符合安乐死条件,医生使用药物结束其痛苦的生命,称为
挖掘城市道路工程竣工并清理后,应通知()检查验收。
在上海证券交易所上市的某只股票,2008年末的每股税后利润为0.20元,市场利率为2.5%。根据上述材料,回答下列问题:根据股票静态价格分析,投资者的行为选择是()。
“江山社稷”中的“稷”在古代是指()。
根据以下图表回答下列问题。2010年前4个月,江苏累计用电量最多的三个市依次是()。
我们经常可以在电视上看到小狗算算术的表演,聪明的小狗可以通过叫声来告诉大家计算的结果。实际上,小狗是通过观察观众的表情来进行表演的,这种心理学效应叫做()。
根据动机的唤醒理论,下面说法不正确的是()
Theroleofandtreatmentofthehousewife,whichisreallythemajorboneofcontentioninsocialsecurityreform,has,ofcour
A、Childrengettheirpersonalitiesonlyfromtheirparents.B、Parentsaffecttheirchildren’spersonalitiesverymuch.C、Childre
最新回复
(
0
)