十进制数转换为二进制数。小林用VB编写了一个程序，把输入的十进制数转换为二进制数，并判断二进制数中的“0”和“1”的个数是否相等。程序运行界面如图所示，在文本框Text1中输入要转换的十进制数，单击命令按钮Command1后，在文本框Text2中输出其对应的二进制数，在标签Label3中显示“相等”或“不相等”。

(1)程序运行界面中使用的对象个数为_________，要使命令按钮Command1上的文字显示为“转换”，应修改的属性名为_____________。
(2)为实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim st As String
Dim x, y, c0, c1 As Integer
st = "": c0 = 0: c1 = 0
x =_____________
Do While x <> 0
y = _____________
If y = 0 Then
c0 = c0 + 1: st = y & st
Else
c1 = c1 + 1: st = y & st
End If
x = x \ 2
Loop
Text2.Text = st
If ____________ Then
Label3.Caption = "相等"
Else
Label3.Caption = "不相等"
End If
End Sub

在窗体上画一个命令按钮，其Name属性为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1Click
Dim a(4,4)
For i = 1 To 3
For j = 1 To 3
a(i,j)=(i-1)*3+j
Next j
Next i
PRINT   A（3，1）
End Sub
程序运行后，单击命令按钮，其输出结果为.

A．6

B．7

C．8

D．9

某算法的流程图如下所示：

下列说法错误的是（   ）

A．该流程图中包含的算法模式有：顺序模式、分支模式和循环模式

B．当输入x的值为-100时，输出的n的值为1

C．只要输入的x的值不小于0，该程序就不会结束

D．当输入 x的值依次为1、2、3、－1时，输出的结果为4

（加试题）十进制a转换为b进制（2~16）的vb程序如下
Function tran(a as integer, b as integer) as string
Dim strd as string, n as integer
Do while a<>0
n=a mod b
a=a\b
If n>9 then
strd= &strd
Else
strd=str(n)&strd
Endif
Loop
Tran=strd
End function
Private sub command1_click()
m=val(text1.text)
n=val(text2.text)
Label1.caption=tran(a,b)
End sub
下列说法不正确的是

A．划线处的代码可以为：chr(55+n)

B．划线处的代码可以为：mid(“ABCDEF”,n-9,1)

C．若在划线处填上正确的代码之后，运行程序，在text1内输入123，text2内输入10，label1显示的结果为123

D．若需要转换为十七进制，划线处的代码可以使用mid(“ABCDEF”,n-9,1)

在text1文本框内输入字符串，单击去重按钮，将字符串后面相同的字符删除，并在text2中输出经过删除的字符串。程序界面如图所示。请在下面划线处填入合适的代码。

Private Sub Command1_Click()
Dim s As String, s1 As String, c As String
s = Text1.Text
For i = 1 To Len(s)
c = Mid(s, i, 1)
s1 = （1）  
For  j =  （2）       
If c <> Mid(s, j, 1) Then
s1 = s1 + Mid(s, j, 1)
End If
Next j
（3）
Next i
Text2.Text = s
End Sub

A．（1）s1 = Mid(s, 1, 1)    （2）i + 1 To Len(s)   （3）s1 = s

B．（1）s1 = Mid(s, 1, 1)   （2）i To Len(s)    （3）s1 = s

C．（1）s1 = Mid(s, 1, i) （2）i To Len(s) （3）s = s1

D．（1）s1 = Mid(s, 1, i) （2）i + 1 To Len(s)  （3）s = s1