读程序写结果题，具体题目内容如下：

●试题七

阅读以下说明及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．排名时，完成题目数量多者排名靠前；若完成的题目数相同，则用时少者排名靠前；若完成的题目数和所用时间均相等，则名次相同；完成题目数为0的选手不参加排名。

本应用程序的运行窗口如图3所示。

图3

窗口中的两个文本框为Txt_time和Txt_player，分别用于录入提交答案的时间和选手编号。组合列表框Combol提供题目编号(A～H)，录入时从中选择。检查框Chk_yn用于输入解答是否正确信息。当单击"确定"按钮(Cmd_comfirm)时，录入的提交信息加入列表框Listl中，排名情况在列表框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 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 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 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

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

阅读以下应用说明及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，分别用于录入提交答案的时间和选手编号。组合列表框Combol提供题目编号(A～H)，录入时从中选择。检查框Chk yn用于输入解答是否正确信息。当单击“确定”按钮(Cmd_comfirrn)时，录入的提交信息加入组合列表框Listl中，排名情况在列表框List2输出。单击“关闭”按钮时退出应用程序。

在开发过程中，需要编写的部分程序代码如下：程序代码

Private Tyve Info

no As Integer '选手编号

hum As Integer '完成的题目数量

time As Integer '完成题目的总用时

d(8) As Integer 'd[i]用于记录提交第i个题目错误答案的次数

a(8) As Boolean 'aC[i]用于记录第i个题目是否已经提交正确答案

End Type

Dim R(301) As Info 'R[j]用于统计编号为j的选手提交答案的情况

Dim Maxlndex As Integer 'MaxIndex记录提交答案的选手中编号最大者

Private Sub Form_Load()

For i=1 To 8

Combol.Addltem Chr( (1) )

Next

Combol.Text = Combol.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

Forj = 1 To 8

R(i).d(j) = 0: R(i).a(j) = False

Next j, i

End Sub

Private Sub Crud_confirm_Click()

Dimh, m, k, time As Integer, ch, pass, sl As String

k = InStr(Txt_time.Text, ":"): If k ＜ 2 Then GoTo errorl

h = Val(Left(Txt_time. Text, k - 1 )): m = Val(Mid(Txt_time. Text, k + 1 ))

Ifh ＞ 11 Or h = 11 And m ＞ 0 Or m ＞= 60 Then GoTo errorl

time=(2) '计算答题时间，以分钟为单位

If Txt player. Text ＜ 1 Or Txt_player. Text＞ 300 Then GoTo errorl

ch=(3) '取题目编号

pass = llf(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

Listl .Addltem s1

k = Val(Txt_player. Text) 'k为选手编号

R(k).no = k '编号为K的选手的提交信息记录在下标在K的数组元素中

If k ＞ Maxlndex Then Maxlndex = k

m = Asc(ch) - Ase("A")

Ifpass ＜＞ "Y" Then '编号为K的选手提交第m个题目的解答不正确

R(k).d(m) = R(k).d(m) + 1

Elself R0(k).a(m) ＜＞ True Then '已经提交正确的题目的解答不再计算

R(k).a(m) = True: R(k).num = R(k).num + I

R(k).time = R(k).time +(5)

Call Statistic '调用过程 Statistic 进行实时排名和输出

End If

Exit Sub

errorl: MsgBox "录入信息有误!", vbOKOnly

End Sub

●试题四

阅读以下说明和C代码，将应填入(n)处的字句写在答题纸的对应栏内。

【说明】

从文件IN．DAT中读取一篇英文文章存入到字符串数组XX中；请编写程序，其功能是：以行为单位把字符串中所有小写字母o左边的字符串内容移到该串的右边存放，然后把小写字母o删除，余下的字符串内容移到已处理字符串的左边存放。最后把已处理的字符串仍按行重新存入字符串数组XX中，最后调用函数WRITEDAT()，把结果XX输出到文件OUT5．DAT中。

例如：原文：You can create an index on any field．

you have the correct record．

结果：n any field．Yu can create an index

rd．yu have the crrect rec

原始数据文件存放的格式是：每行的宽度均小于80个字符，含标点符号和空格。

【函数】

#include "stdio．h"

#include "string．h"

#include "conio．h"

#include "ctype．h"

#include "mem．h"

unsigned char xx［50］［80］；

int maxline=0；

int readdat(void)；

void writedat(void)；

/*将题目要求的字符串中所有小写字母o左边的字符串内容移到该串的右边存放，即

将串中"最后"一个字母o左右两侧的内容互换*/

void StrOR(void)

{

inti；

char*p1，*p2，t［80］；

for(i=0；i<maxline；i＋＋)

{ t［0］=′/0′；

p2=xx［i］；

while(*p2)/*找到最后一个′o′*／

{if( (1) )p1=p2；

p2＋＋；

}

strcat(t，p1+1)；

*p1=′\\0′；

strcat(t，xx［i］)；

p1=xx［i］；

p2=t；

while(*p2)/*删去字符′o′*/

{if( (2) ) (3) =*p2；

p2＋＋；

}

(4) ；

}

}

void main()

{

clrscr()；

if(readdat())

{printf("Can't open the file IN.DAT!\\n")；

return；

}

StrOR()；

writedat()；

}

int readdat(void)

{

FILE*fp；

int i=0；

char*p；

if((fp=fopen("in．dat"，"r"))==NULL)

return 1；

while(fgets(xx［i］，80，fp)!=NULL)

{p=strchr(xx［i］，′\\n′)；

if(p)

*p=0；

i＋＋；

}

maxline= (5) ；

fclose(fp)；

return 0；

}

void writedat(void)

{FILE*fp；

int i；

fp=fopen("in．dat"，"w")；

for(i=0；i<maxline；i＋＋)

{printf("％s＼n"，xx［i］)；

fprintf(fp，"％s＼n"，xx［i］)；

}

fclose(fp)；

}

}

}

读下面内容，回答题。某公司2013年10月的余额试算平衡表如下： 单位：元 期末余额 会计科目 借方 贷方 库存现金 380 银行存款 65000 其他货币资金 1220 应收账款 36400 坏账准备 500 原材料 27400 库存商品 41500 材料成本差异 1900 固定资产 324500 累计折旧 14500 固定资料清理 5000 长期待摊费用 39300 应付账款 31400 预收账款 4200 长期借款 118000 实收资本 300000 盈余公积 1500 利润分配 8700 本年利润 50000 合计 535700 535700 补充资料： （1）长期待摊费用中包含将于半年内摊销的金额3000元。 （2）长期借款期末余额中包含将于一年到期归还的长期借款为50000元。 （3）应收账款有关明细账期末余额情况为： 应收账款——A公司贷方余额5000元 ——B公司借方余额41400元 （4）应付账款有关明细账期末余额情况为： 应付账款——C公司贷方余额39500元 ——D公司借方余额8100元 （5）预收账款有关明细账期末余额情况为： 预收账款——E公司贷方余额7200元 ——F公司借方余额3000元 （6）该月计提应收账款的坏账金额为500元。 要求：请根据上述资料，计算某公司2013年10月31日资产负债表中下列报表项目的期末数。

货币资金的期末数为（ ）元。 查看材料

A.65380

B.65000

C.66600

D.1600

读文章标题，去猜测文中具体内容是属于( )训练。

A.头脑风暴训练

B.自我设计训练

C.推测与假设训练

D.发散思维训练

读文章标题，去猜测文中具体内容属于（ ）。

A.头脑风暴训练

B.自我设计训练

C.推测与假设训练

D.发散思维训练

读文章标题，去猜测文中具体内容属于（ ）。

A.头脑风暴训练

B.自我设计训练

C.推测与假设训练

D.发散思维训练

读文章标题，去猜测文中具体内容属于（ ）。

A.头脑风暴训练

B.自我设计训练

C.推测与假设训练

D.发散思维训练

读文章标题，去猜测文中具体内容属于（ ）。

A.头脑风暴训练

B.自我设计训练

C.推测与假设训练

D.发散思维训练

ROM只读不写，RAM可读可写。（ ）

此题为判断题(对，错)。