2. 计算机
  3. 阅读以下说明及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”编号，选手可

admin2009-02-15  84
问题 阅读以下说明及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://www.kaotiyun.com/show/eEjZ777K
本试题收录于： 程序员下午应用技术考试题库软考初级分类
0

程序员下午应用技术考试

软考初级

相关试题推荐
随机试题
最新回复(0)