1．给定n个不同的正整数（小于等于100），将它们分组，使得每组中任意两个数互质（它们的公约数为1）。按照以下算法对n个数进行分组：
n个正整数由文本框Text1输入，依次存储到a数组中，b（1 to 25）中存储100内的素数，c数组存储每一组的数字个数及对应数字，d数组存储每一组内所含的质因子，相同质因子只存储一次，最后分组情况显示在列表框List1中。
c数组初始状态：

组别	第一组							第二组							…
位置	0	1	2	3	4	5	6	7	8	9	10	11	12	13	…
值	0	0	0	0	0	0	0	0	0	0	0	0	0	0	…

d数组初始状态：

组别	第一组								第二组							…
位置	1	2	3	4	5	6	…	25	26	27	28	29	30	…	50	…
值	0	0	0	0	0	0	…	0	0	0	0	0	0	…	0	…

若第一个数据为70，确定分组的过程为：先查找第一组内所含的质因子中是否含有70的质因子，未找到，则c数组中表示第一组数据个数的值加1，并将70添加到c数组的第一组内，同时在d数组第一组中依次添加70所含的各个质因子。
c数组变化情况：

组别	第一组							第二组							…
位置	0	1	2	3	4	5	6	7	8	9	10	11	12	13	…
值	1	70	0	0	0	0	0	0	0	0	0	0	0	0	…

d数组变化情况：

组别	第一组								第二组							…
位置	1	2	3	4	5	6	…	25	26	27	28	29	30	…	50	…
值	2	5	7	0	0	0	…	0	0	0	0	0	0	…	0	…

尝试将第2～n个整数分组。在确定某数分组的过程中，若已有的组内不存在该数所含的质因子，则将其分到第一个符合条件的组；否则，将其分到新生成的组中。
分组完毕后数组存储情况如表。
c数组：

组别	第一组							第二组							…
位置	0	1	2	3	4	5	6	7	8	9	10	11	12	13	…
值	2	70	99	0	0	0	0	3	25	54	11	0	0	0	…

d数组：

组别	第一组								第二组							…
位置	1	2	3	4	5	6	…	25	26	27	28	29	30	…	50	…
值	2	5	7	3	11	0	…	0	5	2	3	11	0	…	0	…

按照上述要求编写一个VB程序，其运行界面如图所示。

（1）按照上述算法，若有“35、40、26、18、63、77”6个整数，至少分成 组（填具体数字）。
（2）请在横线处填入合适的代码。
Const n=6'数据个数
Dim a（1 To n） As Integer'存储原始数据
Dim b（1 To 25）As Integer'存储100以内的素数
Dim c（0 To （n+1）*n） As Integer'存储每一组的数字个数及对应数字
Dim d（1 To 25*n） As Integer'd数组存储每一组内含有的质因子
Private Sub Command1_Click
Dim t As Integer,i As Integer,j As Integer
Dim k As Integer,m As Integer,p As Integer
Dim y As Integer,zu As Integer
Dim st As String
For t=1 To n
k=1
i=1
Do While d（（k-1）*25+i）＜＞0
If a（t） Mod d（（k-1）*25+i）=0 Then
①
i=0
End If
i=i+1
Loop
m=（k-1）*（n+1）'每一组存储数字个数的所在位置
c（m）=c（m）+1
②
For j=1 To 25
If a（t） Mod b（j）=0 Then
③
i=i+1
End If
Next j
Next t
p=0
Do While c（p）＞0
st=““
For i=1 To c（p）
st=st+Str（c（p+i））
Next i
zu=p\（n+1）+1
List1.AddItem“第“+CStr（zu）+“组为：“+st
'Cstr的功能：将数值型转为字符串型
p=p+n+1
y=y+1
Loop
List1.AddItem“至少分：“+CStr（y）+“组“
End Sub
Private Sub Form_Load
'读取文本框Text1中的各个数据依次存储到数组a中，存储100以内的素数到数组b中，代码略
End Sub

2．学校里有一个水房，水房里一共装有 m 个水龙头可供同学们打开水，每个龙头每秒钟的供水量相等，均为 1。现在有 n 名同学准备接水，他们的初始接水顺序已经确定。将这些同学按接水顺序从 1到 n 编号，第i 位同学的接水量为 ai。接水开始时，1 到 m 位同学各占一个水龙头，并同时打开水龙头接水。当其中某名同学j 完成其接水量要求aj 后，下一名排队等候接水的同学 k马上接替 j 同学的位置开始接水。这个换人的过程是瞬间完成的，且没有任何水的浪费。即第j 位同学第 x 秒结束时完成接水，则第 k 位同学第 x+1 秒立刻开始接水。若当前接水人数 n不足 m,则只有 n个水龙头供水，其它m-n个水龙头关闭。
小王编写了一个“计算接水时间”的程序，功能如下：程序运行时，在文本框Text1中输入每位同学的接水时间（以逗号隔开），在文本框Text2中输入水龙头数，单击“计算”按钮Command1，在标签Label1中显示所有同学接水的总时间。程序运行界面如图所示。

请回答下列问题：
（1）如第图所示，若文本框Text1中输入的是“4，5，7，1，6，2，8”（不包括双引号），则所有同学接水的总时间为秒。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
Private Sub Command1_Click （　　）
Dim i As Integer,j As Integer,t As Integer
Dim m As Integer,n As Integer,ans As Integer
Dim s As String,ch As String
Dim a（1 To 100）As Integer,b（1 To 20）As Integer
s=Text1.Text
m=Val（Text2.Text）
n=1：t=0
For i=1 To Len（s）
ch=Mid（s,i,1）
If ch＞=“0“And ch＜=“9“Then
t=t*10+Val（ch）
Else
n=n+1
a（n-1）=t
t=0
End If
Next i
a（n）=t
For i=1 To m
b（i）=i
Next i
For i=1 To m-1
For ①
If a（b（j））＜a（b（j+1））Then t=b（j）：b（j）=b（j+1）：b（j+1）=t
Next j
Next i
If n＞m Then
For i=m+1 To n
②
For j=m To 2 Step-1
If a（b（j））＞a（b（j-1））Then t=b（j）：b（j）=b（j-1）：b（j-1）=t
Next j
Next i
End If
 ③
Label1.Caption=“共需要“+Str（ans）+“秒“
End sub

3．勇敢的张老师抓住了a,b,c,d四名犯罪嫌疑人，其中只有一人是小偷，经过审讯获得了消息如下
•a说我不是小偷
•b说c是小偷
•c说小偷肯定是d
•d说c胡说！
其中有三个人说的是实话，一个人说的是假话，张老师立刻编了一个程序推断谁是小偷。

（1）聪明的你帮忙推断一下，真正的小偷是谁 。
（2）横线处①处应该填入的语句为：
横线处②处应该填入的语句为：
横线处③处应该填入的语句为：