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

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

實(shí)現(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'存放風(fēng)向及風(fēng)力
Private Sub Form_Load（　　）
'本過程從數(shù)據(jù)庫(kù)中按2016-06-01至2017-05-31依次讀取各項(xiàng)數(shù)據(jù)，并分別存儲(chǔ)在對(duì)應(yīng)的數(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）'日期 長(zhǎng)度均為10
              s=s & Space（7-Len（Str（aqi（i）））） & Str（aqi（i））'AQI為1-3個(gè)數(shù)字
              s=s & Space（4）& tq（i）'天氣 為1-4個(gè)中文字符
              s=s & Space（2?（6-Len（tq（i）））） & qw（i）'氣溫 長(zhǎng)度均為9
              s=s & Space（4）& fxfl（i）'風(fēng)向及風(fēng)力 長(zhǎng)度不等
              List.AddItem s
       Next i
       Text1．Text=Str（m）
End Sub
（1）按照本程序的功能，在列表框List1中輸出數(shù)據(jù)，當(dāng)天氣為“陰”時(shí)，天氣與氣溫之間將輸出

8

8

（填數(shù)字）個(gè)空格．（說明：表達(dá)式Space（n）表示n個(gè)空格．）
（2）請(qǐng)?jiān)跈M線處填入合適的代碼：
①

k=i-1

k=i-1

；
②

k-m+1

k-m+1

．