Next yРList1.AddItem x, yРLabel1.Caption = "列表框有" & List1.ListCount & "个数据项"РEnd SubРPrivate mand3_Click()РDim a%, b%Рa = Val(Text1.Text)РFor b = 0 To List1.ListCount - 1РIf a = Val(List1.List(b)) Then List1.RemoveItem bРNext bРLabel1.Caption = "列表框有" & List1.ListCount & "个数据项"РEnd SubР【实验6 典型结果】Р【实验7】设计一个利用简单组合框对各省、直辖市名称维护的应用程序。要求:添加不重复的省或直辖市到组合框中,对不正确的可修改,以按汉字内码顺有序显示。运行效果如下图所示。(10分)Р掌握数组常用算法:插入与删除操作Р实验结果:Р【实验7 代码】РDim pos%РPrivate bo1_Click()Рpos = Combo1.ListIndexРEnd SubРPrivate bo1_keypress(keyascii As Integer)РDim i%, find As BooleanРIf keyascii = 13 ThenРfind = FalseРFor i = 0 bo1.ListCount - 1Рbo1.Text = Combo1.List(i) ThenРfind = TrueРNext iРIf Not find bo1.bo1.TextРCombo1.Text = ""РEnd IfРEnd SubРPrivate mand1_Click()РCombo1.List(pos) = Combo1.TextРEnd SubРPrivate Sub Form_Load()