把一个数分成若干个自然数之和，如果要使这些自然数的乘积最大，那么这些自然数应全是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＝{#blank#}1{#/blank#}
s＝”s＝”
Do While {#blank#}2{#/blank#}
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＝{#blank#}3{#/blank#}
If n＝3 Then s＝s＋”3” Else s＝s＋”2”
Text2.Text＝s
Text3.Text＝cj
End Sub
