设计一个算法，计算导弹射程之间的最大距离差。具体程序功能如下：在文本框中输入各枚导弹的射程（单位：千公里），数据之间用逗号分割，以-1结尾。单击按钮，在标签框输出结果。例如在Text1中输入“15，9，1，2，3，8，7，-1”，单击“计算”按钮，输出结果为“14”。实现该算法的VB程序如下，界面如图所示，回答下列问题：

（1）为实现该程序，在窗体中至少需要使用_______类不同的控件对象（填数字）。
（2）算法具体代码对应如下，请在横线处填入合适的语句代码，使程序完整。
Private Sub Command1_Click()
Dim a(100) As Integer
Dim max As Integer: Dim min As Integer
Dim c As Integer: Dim i As Integer: Dim j As Integer: Dim Total As Integer
Dim s As String
s = Text1.Text
i = 1 : begin = 1 : c = 0
Do While i <= Len(s)

k = Mid(s, i, 1)

If k = , Then

t = ①_________

c = c + 1
a(c) = Val(t)
begin =②__________
End If
i = i + 1
Loop
   ' 加框语句
min = a(1)
For i = 1 To c
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next i
Text2.Text = max - min
End Sub
（3）若删除程序中加框处语句，还是相同的输入数据，则计算出的最大差值为：_________。

某 VB 程序代码如下：
n=Val(Text1.Text)
sum=n
k=4
Do While n\k>0
sum=sum+n\k 
n=n\k+n mod k
Loop
Text2.Text=Str(sum)
在文本框 Text1中输入10，执行该程序段后，文本框 Text2中显示的值是（  ）

A．12

B．13

C．14

D．16

小王设计制作了一个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 程序段如下：
Dim y As Integer,s As String,r As Integer
y=Val(Text1．Text) '输入十进制数
s= ""
Do While y <> 0

Loop
Text2．Text = s   '显示出二进制数
方框中的代码由以下三部分组成：
① s =CStr(r) +s   'CStr(r)是将变量Rr内容转换为字符串（字符串前没有空格）
② y= y\2
③ r= y Mod 2
代码顺序正确的选项是

A．②③①

B．②①③

C．①③②

D．③②①

下面程序段是利用For语句给数组a赋值( )
For i= 1 To 5
a(i)=3*i+i^2
Next i
该程序段运行后数组元素a(5)的值为( )

A．40

B．15

C．28

D．18