编写一个“十进制转二进制”的VB程序，功能如下：在文本框Text1中输入0~255之间的整数，单击“转换”按钮Command1后，在Text2上显示对应的二进制数｡程序设计界面和运行界面分别如图a和图b所示｡

（1）要使程序运行时，按钮Command1上显示“转换”，下列方法不可行的是________________（单选，填字母：

A．界面设计时，选中对象Command1，设置Caption属性为“转换”/

B．在From_Load事件处理过程中添加语句Command1.Caption=＂转换＂/

C．在Form_Load事件处理过程中添加语句Command1.Text=＂转换＂）｡

（2）实证上述功能的 VB 程序如下，请在划线处填入合适代码｡
Private Sub Command1_Click()
Dim i As Integer, n As Integer, k As Integer, s
As String
n=Val(Text1. Text)
k=1:s=""
Do While 2^k < n
k=k+1
Loop
Do While n<>0
If n>=2^(k-1) Then
s=s+"1"
①__________
Else
s=s+"0"
End If
k=②_________
Loop

Text2. Text = s
End Sub
（3）若删除加框处的代码，在文本框Text1输入12，单击“转换”按钮，则文本框Text2中显示的内容是________________｡

有如下 VB 程序段：
For i = 1 To 2
For j = 1 To 6 – i
If a(j) - a(j + 1) > 0 Then

t = a(j): a(j) = a(j + 1): a(j + 1) = t End If

Next j
Next i
Text1.Text = ""
For i = 1 To 6
Text1.Text = Str(a(i)) + Text1.Text
Next i
数组元素 a(1)到 a(6)的初值依次为 15，11，58，38，26，9，执行该程序段，文本框 Text1 显示的内容是（   ）

A．9 58 11 38 15 26	B．11 15 26 9 38 58
C．58 38 9 26 15 11	D．58 9 38 11 26 15

下列程序的功能是标签Label1中显示1+2+3+…+10值。
Dim s As Integer
Dim i As Integer
① s = 0
② For i = 1 To 10
③    s = i
Next i
④ Label1.Caption = Str(s)
错误在_________处，改为____________。

编写VB程序，实现如下功能：单击按钮“确定”，在列表框中输出1-100里所有的完全平方数。程序界面如下图所示：

为实现上述功能，请将以下程序补充完整。
Private Sub Command1_Click()
Dim j As Integer, k As Integer
List1.Clear
For k = 1 To 100

j = Int(Sqr(k))

If __________Then List1.AddItem _______________

Next k
End Sub

下列VB程序段的运行结果是：
Dim a(1 To 3) As Integer
a(1)=1
For i="2" To 3
a(i)=2*a(i-1)+1
Next
Print a(i-1)

A．0

B．3

C．7

D．15