题目

【加试题】小王同学为了研究浙江省湖州地区空气质量与天气、气温、风向等的关联性问题，通过网络获取了2016-06-01至2017-05-31这365天的有关信息，并将数据整理至数据文件data.accdb中。其中huzhou数据表视图及设计视图部分界面如图所示。 小王编写了VB程序，具体功能：点击“执行”按钮Command1，在文本框Text1中显示空气质量为优（AQI空气质量指数≤50）的最长持续天数（连续为优），并在列表List1中依次显示对应天数的各项数据。 实现上述功能的VB程序如下：   Dim rq(1 To 365)As String       ‘存放日期   Dim aqi(1 To 365)As Integer     ‘存放AQl空气质量指数   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依次读取各项数据，并分别存储在对应的数组中。代码略 。   Private Sub Command1_Click( )        Dim n As Integer，m As Integer，i As Integer，k As Integer   Dim s As String        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           End If       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)        ‘风向及风力长度不等 List1.AddItem s       Next i       Text1．Text=Str(m) End Sub （1） 按照本程序的功能，在列表框List1中输出数据，当天气为“阴”时，天气与气温之间将输出（填数字)个空格。(说明：表达式Space(n)表示n个空格。) （2） 请在画线处填入合适的代码： ①； ②。 答案： 【1】0 【1】k=i-1(或k=365)【2】k=m+1

查看本题答案和解析