【加試題】小王同學為了研究浙江省湖州地區(qū)空氣質(zhì)量與天氣、氣溫、風向等的關聯(lián)性問題，通過網(wǎng)絡獲取了2016-06-01至2017-05-31這365天的有關信息，并將數(shù)據(jù)整理至數(shù)據(jù)庫文件data.accdb中，其中huzhou數(shù)據(jù)表視圖及設計視圖部分界面如圖所示．

小王編寫了VB程序，具體功能，點擊“執(zhí)行”按鈕Command1，在文本框Text1中顯示空氣質(zhì)量為優(yōu)（AQI空氣質(zhì)量指數(shù)≤50）的最長持續(xù)天數(shù)（連續(xù)為優(yōu)），并在列表List中依次顯示對應天數(shù)的各項數(shù)據(jù)．

實現(xiàn)上述功能的VB程序如下：
Dim rq（1 To 365）As String'存放日期
Dim aqi（1 To 365）As Integer'存放AQI空氣質(zhì)量指數(shù)
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（　?。?br />'本過程從數(shù)據(jù)庫中按2016-06-01至2017-05-31依次讀取各項數(shù)據(jù)，并分別存儲在對應的數(shù)組中，代碼略
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個數(shù)字
              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中輸出數(shù)據(jù)，當天氣為“陰”時，天氣與氣溫之間將輸出

8

8

（填數(shù)字）個空格．（說明：表達式Space（n）表示n個空格．）
（2）請在橫線處填入合適的代碼：
①

k=i-1

k=i-1

；
②

k-m+1

k-m+1

．