小王设计制作了一个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

有如下VB程序段：
For i =" 1" To 3
For j =" 1" To i
a =" a" + 1
Next j
Next i
该程序段运行后，语句“a =" a" + 1”执行的次数是（   ）

A．6

B．7

C．9

D．12

下列程序在调试时，文本框Text2不能输出最后的结果，已知①和②处存在唯一错误，请问错误出在 （填①或②）处，该处正确的语句应该为 。
Dim x As Integer, max As Integer
Dim a As Integer, b As Integer, c As Integer, t As Integer
x = Val(Text1.Text)    ' ①
a =" x" \ 100
b =" x" \ 10 Mod 10
c =" x" Mod 10
If a < b Then t =" a:" a =" b:" b = t
If a < c Then t =" a:" a =" c:" c = t
If b < c Then t =" c:" c =" b:" b = t
max =" a" * 100 + b * 10 + c
Text2.Text =max    ' ②

获取字符串中指定范围内的元素，可以通过字符编号来实现，字符编号有正向编号和反向编号。如字符串"ABCDEF"，字符A的正向编号为1、反向编号为-6，如下表：

"2：4"表示获取正编号"2"到"4”的字符串，即"BCD"，-5：-3、2：3、-5：4这三种编号范围也表示的是字符串"BCD"。

小王根据上述算法设计如下程序，在文本框Textl输入字符串，在文本框Text2和Text3中输入字符编号，单击"获取"按钮，在标签Labell中显示指定范围的字符串。当Text2中的编号位置在Text3中的编号位置之前，则输出正向字符串，反之输出逆向字符串。程序运行界面如图所示。

(1)用户单击命令按钮Command1时调用的事件处理过程为__________。(单选，填字母：

A．Command1/
B．Caption/	C．Click/	D．Commandl_Click)。

(2)实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String， ans As String
Dim a As Integer，b As Integer， n As Integer
s=Textl.Text：n= Len(s)： ans=""
a=Val(Text2.Text)： b = Val(Text3.Text)
If Abs(a)>n Or Abs(b)>nOra *b=0 Then
ans="输入范围有误"

Else

If a<0 Thena=a+n+ =1
Ifb<OThenb= ①_______
Ifa<=b Then
ans= ②_______

Else

Fori=a To b Step-1
ans=ans+Mid(s，i，1)
Next i

End If

End If

Label1.Caption=ans
End Sub
(3)若文本框Textl中输入的内容为"123456789"，文本框Text2和Text3中输入的内容分别为-3和5，单击"获取”按钮，标签框Labell中显示的内容是____________。

S=0
C=0
Do While C <100  
C=C+1
S=S+C
Loop
MsgBox (Str(C) + Str(S))
该程序的运行结果是（  ）

A．99 4950

B．1  4950

C．100 5050

D．101 5151