Text 3Vinton Cerf, known as the father of the Internet, said on Wednesday that the Web was

From the text, we learn that Vinton Cerf is _____.

［A］ seeking answers to questions about the Internet web

［B］ working on interplanetary Internet with collaboration of NASA

［C］ trying to commercialize the interplanetary Internet

［D］ exploring the possibility of establishing Internet network on Mars

。Private Sub form_ load Text1. Text = " " t = 1 for k = 10 To 6 Step -2 t= t* k Next k Text1. Text = tEnd Sub

A．在文本框中显示120

B．文本框中仍为空

C．在文本框中显示480

D．出错

在窗体上添加一个文本框Text 1，然后编写如下的Load事件过程，则程序运行结果为()。 Private Sub Form_Load0 Text1. Text="" Text1. SetFocus For k = 1 To 5 t=t*k Next k Text1.Text = tEnd Sub

A．在文本框中显示120

B．文本框中仍为空

C．在文本框中显示1

D．出错

在窗体上有一个文本框Text1，Text属性值为空，然后编写如下事件过程：Private Sub Text1_KeyPress(Key Ascii As Integer)Dim str As String, n As Integer str=UCase(Chr(Key Ascii)) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为()。

A．pp

B．pP

C．PP

D．Pp

阅读以下应用说明及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

在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：

Private Sub Command1_Click()

For I=1 To 4

X=3

For j=i To 3

For k=1 To 2

X=x+3

Next k

Next j

Next I

Text]．value=Str(x)

End Sub

打开窗体运行后，单击命令按钮，文本框Text1输出的结果是

A．6

B．12

C．18

D．21

阅读以下说明及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

在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim str As String，n As Integer

str=UCase(Chr(KeyAscii))

n=Len(str)。

Text1．Text=String(n，str)

End Sub

程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为（）。

A.pp

B.pp

C.pp

D.pp

为计算10+21+22+23+24+…+210的值，并把结果显示在文本框Textl中，若编写如下事件过程：

Private Sub Commandl_Click()

Dim a％，s％，k％

S=1

a=2

FOr k=2 To 10

a=a*2

S=S+a

Next k

Text1，Text=s

End Sub

执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是

A．把s=1改为s=0

B．把For k=2 TO 10改为For k=1 To 10

C．交换语句S=s+a和a=a*2的顺序

D．同时进行B.C两种修改

的值依次为0，1，2，3，4，5，6，7，8，9，10；移动三次后，各元素的值依次为8，9，10，0，1，2，3，4，5，6，7。

Private Sub Moveright(x()As Integer)

Dim i As Integer

Dim j As Integer

Dim k As Integer

i=UBound(x)

j=x(i)

For k=i To ______ Step-1

_______

Next k

x(LBound(x))=j

End Sub

Private Sub Command1_Click()

Dim a(10)As Integer

Dim i As Integer

Dim j As Integer

Dim k As Integer

For i=0 To 10

a(i)=i

Next i

j=Val(Text1.Text)

k=0

Do

k=k+1

Call MoveRight(a)

Loop Until k=j

For i=0 To 10

Print a(i)；

Next i

End Sub