题目

袜子颜色配对问题。现有不同颜色的袜子若干(袜子的颜色用数字编号1~15表示)，颜色相同的袜子才能组成一双，其中有几只袜子是落单的，现要求找出落单袜子的颜色以及能够配对的袜子数量。编写VB程序解决该问题，程序运行时，在文本框Text1中依次输人袜子的颜色编号(数据都用逗号分隔并以逗号结尾)，单击“查找”按钮，在列表框List1中输出落单袜子的颜色编号，在标签Label1中显示能配对的袜子数量。运行界面如图所示，实现上述功能的VB程序如下。 请回答下列问题： Const n=15 Private Sub Command1_ Click()    Dim a(1 To n) As Integer      '数组 a存放不同颜色袜子的数量,默认值为0   Dim s As String, ch As String   Dim c As Integer, i As Integer, t As Integer     List1. Clear     s= Text1. Text     t=0：c=0：i=1     Do While i <= Len(s)         ch= Mid(s, i, 1)         If ch>= "0" And ch<= "9" Then             t=t * 10 + Val(ch)         Else             a(t)=   ①              t=0         End If         i=i+ 1     Loop     For i=1 To n         If    ②    Then List1. AddIt-em"落单袜子的颜色为" + Str(i)         c=     Next i     Label1. Caption="能配对的袜子有"+ Str(c) + "双" End Sub （1） 写出VB代码中的方法名(只需填一个方法名)； （2） 根据题意，请在划线处填入合适代码 ① ②  （3） 加框处程序代码有错，请改正。 答案： 【1】Clear或AddItem 【1】a(t) +1【2】a(i) Mod 2=1 c+a(i)\2

查看本题答案和解析