有一个木棒游戏，探究在一堆木棒中取4根木棒组成一个正三角形的取法数量（三角形其中一边由两根木棒组成，长度相同的不同木棒算不同的方案）。如果取出长度为a,b,c,d（a＜=b＜c=d）的四根木棒能构成正三角形，那么a+b=c=d。算法如下：
（1）枚举两根短的木棒a和b；
（2）当a＜＞b时，组合的数量=长度为a的木棒根数×长度为b的木棒根数×长度为（a+b）的木棒取两根的取法数量；
（3）当a=b时，组合的数量=长度为a的木棒取两根的取法数量×长度为（a+b）的木棒取两根的取法数量。
如木棒长度分别为“1，1，2，2，3，3”，当a=1，b=2时，则c=d=3，该情况的组合数量=（长度为1的根数）*（长度为2的根数）*（长度为3的根数取两根的取法数量）=2*2*1=4。长度为3的根数取两根的取法数量，即C2。
程序运行界面如图所示，在文本框Text1输入一堆木棒的长度，以逗号间隔，点击“计算”按钮Command1后在标签Label1显示方案总数。
请回答下列问题：
（1）在文本框Text1中输入“2，3，3，6，6，6，7，”，能构成正三角形的取法数量是（填数字）

3

3

（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
Private Sub Command1_Click

（　　）

（　　）

Dim tmax As Integer,ans As Integer,k As Integer
Dim i As Integer,a As Integer,b As Integer,tmp As Integer
Dim c As String,s As String
Dim t （20）As Integer
'储存相同长度木棒的数量，如t（5）的值是长度为5的木棒的数量
s=Text1.Text
tmp=0：k=0
ans=0：tmax=0
For i=1 To Len（s）
c=Mid（s,i,1）
If c=“，“Then
k=k+1
t（tmp）=

t（tmp）+1

t（tmp）+1

If tmp＞tmax Then tmax=tmp
tmp=0
Else
tmp=tmp*10+Val（c）
End If
Next i
For a=1 To tmax\2'枚举两根短的木棒
For b=a To tmax
If a+b＞tmax Or t（a）*t（b）*t（a+b）=0 Then Exit For
If

a=b

a=b

Then
ans=ans+js（t（a），2）*js（t（a+b），2）
Else
ans=ans+js（t（a），1）*

js（t（b），1）或t（b）

js（t（b），1）或t（b）

*js（t（a+b），2）
End If
Next b
Next a
Label1.Caption=“共有“+Str（ans）+“种方案“
End Sub
Function js（x As Integer,y As Integer）As Integer
'计算在x个对象中取y个对象的组合数量，即Cy
'代码略。
End
Function