把一个数分成若干个自然数之和，如果要使这些自然数的乘积最大，那么这些自然数应全是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
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________

小秦用VB编写十进制数自动转换成二进制数的程序，运行界面如下图，运行代码如下：

Private Sub Command1_Click()
Dim a, i, n As Integer,s as string
n = Val(Text1.Text)
Do While n > 0
①
②
③
Loop
Text2.Text = s
End Sub
缺少部分的代码应填（    ）。

A．①a = n Mod 2    ②n = n \ 2 ③ s = Str(a) + s

B．①n = n \ 2 ②a = n Mod 2  ③ s = Str(a) + s

C．①a = n Mod 2    ②n = n \ 2 ③ s = s +Str(a)

D．①n = n \ 2 ②a = n Mod 2  ③  s = s +Str(a)

下列程序段的执行结果为:（ ）
 Dim M(10)  as  integer
 For i = 0 To 10
 M(i) = 2*i
 Next i
 Print M(M(3）


A．12

B．6

C．0

D．4

有如下VB程序段：
Private Sub Command1_Click()
Dim i As Integer, x As Integer
x = 1
For i = 1 To 5 Step 2
x = x + i
Text1.Text = Str(x)
Next i
End Sub 
则该程序运行后，文本框Text1中显示的数据个数是

A．1个

B．2个

C．3个

D．5个

在VB程序中，如果要在一行内写多条语句时，语句之间应该用 分隔。