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

輸入火柴棍的數量 n（n≤24），計算可以拼出多少個“A+B=C”的等式？要求：
①加號與等號各自需要兩根火柴棍。
②A、B、C 為非負的整數，且該數非零時，最高位不能是 0。
③如果 A≠B，則 A+B=C 與 B+A=C 視為不同的等式。
④n 根火柴棍必須全部用上。
小明發(fā)現(xiàn)，數字 1 用的火柴棍最少，24 根火柴棍全部用上的話，能拼出最大的整數 A 或 B 不超 1111，C 不超過 2222．他編寫了一個 VB 程序，在文本框 Text1 中輸入火柴棍的數 量，單擊“統(tǒng)計”按鈕 Command1，在文本框 Text2 中輸出“A+B=C”的方案數，程序界面如圖 b 所示。
實現(xiàn)上述功能的 VB 程序如下，請回答下列問題：
（1）請在橫線處填入合適的代碼。
Private  Sub  Command1_Click （　?。?br />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

。