Dim a(1 To 100)As Integer

n=Val(Text1.Text)

a(1)=0：a(3)=1

s=1

Next i

Text2.Text=Str(s)

方框中的代码由以下三部分组成：

①a(i)=a(i-2)+a(i-4)
②s=s+a(i)

③For i=5 To n Step 2

代码顺序正确的选项是(  )

某VB应用程序的功能如下：程序运行时在列表框List中依次显示数据库表“info”中每个人的编号、每天的走路步数，单击“计算”按钮Command1后，在List2中依次显示每个人的编号和每个人平均走路步数（平均走路步数=三天的走路总步数/3），程序的运行结果如图所示。

代码如下：

Dim b(1 To 100)As String     '定义存储编号的数组b

Dim m(1 To 100)As single     '定义存储第一天的走路步数的数组m

Dim s(1 To 100)As single       '定义存储第二天的走路步数的数组s

Dim w(1 To 100)As single      '定义存储第三天的走路步数的数组w

Dim p(1 To 100)As Single      '定义存储平均步数的数组p

Dim n As Integer                    '定义存储人数的变量n

Private Sub Command1_Click()

    For i=1 To        

        p(i)=(m(i))+s(i)+w(i))/3

    Next i

    List2. Clear

    For i=1 To n                '在List2中显示每个人的编号和平均步数

        List2. AddItem b(i)+ "平均走路步数为"+         +"步"

    Next i

End Sub

Private Sub Form_Load()

    Dim conn As New ADOD

    A.Connection                                      '定义 Connection对象实例conn

    Dim rs as New adode. Recordset       '定义Recordset对象实例rs

    conn. Connection String="provider= Microsoft. ACE OLEDB 12.0; DATA Source=" & App. Path & "\zoulu. accdb"

    conn Open

    rs. ActiveConnection=conn

    rs Open "Select*From info"

    n=0

    Do While not rs.EOF

        n=n+1

        b(n)=rs. fields("id")

        m(n)=rs. fields("mon")

        s(n)=rs. fields("sue")

        w(n)=rs. fields("wed")

        rs. MoveNext

    Loop

    rs Close

    conn. Close

    Set conn=Nothing

    Set conn= Nothing

    List1. Clear

    For i=1 To n                        '在 List1中显示每个人的编号、每天的走路步数

        List1. AddItem b(i)+" "+Str(m(i))+" "+Str((i))+" "+Str(w(i))

    Next i

End Sub

请回答下列问题：

现要求根据上表统计出各等级学生人数占总人数的比例。小李编写了一个VB程序帮助老师实现该功能：程序运行时，将每位学生的得分(两位整数)存储到数组a中，并在列表框List1

中显示。单击“统计”按钮后，在列表框List2中显示从A级至E级，各等级的人数占总人数的百分比例(四舍五入保留整数)。程序运行界面如图所示：

请阅读代码，并回答以下问题：

Dim n As Integer

Dim a(1 To 50) As Integer

Private Sub Form_Load( )

    Dim adocn As New ADODB. Connection

    Dim adors As New ADODB. Recordset

    Dim str1 As String

    adocn.ConnectionString = "Provider = Microsof.ACE.OLEDB.12.0；Data source=" +App. Path +”\school. accdb”

    adocn. Open

    str1 =“select * from students”

    ardors.Open str1, adocn

    '将每个学生的得分读入数组a中，并在列表框list1中显示，统计学生总人数n

    '代码略

End Sub

Private Sub Comd1_C1ick( )

    Dim cou As Integer，k as Integer

    Dim b(0 To 4) As Integer

    Const dj = “A级B级C级D级E级”

    For i=1 Ton

    k=a(i)\10-5

    If k<0 Then     ①    

    b(k)= b(k) + 1

    Next i

    For i=0 To 4

      cou =       '⑶改错

      List2. AddItem       ②      + Str(cou) +“%”

    Next i

End Sub

执行程序后，变量max的值是(         )

PH＝{#blank#}1{#/blank#}（input（"请输入雨水的PH值："））

if PH＜4.7：

    print（"重度酸雨"）

{#blank#}2{#/blank#}PH＜＝5.6：

    print（"轻度酸雨"）

{#blank#}3{#/blank#}：

    print（"非酸雨"）