【说明】 某学校举办了一场奥运知识竞赛，参加竞赛的选手为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

Asc("A")+i-A,或FD+i,及其等价形式
(B)(h-I) * F0+m,及其等价形式
(C)Combol.Text (D)Value (E)time+R(k).d(m)*B0
其中m可表示为Asc(ch)-Asc("A")或Asc(ch)-FE,k可表示为R(R(k).no)

【说明】 某学校举办了一场奥运知识竞赛，参加竞赛的选手为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

Asc("A")+i-A,或FD+i,及其等价形式
(B)(h-I) * F0+m,及其等价形式
(C)Combol.Text (D)Value (E)time+R(k).d(m)*B0
其中m可表示为Asc(ch)-Asc("A")或Asc(ch)-FE,k可表示为R(R(k).no)

【说明】 某学校举办了一场奥运知识竞赛，参加竞赛的选手为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

Asc("A")+i-A,或FD+i,及其等价形式

试题五（15 分，每空3 分） 阅读以下应用说明及Visual Basic 程序代码，将应填入 (n) 处的字句写在答题纸的对应栏内。 [应用说明] 某单位举办了一场知识竞赛，有300 名选手参加竞赛，依次从1～300 为选手编号。竞赛时间为9:00～11:00。8 道竞赛题目依次从“A”～“H”编号，选手可按任意次序答题，每完成一道题目，可立即提交答案。若答案正确(Y)，则选择其他题目进行解答，否则，可继续做该题目或选择其他题目进行解答，直至竞赛结束。 选手提交答案的情况及判定结果由专人即时录入，录入数据包括提交答案的时间、选手编号、题目编号(A～H)、是否正确(Y/N)。 对竞赛情况进行统计和排名的规则如下： 1．若选手X 在竞赛时提交的题目P 解答正确，则解答该题目所用时间如下计算： 解答题目P 的用时＝提交题目P 正确的时间 － 竞赛的开始时间＋罚时 罚时＝提交题目P 错误解答的次数×20 例如：设14 号选手在10:27 提交了题目A 的正确解答，则该选手正确解答该题目所用时间为87 分钟，由于他在09:37 和09:52 两次提交了题目A 的错误解答，因此罚时为2×20＝40分钟，所以14 号选手解答题目A 的用时＝87+40=127（分钟）。 2．已经提交正确答案的题目再次提交时不作计算。 3．竞赛结束时，选手的总用时为所有解答正确的题目用时累加所得，解答不正确的题目不计时。 4．排名时，完成题目数量多者排名靠前；若完成的题目数相同，则用时少者排名靠前；若完成的题目数和所用时间均相等，则名次相同；完成题目数为0 的选手不参加排名。 本应用程序的运行窗口如下图所示： 窗口中的两个文本框为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]用于记录提交第i 个题目错误答案的次数 a(8) As Boolean ’a[i]用于记录第i 个题目是否已经提交正确答案 End Type Dim R(301) As Info ’R[j]用于统计编号为j 的选手提交答案的情况 Dim MaxIndex As Integer ’MaxIndex 记录提交答案的选手中编号最大者 Private Sub Form_Load（　） For i = 1 To 8 Combo1.AddItem Chr( (1) ) Next Combo1.Text = Combo1.List(0): Txt_time.Text = "": Txt_player.Text = "" For i = 1 To 300 R(i).num = 0: R(i).time = 0: R(i).no = i For j = 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 error1 time = (2) ’计算答题时间,以分钟为单位 If Txt_player.Text < 1 Or Txt_player.Text > 300 Then GoTo error1 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 ElseIf 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

试题七（15 分，每空3 分） 阅读以下应用说明及Visual Basic 部分程序代码，将应填入 (n) 处的字句写在答题纸的对应栏内。 [应用说明] 设一个简单的“通讯录”存储在一个ACCESS 类型的数据库表中，包括姓名、电话和email三个字段。下面的应用程序实现对“通讯录”数据库表中的记录进行增加、删除及修改处理，其运行界面如下： （1）数据控件(data1)与“通讯录”数据库表相连接，用户可通过“”和“”按钮指定表中的当前记录。 （2）文本框Txt_name、Txt_phone 和Txt_email 分别与数据库表中的“姓名”、“电话”和“email”字段绑定，用于显示当前记录的内容。 （3）应用程序启动时，“确定”按钮(Cmd_ok)和“取消”按钮（Cmd_cancel）不可操作,文本框中显示表中的第一条记录，这时文本框处于不可操作状态。 （4）单击“增加”按钮（Cmd_add）或“修改”按钮（Cmd_modify）后，方可以编辑记录内容，同时“增加”、“删除”、“修改”和“退出”按钮变为不可操作状态。“增加”和“修改”操作需通过“确定”和“取消”按钮确认。 （5）单击“删除”按钮（Cmd_del）后，弹出对话框，再单击“确定”按钮，当前记录被删除。 [程序代码] Private Sub enableop(isEnabled As Boolean) Txt_name.Enabled = isEnabled: Txt_phone.Enabled = isEnabled Txt_email.Enabled = isEnabled Cmd_ok.Enabled = isEnabled: Cmd_cancel.Enabled = isEnabled Cmd_add.Enabled = Not isEnabled: Cmd_del.Enabled = Not isEnabled Cmd_end.Enabled = Not isEnabled: Cmd_modify.Enabled = Not isEnabled End Sub Private Sub Form_Load（　） Call enableop(False) Data1.Refresh If Data1.Recordset.RecordCount = 0 Then Cmd_del.Enabled = False: Cmd_modify.Enabled = (1) End If End Sub Private Sub Cmd_add_Click（　） ’单击“增加”按钮的代码 Call enableop( (2) ) Data1.Recordset.AddNew ’在数据库表中添加一个新记录 Txt_name. (3) End Sub Private Sub Cmd_del_Click（　） ’单击“删除”按钮的代码 On Error GoTo error3 ans = MsgBox("确定删除吗？", vbYesNo + vbInformation, "操作提示!") If (ans = vbYes) Then Data1.Recordset. (4) Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Refresh End If Exit Sub error3: MsgBox Err.Description, vbOKOnly, "错误提示!" End Sub Private Sub Cmd_ok_Click（　） ’单击“确定”按钮的代码 On Error GoTo error1 Data1.Recordset. (5) Call enableop(False) Exit Sub error1: MsgBox Err.Description, vbOKOnly, "错误提示!" Data1.UpdateControls Call enableop(False) End Sub ’ “修改”和“取消”按钮的程序代码(略)

下列代码的执行结果是( )。
public class Test
public static void main(String[]args)
int[]x=0,1,2,3;
forint i=0;i＜3;1+=2)
try
system.out.println(x[i+2]/x[i]+x[i+1]);
catch(ArithmeticException e)
System.out.println("error1");
catch(Exception e)
System.out.println("error2");

A:error1 B:error2 C:error1
orror2 D:2
error2

下列程序的运行结果是（）
　　public class test
　　private String[] data="10","10.5";
　　public void fun（　）
　　double s=0;
　　for(int i=0;i＜3;i++)
　　try
　　s=s+Integer .parseInt(data[i])；
　　catch(Exception e)
　　System.out.print("error1:"+data[i])；
　　
　　
　　
　　public static void main(String[]args)
　　try
　　testd=new test（　）；
　　d.fun（　）；
　　catch(Exception e)
　　System.out.printIn("error2")；
　　
　　
　　
　　

A:error1:10.5 B:error2 C:error1:10.5 error2 D:以上都不对

下列代码的执行结果是______。
public class Test
public static void main(String[]args)
int[]x=0, 1, 2, 3;
for(int i=0;i＜3;i+=2)
try
System.out println(x[i+23/x[i]+x[i+1]);
catch(ArithmeticException e)
System.out.println("error1");
catch (Exception e)
System.out.println("error2");

A:error1 B:error2 C:error1 D:2
error2 error2