程序運(yùn)行界面如圖所示,請(qǐng)改正加框處有誤的代碼: 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'執(zhí)行步驟② sl=Mid(a(low),2,3)& Mid(a(low),1,1)'執(zhí)行步驟③ x=0 For j=1 To 4 x=x+Val(Mid(sl,j,1))*'(1)
17.【加試題】小王同學(xué)為了研究浙江省湖州地區(qū)空氣質(zhì)量與天氣、氣溫、風(fēng)向等的關(guān)聯(lián)性問(wèn)題,通過(guò)網(wǎng)絡(luò)獲取了2016-06-01至2017-05-31這365天的有關(guān)信息,并將數(shù)據(jù)整理至數(shù)據(jù)庫(kù)文件data.accdb中,其中huzhou數(shù)據(jù)表視圖及設(shè)計(jì)視圖部分界面如圖所示. 小王編寫(xiě)了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( ) '本過(guò)程從數(shù)據(jù)庫(kù)中按2016-06-01至2017-05-31依次讀取各項(xiàng)數(shù)據(jù),并分別存儲(chǔ)在對(duì)應(yīng)的數(shù)組中,代碼略 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)'日期 長(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í),天氣與氣溫之間將輸出
(填數(shù)字)個(gè)空格.(說(shuō)明:表達(dá)式Space(n)表示n個(gè)空格.) (2)請(qǐng)?jiān)跈M線處填入合適的代碼: ①