有如下VB程序段：
For i=2 To 8
Max=0
For j=1 To i-1
If a(i)>a(j) And f(j)>Max Then Max=f(j)
Next j
f(i)=Max+f(i)
Next i
数组f元素的初始值都为1，数组a的元素值为5,3,47,4,31,39,7,8，程序运行后f(6)的值为（   ）

A．1

B．2

C．3

D．4

有如下VB程序段：
s= Text1.Text
For i=1 To Len(s)
c= Mid(s，i，1)
If c>=“0”And c<=“9”Then

m=m+1

Else lf c>=“a”And c<=“z” Then

n=n+1

Else

t=t+1

End If
Next i
Label1.Caption = Str(t)
在文本框Text1输入“as674ER29，86Gu”(不包括双引号)，执行程序后，标签Labell显示：（  ）

A．4

B．6

C．7

D．8

（加试题）单循环赛制是一种较为公平合理的比赛制度，比赛过程中所有参赛队伍均能相遇一次。其秩序编排可采用“逆时针轮转方法”：数字1~n依次作为队伍编号，把编号按U型走向分成均等两边(若n为奇数，则在末尾增加编号0，使总数为偶数)，即可得到第一轮的比赛顺序，例如,5个队伍的比赛编排情况如图a所示；第二轮开始，固定编号1，其余编号均按逆时针方向移动一个位置，即为该轮比赛顺序；以后各轮比赛顺序以此类推，与编号0对阵的表示本轮轮空。

第一轮 1-0 2-5 3-4

第二轮 1-5 0-4 2-3

第三轮 1-4 5-3 0-2

第四轮 1-3 4-2 5-0

第五轮 1-2 3-0 4-5

 
小赵为此编写了VB程序，功能如下：在文本框Text1中输入参赛队伍数N，单击“编排”按钮command1，在列表框list1中输出每轮比赛顺序。程序运行效果如图所示。

实现上述功能的VB代码如下，
Private Sub Command1_Click()
Dim team(1 To 20) As String
Dim n As Integer, c As Integer, result As String
Dim i As Integer, j As Integer, temp As String
n = __________
For i = 1 To n
team(i) = Str(i)
Next i
c = n + n Mod 2
If c <> n Then team(c) = Str(0)
For i = 1 To n
result = ""
For j = 1 To c \ 2
result = result & team(j) & "-" & __________ & ";"
Next j
List1.AddItem "第" & Str(i) & "轮：" & result
temp = team(c)
For j = c To 2 Step -1
team(j) = _________
Next j
team(2) = temp
Next i
End Sub

阶乘是一种累乘积的计算方法，用“!”来表示阶乘，n!=1×2×3×……×n。如：8!=1×2×3×…×8=40320。小王为了求10! 的值，编写了如下Visual Basic代码：

Private Sub Command1_Click()

Dim i As Integer, s As Integer   ①

s = 0 ②

i = 1

Do While i < 10       ③   

i = i + 1
s = s * i ④

Loop

    Print s

End Sub

运行该程序，小王单击命令按钮Command1后，出现如第38题图对话框，已知序号①划线处的代码有错误，正确的代码应该是___________________________。经过代码修改后，小王重新运行该程序，单击命令按钮Command1，出现的结果是“0”， 那么序号_____（填①/②/③/④）划线处的代码有错误，正确的代码应该是________________。

下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是(　　)，文本框Text2中显示的内容是（  ）　
Private Sub Command1_Click( )
Dim i As Integer，c As Integer，n As Integer
c＝0:n＝10
For i＝1 To 10
If n Mod i＝0 Then c＝c+1
Next i
Text1.Text＝Str(n)
Text2.Text＝Str(c)
End Sub

A．10　4

B．3　10

C．4　10

D．10　3