【加试题】小王同学为了研究浙江省湖州地区空气质量与天气、气温、风向等的关联性问题，通过网络获取了2016-06-01至2017-05-31这365天的有关信息，并将数据整理至数据文件data.accdb中。其中huzhou数据表视图及设计视图部分界面如图所示。
小王编写了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
