创建一个良好的人际关系，首先你需要有真诚地（），而不是阿谀奉承，不是流于表面。
A.鼓励和赞美
B.交流与赞美
C.鼓励与支持
D.支持与互助
参考答案：A
如图所示，A、B、C、D、E、F为匀强电场中一个正六边形的六个顶点，A、B、C三点的电势分别为1V、2V、5V．则下列说法中正确的是（ ）
A．D、E、F三点的电势分别为7V、6V、3V
B．电荷量为1.6X10一19C的正点电荷在D点的电势能为1.12X10-18J
C．将电荷量为1.6X10-19C的正点电荷从E点移到F点，电场力做的功为3.2X10-19J
D．将电荷量为1.6X10一19C的负点电荷从F点移到A点，电荷的电势能减少了3.2X10-19J
试题五（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 Infono As Integer ’选手编号num As Integer ’完成的题目数量time As Integer ’完成题目的总用时d(8) As Integer ’d[i]用于记录提交第i 个题目错误答案的次数a(8) As Boolean ’a[i]用于记录第i 个题目是否已经提交正确答案End TypeDim R(301) As Info ’R[j]用于统计编号为j 的选手提交答案的情况Dim MaxIndex As Integer ’MaxIndex 记录提交答案的选手中编号最大者Private Sub Form_Load()For i = 1 To 8Combo1.AddItem Chr( (1) )NextCombo1.Text = Combo1.List(0): Txt_time.Text = "": Txt_player.Text = ""For i = 1 To 300R(i).num = 0: R(i).time = 0: R(i).no = iFor j = 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, ":"): If k < 2 Then GoTo error1h = 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 error1time = (2) ’计算答题时间,以分钟为单位If Txt_player.Text < 1 Or Txt_player.Text > 300 Then GoTo error1ch = (3) ’取题目编号pass = IIf(Chk_yn. (4) = 0, "N", "Y")s1 = Txt_time.Text + Space(4) + Txt_player.Texts1 = 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 k > MaxIndex Then MaxIndex = km = Asc(ch) - Asc("A")If pass <> "Y" Then ’编号为k 的选手提交第m 个题目的解答不正确R(k).d(m) = R(k).d(m) + 1ElseIf 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 Suberror1: MsgBox "录入信息有误!", vbOKOnlyEnd Sub
窗口中的两个文本框为Txt_time 和Txt_player，分别用于录入提交答案的时间和选手编号。组合列表框Combo1 提供题目编号(A～H)，录入时从中选择。检查框Chk_yn 用于输入解答是否正确信息。当单击“确定”按钮(Cmd_comfirm)时，录入的提交信息加入列表框List1 中，排名情况在列表框List2 输出。单击“关闭”按钮时退出应用程序。在开发过程中，需要编写的部分程序代码如下：[程序代码]Private Type Infono As Integer ’选手编号num As Integer ’完成的题目数量time As Integer ’完成题目的总用时d(8) As Integer ’d[i]用于记录提交第i 个题目错误答案的次数a(8) As Boolean ’a[i]用于记录第i 个题目是否已经提交正确答案End TypeDim R(301) As Info ’R[j]用于统计编号为j 的选手提交答案的情况Dim MaxIndex As Integer ’MaxIndex 记录提交答案的选手中编号最大者Private Sub Form_Load()For i = 1 To 8Combo1.AddItem Chr( (1) )NextCombo1.Text = Combo1.List(0): Txt_time.Text = "": Txt_player.Text = ""For i = 1 To 300R(i).num = 0: R(i).time = 0: R(i).no = iFor j = 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, ":"): If k < 2 Then GoTo error1h = 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 error1time = (2) ’计算答题时间,以分钟为单位If Txt_player.Text < 1 Or Txt_player.Text > 300 Then GoTo error1ch = (3) ’取题目编号pass = IIf(Chk_yn. (4) = 0, "N", "Y")s1 = Txt_time.Text + Space(4) + Txt_player.Texts1 = 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 k > MaxIndex Then MaxIndex = km = Asc(ch) - Asc("A")If pass <> "Y" Then ’编号为k 的选手提交第m 个题目的解答不正确R(k).d(m) = R(k).d(m) + 1ElseIf 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 Suberror1: MsgBox "录入信息有误!", vbOKOnlyEnd Sub