給定n個不同的正整數(shù)（小于等于100），將它們分組，使得每組中任意兩個數(shù)互質(zhì)（它們的公約數(shù)為1）。按照以下算法對n個數(shù)進行分組：
n個正整數(shù)由文本框Text1輸入，依次存儲到a數(shù)組中，b（1 to 25）中存儲100內(nèi)的素數(shù)，c數(shù)組存儲每一組的數(shù)字個數(shù)及對應(yīng)數(shù)字，d數(shù)組存儲每一組內(nèi)所含的質(zhì)因子，相同質(zhì)因子只存儲一次，最后分組情況顯示在列表框List1中。
c數(shù)組初始狀態(tài)：

組別	第一組							第二組							…
位置	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數(shù)組初始狀態(tài)：

組別	第一組								第二組							…
位置	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	…

若第一個數(shù)據(jù)為70，確定分組的過程為：先查找第一組內(nèi)所含的質(zhì)因子中是否含有70的質(zhì)因子，未找到，則c數(shù)組中表示第一組數(shù)據(jù)個數(shù)的值加1，并將70添加到c數(shù)組的第一組內(nèi)，同時在d數(shù)組第一組中依次添加70所含的各個質(zhì)因子。
c數(shù)組變化情況：

組別	第一組							第二組							…
位置	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數(shù)組變化情況：

組別	第一組								第二組							…
位置	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個整數(shù)分組。在確定某數(shù)分組的過程中，若已有的組內(nèi)不存在該數(shù)所含的質(zhì)因子，則將其分到第一個符合條件的組；否則，將其分到新生成的組中。
分組完畢后數(shù)組存儲情況如表。
c數(shù)組：

組別	第一組							第二組							…
位置	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數(shù)組：

組別	第一組								第二組							…
位置	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個整數(shù)，至少分成

3

3

組（填具體數(shù)字）。
（2）請在橫線處填入合適的代碼。
Const n=6'數(shù)據(jù)個數(shù)
Dim a（1 To n） As Integer'存儲原始數(shù)據(jù)
Dim b（1 To 25）As Integer'存儲100以內(nèi)的素數(shù)
Dim c（0 To （n+1）*n） As Integer'存儲每一組的數(shù)字個數(shù)及對應(yīng)數(shù)字
Dim d（1 To 25*n） As Integer'd數(shù)組存儲每一組內(nèi)含有的質(zhì)因子
Private Sub Command1_Click

（　　）

（　?。?/div>
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
①

k=k+1

k=k+1

i=0
End If
i=i+1
Loop
m=（k-1）*（n+1）'每一組存儲數(shù)字個數(shù)的所在位置
c（m）=c（m）+1
②

c（m+c（m））=a（t）

c（m+c（m））=a（t）

For j=1 To 25
If a（t） Mod b（j）=0 Then
③

d（（k-1）*25+i）=b（j）

d（（k-1）*25+i）=b（j）

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的功能：將數(shù)值型轉(zhuǎn)為字符串型
p=p+n+1
y=y+1
Loop
List1.AddItem“至少分：“+CStr（y）+“組“
End Sub
Private Sub Form_Load

（　?。?/div>

（　?。?/div>
'讀取文本框Text1中的各個數(shù)據(jù)依次存儲到數(shù)組a中，存儲100以內(nèi)的素數(shù)到數(shù)組b中，代碼略
End Sub