小胡收集了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

某多选题共有6个候选项（A、B、C、D、E、F），得分规则是：全部答对得2分，部分答对得1分，未作答或有错误答案0分。设计一个能够评分的程序，要求如下：在文本框Text1中输入标准答案，在文本框Text2中输入学生答案。点击评分按钮Command1后，将得分显示在标签Label4中。程序界面如图所示：

（1）要使程序运行后，窗体Form1的标题栏中显示“评分”，正确的做法是_____ （单选，填字母：

A．将窗体的Text属性改为“评分”/

B．在Form1_Load事件中输入代码Form1.Caption=”评分”/

C．在Form1_Load事件中输入代码Form1.Name=”评分”）；

(2)实现上述功能的程序如下，请在划线处填入合适的代码：
Private Sub Command1Click
Dim cans As String ,ans As String ,c As String ,count As Integer
Dim f(1 To 6) As Boolean
cans = Text1.Text:ans = Text2.Text
count = 0
For i = 1 To Len(cans)
c = Mid(cans, i, 1)
f(Asc(c) - 64) = True
Next i
For i = 1 To ①______     
c = Mid(ans, i, 1)
If f(Asc(c) - 64) = False Then
count = 0: Exit For
Else
count = count + 1
End If
Next i
If count = 0 Then
Label4.Caption = "0分"
ElseIf ②______ Then    
Label4.Caption = "2分"
Else
Label4.Caption = "1分"
End If
End Sub
（3）若去除加框处代码，且将文本框Text2的内容改为“BCD”，标签Label4显示的内容是_______。

已知三角形的三条边长分别为、、，半周长，该三角形面积计算公式为：，计算S的VB语句是( )

A．

B．）

C．

D．）

VB标准函数RND的作用是返回一个大于等于0且小于1的随机数。只能产生大于等于100且小于200随机 整数的VB表达式是 （ ）

A．Int(Rnd*100)	B．Int(Rnd*101+100)
C．Int(Rnd*99+100)	D．Int(Rnd*100+100)

王敏的 QQ 密码忘记了，试了很多次都没有成功，请你帮她尽可能找出密码。她零星记得自己的密码信息：①密码是六位数字，前面两位为 31；②最后两位数字相同；③能被 16 和 46 整除。程序界面如图所示，单击“帮助找回密码”按钮，可能的密码显示在列表框 List1 中。解决此问题的相应程序如下，完成相应的填充。

Private Sub Command1_Click（）
Dim a As Integer , s As Long , b As Integer , i As Integer
For i=0 To 9999 ___________
s=310000+i
If s Mod 46 = 0 Then
a = s mod 10
b=(s\10)mod 10
If ___________Then
___________
End If
End If
Next i
End Sub