程序運行界面如圖所示,請改正加框處有誤的代碼: Private Sub Command1_Click( ) Dim s As String,Dim sl As String,Dim jg As String Dim n As Integer,Dim x As Integer,Dim i As Integer,Dim j As Integer Dim a(15)As String a(0)=“0000“:a(1)=“0001“:a(2)=“0010“:a(3)=“0011“ a(4)=“0100“:a(5)=“0101“:a(6)=“0110“:a(7)=“0111“ a(8)=“1000“:a(9)=“1001“:a(10)=“1010“:a(11)=“1011“ a(12)=“1100“:a(13)=“1101“:a(14)=“1110“:a(15)=“1111“ jg=““ s=Text1.Text For i=1 To Len(s) n=Asc(Mid(s,i,1)) low=n Mod 16 low=15-low'執行步驟② sl=Mid(a(low),2,3)& Mid(a(low),1,1)'執行步驟③ x=0 For j=1 To 4 x=x+Val(Mid(sl,j,1))*'(1)
17.【加試題】小王同學為了研究浙江省湖州地區空氣質量與天氣、氣溫、風向等的關聯性問題,通過網絡獲取了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
'① 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)'風向及風力 長度不等 List.AddItem s Next i Text1.Text=Str(m) End Sub (1)按照本程序的功能,在列表框List1中輸出數據,當天氣為“陰”時,天氣與氣溫之間將輸出
(填數字)個空格.(說明:表達式Space(n)表示n個空格.) (2)請在橫線處填入合適的代碼: ①