某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

请回答下列问题：

a=[4，5，3， 6， 7，8，2， 9， 1]

m，c=1，1

for i in range(1， len(a))：

    if a[i]>=a[i-1]：

        c+=1

        m=max (m， c)

    else：

        c=1

print(c，m)

则程序执行后，c和m的值分别是(     )

import random

a,i,c=[],0,0

while i<5:

    b=random.randint(0,9)

    if b not in a:

        a.append(b)

        i+=1

key=int(input("key="))

for j in range(len(a)):

    if a[j]%key==0:

        c+=1

    else:

        a[j-c]=a[j]

print(a)

运行该程序，若输入 key 为2，则输出的a 不可能为（   ）

n＝0

for i in range（1，4）：

   n＋＝i

循环结束后，变量i的值是（   ）。

①在电脑端输入出题数量n，依次生成 n道题目，每道题随机给出乘法或加法。

②每回答一道题时，若正确，则在 micro:bit端 LED阵列显示“笑脸”，否则显示“哭脸”。

③答完n道题目后，电脑端显示共练习了几道题，其中有几题回答正确。

电脑端程序：

import random

import serial

ser=serial.Serial()

ser.baudrate=115200

ser.port="COM4"

ser.open()

c=0;i=1

n=int(input("请输入题目数量："))

while i<=n:

 r=random.randint(0,1)

 if r==0:

 a=random.randint(1,9)

 b=random.randint(1,9)

 print(str(a)+"×"+str(b)+"=")

 else:

 a=random.randint(10,99)

 b=random.randint(1099)

 while ①____:

 a=random.randint(10,99)

 b=random.randint(10,99)

 print(str(a)+"+"+str(b)+"=")

 ans=int(input("请输入答案："))

 if r==0 and a*b==ans or r==1 and a+b==ans:

 ser.write("H".encode())

 c=c+1

 else:

 ser.write("S".encode())

 i=i+1

print("共练习了"+str(n)+"题，其中有"+str(c)+"题回答正确。")

micro:bit端程序：

from microbit import *

while True:

 if uart.any():

 incoming=str(uart.read(),"UTF-8")

 if :

 display.show(Image.HAPPY)

 else:

 display.show(Image.SAD)