现要求编写VB程序，界面如图1所示。程序功能如下：在文本框Text1中输入身份证号码，单击“识别”按钮Command1，在标签Label3中输出对应的性别。
具体方法为：
<1.若身份证号为15位，则根据第15位数字来判断，若为偶数则性别“女”，否则为“男”；<2.若身份证号为18位，则根据第17位数字来判断，若为偶数时则性别为“女”，否则为“男”。
⑴ 应用程序界面设计时，为添加“识别”按钮，应使用图2中“控件工具箱”中的_____________（填写相应编号），并修改图3“属性窗口”中，将_____________属性值设置为“识别”
⑵ 请根据题意将下列程序补充完整
Dim x As String, n As Integer, s As String
x = Text1.Text
n = Len(x)
If n = 15 Then
s = Mid (_____, Len(x), 1)
If Val(s) Mod 2 <> 0 Then '判断第15位数字偶数则性别“女”，否则为“男”
Text2.Text = "女"
Else
Text2.Text = "男"
End If
Else
s=Mid(x, 17, 1)
If __________ Then
Text2.Text = "男"
Else
Text2.Text = "女"
End If
End If
（3）上述程序中带框框的语句有错，应改为____________________________
具体方法为：
<1.若身份证号为15位，则根据第15位数字来判断，若为偶数则性别“女”，否则为“男”；<2.若身份证号为18位，则根据第17位数字来判断，若为偶数时则性别为“女”，否则为“男”。
⑴ 应用程序界面设计时，为添加“识别”按钮，应使用图2中“控件工具箱”中的_____________（填写相应编号），并修改图3“属性窗口”中，将_____________属性值设置为“识别”
⑵ 请根据题意将下列程序补充完整
Dim x As String, n As Integer, s As String
x = Text1.Text
n = Len(x)
If n = 15 Then
s = Mid (_____, Len(x), 1)
If Val(s) Mod 2 <> 0 Then '判断第15位数字偶数则性别“女”，否则为“男”
Text2.Text = "女"
Else
Text2.Text = "男"
End If
Else
s=Mid(x, 17, 1)
If __________ Then
Text2.Text = "男"
Else
Text2.Text = "女"
End If
End If
（3）上述程序中带框框的语句有错，应改为____________________________
如图所示的流程图片断，该流程图执行过后，A、B的值分别为( )
| A．A是20，B是30 |
| B．A 是20，B是20 |
| C．A是30，B是30 |
| D．A是30，B是20 |
下列各赋值语句，语法不正确的是（ ）。
| A．x+y=5 | B．number=15 |
| C．Label1.caption=time | D．length=x+y |
（加试题）某校举行班班有歌声比赛，参赛班级的成绩按照班级序号保存在“bbygs.accdb”数据库文件中，为了快速计算每个班级最终的分，设计了一个VB程序，该程序能够将8个评委的打分按照从高到低的顺序排序，然后去掉一个最高分和一个最低分，最后计算平均值作为参赛班级的成绩。程序界面如图：单击“提取”按钮Command1，在列表框list1中显示班级序号和该班级8个评委的打分成绩，单击“排序”按钮Command2后，在列表框list2中按降序排序。单击计算得分按钮Command3，在文本框text1中显示最终成绩。按此要求编写程序如下:
Dim class(1 To 30) As Integer '存放班级序号的数组定义为class
Dim score(1 To 8) As single '存放班级各评委打分的数组定义为score
Private Sub Form_load() '提取某班级的评委打分
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.AC
conn.Open
Set rs.ActiveConnection = conn
rs.Open "SELECT * FROM score "
n = 0
Do While Not rs.EOF '到最后一条记录后退出循环
n = n + 1
class (n) = rs.Fields("班级序号").Value
score (n) = rs.Fields("评委打分").Value
rs.MoveFirst '① 指针移动到下一条记录
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
for i=1 to n
List1.AddItem str(score(i))
Next i
End sub
Private Sub Command1_Click()
Dim i as integer
Dim j as integer
Dim t as single
For i=1 to 8
List2.AddItem str(score(i))
Next i
End sub
Private Sub Command2_Click() '计算班级平均得分
Dim i As Integer
Dim sum As single
For i=2 to 7
sum=sum+score（i）
Next i
Text1.text= ③
End sub
（1）程序中①划线处有错，应改为____________________。
（2）加矩形框处的程序所采用的算法是_____________排序。
（3）程序中②划线处应填入___________,程序中③划线处应填入___________。
Dim class(1 To 30) As Integer '存放班级序号的数组定义为class
Dim score(1 To 8) As single '存放班级各评委打分的数组定义为score
Private Sub Form_load() '提取某班级的评委打分
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.AC
| A．OLEDB.12.0;Data Source=" + App.Path + "\bbygs.accdb " |
Set rs.ActiveConnection = conn
rs.Open "SELECT * FROM score "
n = 0
Do While Not rs.EOF '到最后一条记录后退出循环
n = n + 1
class (n) = rs.Fields("班级序号").Value
score (n) = rs.Fields("评委打分").Value
rs.MoveFirst '① 指针移动到下一条记录
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
for i=1 to n
List1.AddItem str(score(i))
Next i
End sub
Private Sub Command1_Click()
Dim i as integer
Dim j as integer
Dim t as single
For i=1 to 8
List2.AddItem str(score(i))
Next i
End sub
Private Sub Command2_Click() '计算班级平均得分
Dim i As Integer
Dim sum As single
For i=2 to 7
sum=sum+score（i）
Next i
Text1.text= ③
End sub
（1）程序中①划线处有错，应改为____________________。
（2）加矩形框处的程序所采用的算法是_____________排序。
（3）程序中②划线处应填入___________,程序中③划线处应填入___________。
有如下VB 程序段:
m = Val(Text1.Text)
Do While m <> 0
x = m Mod 8
m = m \ 8
a(x) = a(x) + 1
If a(x) = 1 Then n = n + 1
Loop
数组a 各元素的初始值都为0,在文本框Text1中输入“529”,执行程序后,变量n的值为（）
m = Val(Text1.Text)
Do While m <> 0
x = m Mod 8
m = m \ 8
a(x) = a(x) + 1
If a(x) = 1 Then n = n + 1
Loop
数组a 各元素的初始值都为0,在文本框Text1中输入“529”,执行程序后,变量n的值为（）
| A．1 | B．2 | C．3 | D．4 |
目前部分手机的短信具有“提取详情”的功能，即针对一条短信，可以提取出短信中一些关 键的信息。现编写 V
图1 图2
（1）在设计程序界面时，图2中控件________（填数字）未在程序窗体中使用。
（2）请根据题意将下列程序补充完整
Private Sub Command1_Click()
Dim msg As String, c As String, tmp As String, s As String, flag As Boolean msg = Text1.Text
msg = msg + "/" '标记字符串结束符
tmp = "" s = ""
flag = True
For i = 1 To Len(msg)
c = Mid(msg, i, 1)
If ①_____ Then flag = False
tmp = tmp + c
ElseIf flag = False Then s = s + tmp + ","
tmp = ""
Next i
Text2.Text = s
End Sub
（3）若程序未加“msg = msg + "/"”语句，则示例图1中提取后的数字信息为 ________。
| A．程序实现如下功能：在文本框 Text1 中输入短信内容，点击“提取”按钮， 将短信中的数字以“，”间隔输出到文本框 Text2 中。程序运行界面如图1所示。 |
图1 图2
（1）在设计程序界面时，图2中控件________（填数字）未在程序窗体中使用。
（2）请根据题意将下列程序补充完整
Private Sub Command1_Click()
Dim msg As String, c As String, tmp As String, s As String, flag As Boolean msg = Text1.Text
msg = msg + "/" '标记字符串结束符
tmp = "" s = ""
flag = True
For i = 1 To Len(msg)
c = Mid(msg, i, 1)
If ①_____ Then flag = False
tmp = tmp + c
ElseIf flag = False Then s = s + tmp + ","
tmp = ""
②_____
End IfNext i
Text2.Text = s
End Sub
（3）若程序未加“msg = msg + "/"”语句，则示例图1中提取后的数字信息为 ________。
某VB程序设计界面如下图所示。下列说法正确的是
| A．该窗体中只有3个对象 | B．该窗体的名称是“BMI计算器” |
| C．当前窗体文件名为“Form1.frm” | D．一个工程可以有多个窗体 |