15. 学校投票选最佳德育导师,候选老师有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)
sl="最高教师编号为:"+Str(i)
②
s1=s1+","+Str(i)
End If
Next i
Text2. Text=Str(sum)
Text3. Text=Str(max)
Label2. Caption=sl
End sub
(1)文本框Text1有一个名为 Multiline的属值,当其值为True时,可以显示多行文本,为了使Text1能显示多行文本,应在FormLoad事件中应添加的语句是
________(单选,填字母:A.Text1=True/B. Multiline=True/C. Text1. MultiLine True /D. Text1. MultiLine=True)。
(2)上面加框处代码有错误,请改正。
应改为
_______________________(3)请在划线处填入适当的代码。
①处代码为
________________________ ,②处代码为
________________________