火柴棍可以拼成数字 0～9，拼法如图 a 所示。

输入火柴棍的数量 n（n≤24），计算可以拼出多少个“A+B=C”的等式？要求：
①加号与等号各自需要两根火柴棍。
②A、B、C 为非负的整数，且该数非零时，最高位不能是 0。
③如果 A≠B，则 A+B=C 与 B+A=C 视为不同的等式。
④n 根火柴棍必须全部用上。
小明发现，数字 1 用的火柴棍最少，24 根火柴棍全部用上的话，能拼出最大的整数 A 或 B 不超 1111，C 不超过 2222．他编写了一个 VB 程序，在文本框 Text1 中输入火柴棍的数 量，单击“统计”按钮 Command1，在文本框 Text2 中输出“A+B=C”的方案数，程序界面如图 b 所示。
实现上述功能的 VB 程序如下，请回答下列问题：
（1）请在横线处填入合适的代码。
Private  Sub  Command1_Click （　　）
Dim  a（0  To 2222）As  Integer'存储每个整数需用的火柴棍数
Dim  n As Integer,ans As Integer
Dim  i As Integer,j As Integer n=Val（Text1．Text）
For  i=0To 2222a（i）=0
Next  i
'得到 0～9 中每个数字需用的火柴棍数
a（0）=6：a（1）=2：a（2）=5：a（3）=5：a（4）=4
a（5）=5：a（6）=6：a（7）=3：a（8）=7：a（9）=6
n=①

n-4

n-4

'去掉等号与加号后，剩余的火柴棍数量
For  i=10To 2222'计算出 10～n 中每个数字需用的火柴棍数
a（i）=a（②

i\10

i\10

）+a（i  Mod  10）
Next  i ans=0
'枚举 0～n 中任意两个数，判断是否符合 A+B=C 的火柴棍数量
For  i=0To 1111
For  j=0To 1111
If a（i）+a（j）+a（③

i+j

i+j

）=n Then
ans=ans+1
End  If
Next  j
Next  i
Text2．Text=Str（ans）
 End Sub
（2）输入的火柴棍的数量为 14 时，方案数为

2

2

。