【加試題】小王同學為了研究浙江省湖州地區空氣質量與天氣、氣溫、風向等的關聯性問題，通過網絡獲取了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（　?。?br />       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

．