1. (2020·浙江模拟) 学校投票选最佳德育导师，候选老师有30位，现给每位参选老师一个从1到30的编号，在全校师生中投票，并从中选出最高得票数的教师作为年度最佳德育导师。小李设计了一个计票的VB程序，将各位师生投票的编号输入到文本框Text1，每票之间用“，”隔开，单击“计票”按钮Command1，在列表框中显示各位导师的得票数，在文本框Text2、Text3中显示总得票数和最高得票，在标签Label2中显示最高得票的教师编号，如果最高得票有多位教师，则全部显示他们的编号。程序运行界面如图所示。

实现上述功能的VB程序如下。

Private Sub Command1_Click()

Dim s As String, i As Integer, j As Integer, s1 As String

Dim a(30) As Integer, max As Integer, c As String, sum As Integer

s=Text1.Text

i=1：t=0：sum=0

Do While i <= Len(s)

  c=Mid(s, i, 1)

  If c=“，” Or      ①      Then

    a(t)=a(t)+1

    t=0

    sum=sum+1

  Else

        ′改错

  End If

    i=i+1

Loop

max=a(1)

For i=1 To 30

  List1.AddItem “编号为”+Str(i)+ “的教师，得票数为”+Str(a(i))

  If max < a(i) Then

    max=a(i)

    s1=“最高教师编号为：”+Str(i)

        ②     

    s1=s1+”，”+Str(i)

  End If

Next i

Text2.Text=Str(sum)

Text3.Text=Str(max)

Label2.Caption=s1

End Sub

1. （1） 文本框Text1有一个名为Multiline的属值，当其值为True时，可以显示多行文本，为了使Text1能显示多行文本，应在FormLoad事件中应添加的语句是(单选，填字母：A . Text1 = True /B . MultiLine = True /C. Text1.MultiLine True /D . Text1.MultiLine = True)。
3. （2） 上面加框处代码有错误，请改正。
5. （3） 请在横线处填入适当的代码。

   ① ②