题目

班主任需要统计学生某三天在校走路强度，数据库“zoulu.acdb”的“info”表中存放了学生每天的走路步数（分别存放于字段Mon、tue、wed中），如图所示： 某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 请回答下列问题： （1） 当虚线框中的代码运行结束时，变量n的值为。 （2） 为实现上述功能，程序中划线处的代码为①；②。 答案： 【1】30 【1】n【2】Str(p（i）))

查看本题答案和解析