搜题请搜索小程序“爱下问搜题”
问题 单项选择题

汇票的收款人有三种填写方式，根据我国《票据法》的规定，其中凡签发( )的汇票无效。

A．限制性抬头

B．指示性抬头

C．持票人或来人抬头

D．记名抬头

答案

参考答案：C

多项选择题

对6～35KV电力变压器的（）故障及异常运行方式，应装设相应的保护装置。

A.绕组及其引出线的相间短路和在中性点直接接地侧的单相接地短路

B.过负荷

C.油面降低

D.变压器温度升高或油箱压力升高或冷却系统故障

E.绕组的匝间短路

F.中性点直接接地电力网中外部接地短路引起的过电流及中性点过电压

G.外部相间短路引起的过电流
查看答案
多项选择题

试题五（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
查看答案