（加试题）小李同学碰到了一个数学问题：400个同学按顺序进行编号后围成一个大圈，按1至2报数（从1号位置开始），报到2的同学出列，以此一直循环报数下去，问最后剩下的那位同学他的编号是几号？

例如以6个同学编号为例，按1至2报数（从1号位置开始）依次出列的编号次序为2-4-6-3-1-5，那么最后剩下的就是编号为5的同学。

为了解决这个问题，小李用VB编写了如下程序尝试解决，其中列表list1显示出列的顺序编号，文本框text1中显示最后留下的编号，程序代码如下（测试界面如下图）：

Private Sub Command1_Click()
Dim s, f, t As Integer
Dim a(1 To 400) As Boolean
For i = 1 To 400
a(i) = False
Next i
s = 0
f = 0
i = 0
Do While f < 399
i = i + 1
If i = 401 Then i = （1）
If a(i) = False Then s = s + 1
If s = 2 Then  
（2）    
List1.AddItem Str(i)
a(i) = True
f = （3）  
End If
Loop
For i = 1 To 400
If （4）    Then text1.text=str(i)
Next i
End Sub
为实现程序功能，在程序划线处应填入的代码为：
（1）    _________________
（2）    _________________
（3）    _________________
（4）    _________________

用 VB 编写统计某字母开头的单词个数的程序。程序功能：在文本框 Text1 中输入待统计的句子，在文本框 Text2 中输入某字母，单击“统计”按钮Command1后，将结果显示在Label3中。输入要求：句子以“.”结束；单词之间用空格分隔，单词没有缩写或其他特殊形式。程序运行界面如图所示：

Private Sub Command1_Click()
Dim i As Integer, n As Integer,b As Integer
Dim c As String, t As String, s As String, f As Boolean
s = Text1.Text
t = Text2.Text
b = Len(s)
f = True
For i = 1 To b
c = Mid(s, i, 1)
If  ① Then
n = n + 1
② 
ElseIf c = " " Or c = "." Then
③          
Else
f = False
End If
Next i
Label3.Caption = "以" + t + "为开头的单词个数：" + Str(n)
End Sub
为实现上述程序，空格处应填入的代码是（   ）

A．① f And c = t ② f = False     ③ f = True

B．① f = False And c = t   ② f = False     ③ f = True

C．① c = t     ② f = True   ③ f = False

D．① f = True And c = t   ② f = True ③ f = False

   编写一个VB程序，功能如下：在文本框Text1中输入十六进制数（取值范围21至7E）, 单击按钮Command1进行转换，并将其对应的ASCII字符显示在文本框Text2中。程序运行界面如图所示。

（1）在设计程序界面时，要使按钮Command1上显示的文本为“转换”，应修改该按钮的______________属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer, n As Integer, d As Integer
   
Dim ch As String, h As String
d = 0
___________
For i = 1 To Len(h)
ch = Mid(h, i, 1)
If ch >= "A" And ch <= "F" Then
n = Asc(ch) - Asc("A") + 10
Else
n = ____________
End If
d = d + n * 16 ^ (Len(h) - i)
Next i
Text2.Text = Chr(d)
End Sub
（3）运行该程序，在文本框Text1中输入3F，单击“转换”按钮，则变量d的值是_______。

有如下所示VB程序段:

str1 = “ABCDEFGHIJKLMNOPQRSTUVWXYZ”

s = “”

For i = 1 To 4

t = Int(Rnd*10) + 1
If t Mod 2  =  i Mod 2 Then
t  = t + 1
Else
t = t + 2
End If
s = s + Mid(str1，t，1)

Next i

List1.AddItem s

执行该程序段后，列表框Listl中可能显示的内容是( )

A．BADC

B．BCDY

C．DEFG

D．CDEF

星期天，小杰来到动物园游玩，园内共有 N 个景点，每个景点都有一个标号，标号为 1 至 N｡现在只知道每个景点均有一条路连接下一个景点｡小杰想知道，根据这些道路信息，从其中一个景点出发，最后再回到出发景点，最多能游玩多少个景点｡
例如，共有 N=5 个景点，每个景点连接的下一个景点分别是2，4，5，5，2，

景点号	1	2	3	4	5
下一景点号	2	4	5	5	2

 
则他可以从 2 号景点出发，最多可以游玩 2号､4号､5号三个景点｡

程序代码如下：
Private Sub Command1_Click()
Dim a(1 To 100) As Integer , d(1 To 100) As Integer '数组 a 存放下一景点号
Dim jd As String, m As String,c As Integer,I As Integer
Dim s As Integer, p As Integer,k As Integer,ans As Integer
jd=Text1. Text+,
s=0 : c=0
For i=1 To Len(jd)
m=Mid(jd,i,1)
If m<>, Then
s=s∗10+Val(m)
Else
c=c+1 :a(c)=s : s=0    '含义
End If
Next i
ans=0:k=0
For i=1 To c    '枚举游览起点
For k=1 To c
d(k)=0
Next k
If d(i)=0 Then
p=i
Do While p<=c
If d(p)=0 Then
k=k+1 :d(p)=k
Else
y=    ①  '填空
If y>ans Then ans=y
k=0
Exit Do
End If
'改错
Loop
End If
Next i
Text2. Text=Str(ans)
End Sub
（1）若要实现显示“景点连接情况：”的 Text1 在程序运行时默认为空，则需要将 Text1 的_________________属性设置为空｡
（2）若有 7 个景点，且每个景点的连接情况为 6，3，7，2，7，5，4，那么小杰最多可以游玩的景点数是_________________｡
（3）程序代码中，有下划线的语句“a（c）= s”代表的含义为___________________________｡
（4）程序代码中，在①处填空：y=_____________________｡
（5）程序代码中，加框处代码有错，请改正：__________________________________｡