编写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
完善此程序，则①处应填入_______________。

有下列 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"

当a=5，b=7，c=－2，d=1时，逻辑表达式：A+b>c+d AND a>="5" OR NOT c>0 OR D<0的运算结果为True。（   ）

若在文本框Text1、Text2，Text3中分别输入2，5，6，下列程序段运行后，标签Labe12中显示的内容是
Private Sub Command1_Click()
Dim a As Integer，b As Integer，c As Integer
A=Val(Text1.Text)：b=Val(Text2.Text):c＝Val(Text3.Text)
Label2.Caption=Str(fx(a,b,c))
End Sub
Function fx(x As Integer,y As Integer,z As Integer)As Integer
If x<y Then fx=z
Ifx>y Then fx=y Else fx=x
End Function

A．2

B．5

C．6

D．0

小胡收集了2018届高三学生高考成绩及相关的选科情况，存入数据库中，部分界面截图如图所示：

程序功能如下：

在窗体加载时，从数据库中读取学生总数N；读取N名学生的信息存储在相关数组中。N名学生的学号依次存储在数组xh(1)~xh(n) 中；学号为i的学生的总成绩存储在数组 zf(i)中，课程选修信息存储在xk(i)中；

点击“统计”按钮后，程序筛选出所有技术考生的相关信息，并计算该学生在所有技术考生中的排名（总分相同的，排名也相同）。

实现上述功能的VB程序如下，请回答下列问题：
（1）请在划线处填入合适的代码。
Dim xh(1 To 1000) As Integer ’数据库中读取时第i为学生的学号存储在xh(i)
Dim zf(1 To 1000) As Integer ’学号为i的考生的总分存储在zf(i)
Dim xk(1 To 1000) As String ’学号为i的考生的选考课程信息存储在zf(i)
’ 数据格式 **-**-**  （如：物理-化学-生物）
Dim jspm(1 To 1000) As Integer   ’学号为i的技术选考生的总分在所有技术考生中的
’排名存储在数组jspm(i)
Private Sub Form_Load()
Dim conn   As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim  constr  as string , sql as string
Constr = "Provider=Microsoft.ace.OLEDB.12.0;"
Constr = constr &  "Data Source=" & App.Path + "\data\stu2018.accdb"
conn.ConnectionString = constr
conn.open( )
rs.Open  "select * from 2018cj  "  ,  conn
i=0
Do While Not rs.EOF
i=i+1
xh(i)=rs(“xuehao”)
zf(rs(“xuehao”)) = rs(“fenshu”)
xk(rs(“xuehao”))=rs(“xkinfo”)
①【小题1】
Loop
N=i
End Sub
’判断选科信息info中是否包含科目km 
Function YouKM(ByVal km As String, ByVal Info As String) As Boolean
Dim km1 As String
YouKM = False
For i = 1 To 3
If ②【小题2】 Then
YouKM = True
Exit For
End If
Next i
End Function
'为技术学科考试求名次
Private Sub Command1_Click()

Dim jsinfo(1 To 1000) As Integer    ’依次存储每个技术选考生的学号和成绩

Dim k as integer    ’存储找到的技术选考学生的数量

'将所有选考“技术”的考生学号、成绩依次存入数组jsinfo中

    k = 0
For i = 1 To n
If    ③【小题3】 Then
k = k + 1
jsinfo(2 * k - 1) = xh(i)
jsinfo(2 * k) = cj(xh(i))
End If
Next i
'学号为i的学生在技术选考生中的排名,存入jspm（i）中
For i = 1 To k
mc = 0
For j = 1 To k
If jsinfo (2 * j) > jsinfo (2 * i) Then mc = mc + 1
Next j
jspm(jsinfo(2*i-1))= ④【小题4】

Next i

   '输出所有技术考试的学号、成绩、技术排名信息 代码略
End Sub