Exit For End If End Select Next i End Sub
实验八：第五章1:
列表框和组合框
⒈ 在Form1的窗体上画一个列表框，名称为L1，通过属性窗口向列表框中添加四个项目，分别为“AAAA”、“BBBB”、“CCCC”和“DDDD”，编写适当的事件过程。程序运行后，如果单击列表框中的某一项，则该项就从列表框中消失。
Private sub list1_click()
List1.removeitem list1.listindex End sub
⒉ 窗体上画2个命令按钮，标题分别为“添加项目”和“删除项目”，再画一个列表框和一个文本框。程序运行后，单击“添加项目”按钮，则从键盘输入要添加到列表框中的项目内容；单击“删除项目”按钮，则从键盘输入要删除的项目内容。下面提供的代码不完整，请补充完整。
Private Sub Command1_Click()
Text1.Text = InputBox(\请输入要添加的项目\ List1.AddItem text1 End Sub
Private Sub Command2_Click()
Text1.Text = InputBox(\请输入要删除的项目\
'For i = 0 To list1.listcount -1 'If List1.List(i) = text1 Then 'List1.RemoveItem i End If Next i End Sub
⒊ 在名称为Form1的窗体上画一个名称为Label1、标题为“添加项目：”的标签；画一个名称为Text1的文本框，没有初始内容；画一个名称为Combo1的下拉式组合框，并通过属性窗口输入若干项目（不少于3个，内容任意）；再画两个命令按钮，名称分别为Command1和Command2，标题分别为“添加”、“统计”。在运行时，向Text1中输入字符，单击“添加”按钮后，则Text1中的内容作为一个列表项被添加到组合框的列表中；单击“统计”按钮，则在窗体上显示组合框中列表项的个数，请编写两个命令按钮的Click事件过程。
程序中不得使用变量，也不能使用循环。
Private sub command1_click() Combo1.additem text1 Text1=””
Text1.setfocus End sub
Private sub command2_click() Print combo1.listcount End sub
⒋ ⑴ 利用属性窗口向列表框添加四个项目：Visual Basic、Turbo C、C++、Java； ⑵ 请编写适当的程序完成以下功能：当选择列表框中的一项和单选按钮Option1，然后单击“确定”命令按钮，则文本框中显示“×××笔试”；当选择列表框中的一项和单选按钮Option2，然后单击“确定”命令按钮，则文本框中显示“×××上机”。其中“×××”是在列表框中所选择的项目。
Private sub command1_click() If option1 then
Text1=list1.text & option1.caption Else
Text1=list1.text & option2.caption End if End sub
实验九：第五章2:
控件数组
⒈ 在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index属性分别为0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为300、800。窗体的标题为专业姓名。
⒉ 在名称为Form1的窗体上画一个标签，和一个包含3个元素的命令按钮控件数组。
⒊ 设计一个单选按钮控件数组，和一个文本框。程序运行时，选中单选按钮中的任何一项，都会在文本框里显示“您喜欢的出行方式是乘坐××”。
Private sub option1_click(index as integer)
Text1=”你喜欢的出行方式是乘” & option1(index).caption End sub
⒋ 设计一个单选按钮控件数组、一个命令按钮和一个文本框。程序运行时，选中单选按钮中的任何一项，然后单击“确认”按钮，在文本框里显示“您喜欢的出行方式是乘坐××”。
Private sub command1_click() For i=0 to 3
If option1(i) then
Text1=”你喜欢的出行方式是乘坐” & option1(i).caption End if Next i End sub
5．统计字母A、B、C、D出现的次数，不区分大小写。将统计结果分别保存在变量A、B、C、D中。（提示：依次取出文本框里的一个字符， 如果是字母将其转换为下标（A→1，B →2，等），对应元素计数 ，J从1到4 如果a(j)<>0 Chr(j + 64)=a(j) ）
Private sub command1_click()
Dim a(1 to 4) as integer,c as string *1 Le=len(text1) For i=1 to le
C=Ucase(mid(text1,I,1))
If c>=”A” and c<=”D” then J=asc(c)-65+1 A(j)=a(j)+1 End if Next i
For j=1 to 4
If a(j)>0 then picture1.print “ ”;chr(j+64);”=”;a(j); Next j End sub