有如下VB程序段：
For i =" 1" To 3
For j =" 1" To i
a =" a" + 1
Next j
Next i
该程序段运行后，语句“a =" a" + 1”执行的次数是（   ）

A．6

B．7

C．9

D．12

在平面坐标系中，给定任意个点，求出这些点中与点（1，1）距离最远的点。小李编写出了相应功能的程序：在文本框Text1中输入这些点的坐标值（数据都用逗号分隔并以逗号结尾），单击“计算”按钮Cmd后，程序计算这些点到（1，1）的距离后，结果显示在列表框List1中，并且输出最大距离的点。程序运行界面如图所示。

（1）由图可知，窗体中的对象共有___________类；
（2）实现上述功能的VB程序如下，请在画线处填入合适的代码。
Private Sub Command1_Click()

Dim I,k As Integer

Dim x1,y1,x2,y2 As Single

Dim v As Singie,maxd As Single

Dim s As String,pos zb As String

List1.Clear

s=Text1.Text

x1=1:y1=1

t="":k=1:j=1

List1.AddItem"坐标点"&"距离"

For i=1 To Len(s)

If Mid(s,i,1)=, Then
v=Val(Mid(s,j,i-j))
j=__________
If k Mod 2=1 Then
x2=v
Else
y2=v
d=Sqr((x2-x1)^2+(y2-y1)^2)
If __________ Then
maxd=d
pos="(" & Str(x2)& , & Str(y2)& ")"
End If
List1.AddItem"(" & Str(x2)& , & Str(y2)& ")" & Str(d)
End If
k=k+1
End If
Next i
Label1.Caption="距离（1, 1）最远的点为"& pos &"距离为"& Str(maxd)
End Sub
（3）若文本框Text1中输入的内容为“31，41，26，51，1，56”，程序运行结束后，距离（1，1）最远的坐标点是_____________。

有下列 VB 程序段：
Dim strA As String, strB As String strA = "hongda"：strB = ""
For i = 1 To Len(strA) * 2 If i / 2 = Int(i / 2) Then

strB = strB + Chr(Asc(Mid(strA, (i - 1) Mod Len(strA) + 1, 1)) + 2) End If

Next i
该程序段运行后，变量 strB 的值是（ ）

A．"jpfqic "

B．"qicqic"

C．"phbqic"

D．"qicoga"

   （加试题）小李同学碰到了一个数学问题：400个同学按顺序进行编号后围成一个大圈，按1至2报数（从1号位置开始），报到2的同学出列，以此一直循环报数下去，问最后剩下的那位同学他的编号是几号？

例如以6个同学编号为例，按1至2报数（从1号位置开始）依次出列的编号次序为2-4-6-3-1-5，那么最后剩下的就是编号为5的同学。

为了解决这个问题，小李用VB编写了如下程序尝试解决，其中列表list1显示出列的顺序编号，文本框text1中显示最后留下的编号，程序代码如下（测试界面如下图）：

Private Sub Command1_Click()
Dim s, f, t As Integer
Dim a(1 To 400) As Boolean
For i = 1 To 400
a(i) = False
Next i
s = 0
f = 0
i = 0
Do While f < 399
i = i + 1
If i = 401 Then i = （1）
If a(i) = False Then s = s + 1
If s = 2 Then  
（2）    
List1.AddItem Str(i)
a(i) = True
f = （3）  
End If
Loop
For i = 1 To 400
If （4）    Then text1.text=str(i)
Next i
End Sub
为实现程序功能，在程序划线处应填入的代码为：
（1）    _________________
（2）    _________________
（3）    _________________
（4）    _________________

编写VB程序，求最小公倍数。在文本框Text1和Text2中分别输入两个数，单击“计算”按钮Command1，求出这两个数的最小公倍数，并在标签Label3 中输出结果。界面如图所示：
 
第1图    第2图
（1）在设计程序界面时，应使用第19题－2图所示“控件工具箱”中的__________（填相应编号）添加标签控件。要让Command1显示为“计算”，需要在属性面板中修改___________的值为“计算”。
（2）程序代码如下：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, r As Integer
Dim a1 As Integer, b1 As Integer, g As Integer
a1 = Val(Text1.Text)
b1 = Val(Text2.Text) 
a = a1
b = b1
Do While b <> 0
r =" a" Mod b
a = b
b = r
Loop
g =" a1" * b1 / a
    ①     
End Sub
完善此程序，则①处应填入_______________。