小王设计制作了一个VB程序用于获取英文单词，然后背诵这些英文单词。为了使背诵英文单词更有效率，小王决定要显示的英文单词要由相同的英文字幕组成。
程序执行过程如下：程序运行后，先从数据库中获取单词，然后单击“分析单词”按钮，查找出由相回字母组成的英多单词保留下来显示，例如：获取的英文单词有：tea，pea，eta，eat，help，three，there。通过分析得知tea，eta和eat是由相同字母组成的英文单词，three和there是由相同字母组成的英文单词，则这五个英文单词保留下来，显示在label1中。如图所示：

VB部分程序如下，请将程序补充完整：
Dim wordcharsort (1 To 3000)As String＇存储每个英文单词字母排序后的内容
Dim words (1 To 3000) As string＇存储由相同字母组成的英文单词
Dim wordscount As Integer
Dim Getwords (1 To 3000) As String
Private Sub Form_Load()
＇从数据库中获取3000个英文单词存储到数组 Getwords中，代码略
End Sub
Private Sub Command1_ Click()

Dim key As Integer

For i=1 To 3000

Wordcharsort(i)=rank(Getwords(i))

Next i

For i=1 To 3000-1

k=i
For j=i+1 To 3000
If wordcharsort(j)<wordcharsort(k) Then k=j
Next j
If i<>k Then
t1= wordcharsort(i):wordcharsort(i)= wordcharsort(k):wordcharsort(k)=tl
___________
End if
Next i
For key=1 To 3000
wordscount= search( wordcharsort(key),key, wordscount)
Next key
For i=1 To wordscount
Label1. Caption= Labell. Caption+" "+words(i)
Next i
End sub
＇查找相同字母组成的英文单词，存储在 words数组中
Function search(a As String, b As Integer, c As Integer)As Integer

For i=1 To 3000

flag=False

If a=wordcharsort(i) And______ Then
For j=1 To c
If words(j)=Getwords(b) Then flag=True
Next j
If flag=False Then
Words(c)=Getwords(b)
__________
End if
End If
Next i
search=c
End function
＇对英文单词中的字母进行排序
Function rank(s As String)As String

Dim c(l To 45) As String

wordscount=1

For xk=1 To 45

c(xk)=" "

Next xk

For j=1 To Len(s)

c(j)= _______

Next j

For k=1 To Len (s)-1

For kk=Len(s) To k+1 Step-1

If Asc(c(kk))<Asc(c(kk-1))Then
tmp=c(kk)：c(kk)=c(kk-1)：c(kk-1)=tmp
End if
Next kk
Next k
For j=1 To Len(s)
rank -rank & c(i)
Next j
End function

数组a中存储的是左右交替上升的n个正整数，如下表所示：

a（1）	a（2）	a（3）	……	a（n —2）	a（n—1）	a（n）
3	25	38	……	55	31	12

 
依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click（）
Const n = 6
Dim a（1 To n）As Integer，flag As Boolean
Dim i As Integer，j As Integer，m As Integer，key As Integer
'读取一组正整数，按上述规则存入数组a中，代码略。
key = Val（Text1. Text）
i = 1
j = （n + 1） \ 2
flag = False
Do While i<j And Not flag '（1）
m = （i + j） \ 2
If key = a（m） Then
flag = True
ElseIf key< a（m） Then
j = m - 1
Else
i = m + 1
End If
Loop
If Not flag And j > 0 Then
m=n-i
If key = a（m） Then flag = True
End If
If flag Then
Text2. Text = Str（m）
Else
Text2. Text = "找不到"
End If
End Sub

程序修改题，每小题①②③④处有1处错误，找出并改正

（1）下列程序的功能是在文本框Text1中显示变量a和b的较大值。 a = 1：b = 2 ① If a > b Then ②   c = a Else ③ c = b End If ④ Text1.Caption = Str(c) 错误在______处，改为_______________。

（2）下列程序的功能是标签Label1中显示1+2+3+…+10值。 Dim s As Integer Dim i As Integer ① s = 0 ② For i =" 1" To 10 ③   s = i Next i ④ Label1.Caption = Str(s) 错误在______处，改为_______________。

 

请认真阅读并分析下面Visual Basic程序代码，按要求完成题目。
　  Dim a(1 To 6) As Integer
　  Dim n, i, j, k As Integer
　  Private Sub Command1_Click()
For i =" 1" To n - 1
　For j =   （1） To n
   　If a(i) < a(j) Then
k = a(i):  （2）  : a(j) = k
End If
Next j
Next i
For i =" 1" To n
    list2.AddItem Str(a(i))
Next I
　  End Sub
　Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val(    (3)  )
List1.AddItem Str(a(n))
Text1.Text = "": Text1.SetFocus
End If
End Sub
（1）程序中出现了text和list两种控件，其中list控件的中文名称是列表框，text控件的中文名称是 。
（2）在上述程序段中3处带序号的空白地方补充恰当的语句，完善程序。

有如下一段VB程序。
Private Sub Command1_Click()
Dim y As Long
Text1.Text = ""
y = f(3)
Label1.Caption = Str(y)
End Sub
Function f(n As Integer) As Long
Text1.Text =" Text1.Text" + Str(n)
If n <=" 1" Then
f = 1
Else
f =" f(n" - 1) + 2
End If
End Function
程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是（   ）

A．1

B．3

C．123

D．321