把一个数分成若干个自然数之和，如果要使这些自然数的乘积最大，那么这些自然数应全是2或3，且2最多不超过2个。在文本框Text1中输入一个自然数，单击“分解”按钮，在列表框List1中输出他们的乘积表达式。程序运行的界面如图所示：

Private Sub Command1_Click()
　Dim n As Integer，cj As Integer，s As String
　n＝Val(Text1.Text)
　cj＝____①____
　s＝”s＝”
　Do While ____②____
If n<>4 Then
　n＝n－3
　cj＝cj*3
　s＝s＋”3×”
Else
　n＝n－2
　cj＝cj*2
　s＝s＋”2×”
End If
　Loop
　cj＝____③____
　If n＝3 Then s＝s＋”3” Else s＝s＋”2”
　Text2.Text＝s
　Text3.Text＝cj
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________