题型：综合题 题类：常考题 难易度：困难
浙江省2017年选考信息技术8月份联考试卷（A卷)
小王编写了VB程序，具体功能：点击“执行”按钮Command1，在文本框Text1中显示空气质量为优（AQI空气质量指数≤50）的最长持续天数（连续为优），并在列表List1中依次显示对应天数的各项数据。
实现上述功能的VB程序如下：
Dim rq(1 To 365)As String ‘存放日期
Dim aqi(1 To 365)As Integer ‘存放AQl空气质量指数
Dim tq(1 To 365)As String ‘存放天气
Dim qw(1 To 365)As String ‘存放气温
Dim fxfl(1 To 365)As String ‘存放风向及风力
Private Sub Form_Load( )
‘本过程从数据中按2016-06-01至2017-05-31依次读取各项数据，并分别存储在对应的数组中。代码略 。
Private Sub Command1_Click( )
Dim n As Integer，m As Integer，i As Integer，k As Integer
Dim s As String
n=0：m=0：k=0
For i=1 To 365
If aqi(i)<=50 Then
n=n+1
Else
If n>m Then
m=n
k=i-1
End If
n=0
End If
Next i
If n>m Then
m=n
①
End If
For i= ② To k
s=rq(i) ‘日期长度均为10
s=s&Space(7-Len(Str(aqi(i)))) ＆ Str(aqi(i)) ‘AQI为1～3个数字
s=s&Space(4)&tq(i) ‘天气为1-4个中文字符
s=s&Space(2*(6-Len(tq(i))))＆qw(i) ‘气温长度均为9
s=s&Space(4)&fxfl(i) ‘风向及风力长度不等
List1.AddItem s
Next i
Text1．Text=Str(m)
End Sub
①；
②。
校验值计算规则如下：
第一步：将身份证号前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，得到余数。 第三步：根据第二步的计算结果从下表获取对应的校验值。
|
余数 |
0 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
|
校验值 |
1 |
0 |
X |
9 |
8 |
7 |
6 |
5 |
4 |
3 |
2 |
例如：某身份证号为 34052419800101001X。要计算此身份证的校验值步骤如下：第一步：计算 3*7+4*9+0*10+5*5+……+1*2=189
第二步：189除以11得到余数为2
第三步：由余数2获取校验值X。
根据以上规则小王编写了一个验证身份证号是否有效的VB程序，功能如下：在文本框Text1中输入身份证号，单击“验证”按钮Command1后，在列表框List1中显示验证结果。程序运行界面如图1所示。
试题篮
