题型：综合题 题类：常考题 难易度：困难
浙江省杭州市2016年信息技术高考模拟卷十三
注：BMI指数的计算公式为：BMI=体重（千克）除以身高（米）的平方（kg/m2）。 BMI<18.5为偏瘦（表明营养不足）；BMI=18.5～24.9为体重正常；BMI=25～29.9为超重；BMI>30为肥胖。
该VB应用程序的代码如下：
Dim stuBMI(1 To 55) As Single
Dim stuName(1 To 55) As String
Private Sub Command1_Click()
Dim k As Integer, i As Integer, j As Integer
Dim t1 As Single, t2 As String
Dim Results As String
For i = 1 To 54
For j = i + 1 To 55
If stuBMI(j) < stuBMI(k) then ②
Next j
If k<>I Then
t1 = stuBMI(i): stuBMI(i) = stuBMI(k): stuBMI(k) = t1
t2 = stuName(i): stuName(i) = stuName(k): stuName(k) = t2
End If
Next i
List1.AddItem "姓名" + vbTab + "BMI指数" + vbTab + "结果"
For i = 1 To 55
If stuBMI(i) < 18.5 Then
Results = "偏瘦"
ElseIf stuBMI(i) >= 18.5 And stuBMI(i) < 25 Then
Results = "正常"
ElseIf stuBMI(i) >= 25 And stuBMI(i) < 30 Then
Results = "超重"
Else
Results = "肥胖"
End If
List1.AddItem stuName(i) + vbTab + str(stuBMI(i)) + vbTab + Results
Next i
End Sub
Private Sub Form_load()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
Dim i As Integer
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\Student.accdb"
conn.Open
strSQL = "SELECT * FROM Student"
Set rs.ActiveConnection = conn
rs.Open strSQL
i = 0
Do While Not rs.EOF
i = i + 1
stuName(i) = rs.Fields("StuName")
stuBMI(i) = Round(rs.Fields("Weight") / rs.Fields("height") ^ 2, 1)
rs.MoveNext
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
①把身份证前 17 位的每个数字和加权系数相乘并累加求和。身份证号码前17位数的加权系数见下表：
身份证号位数 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 |
加权系数 | 7 | 9 | 10 | 5 | 8 | 4 | 2 | 1 | 6 | 3 | 7 | 9 | 10 | 5 | 8 | 4 | 2 |
②根据步骤①求得的和值，与11做取余运算得到序号，再根据序号提取校验码字符。如：所得和值除以11的余数为“0”，则对应的校验码为“1”。如下表：
序号 | 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 |
校验码 | 1 | 0 | X | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 |
若步骤②中提取的校验码和身份证号最后一位相同，则校验通过，否则校验失败。
某人根据上述原理设计了一个身份证校验VB程序，功能如下：程序启动时从数据库student.accdb中读入全校学生身份证数据(全校共15个班级），并在列表框List1中显示，单击“校验”按钮Command1，在列表框List2中输出各班身份证号出错学生的信息和出错人数，若某班无出错学生，则不显示。程序界面如图所示。实现上述功能的VB程序如下，请回答下列问题：
试题篮
'{#blank#}1{#/blank#}
'{#blank#}2{#/blank#}
‘(1)
‘(2) 
