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

小王编写了VB程序，具体功能，点击“执行”按钮Command1，在文本框Text1中显示空气质量为优（AQI空气质量指数≤50）的最长持续天数（连续为优），并在列表List中依次显示对应天数的各项数据．

实现上述功能的VB程序如下：
Dim rq（1 To 365）As String'存放日期
Dim aqi（1 To 365）As Integer'存放AQI空气质量指数
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依次读取各项数据，并分别存储在对应的数组中，代码略
End Sub
Private Sub Command1_Click（　　）
       Dim n As Integer,m As Integer,i As Integer,k As Integer
       Dim s As String
       List1．Clear
       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
       Next i
       If n＞m Then
             m=n

k=i-1

k=i-1

'①
       End If
       For i=

k-m+1

k-m+1

 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）'风向及风力 长度不等
              List.AddItem s
       Next i
       Text1．Text=Str（m）
End Sub
（1）按照本程序的功能，在列表框List1中输出数据，当天气为“阴”时，天气与气温之间将输出

8

8

（填数字）个空格．（说明：表达式Space（n）表示n个空格．）
（2）请在横线处填入合适的代码：
①

k=i-1

k=i-1

；
②

k-m+1

k-m+1

．