VisualBasic程序设计实用教程教学课件作者周晓宏vb06在程序中使用循环结构(529KB).ppt

1.AddItem :在列表框的最后增加一项 2.RemoveItem n:删除指定的项 组合框 列表框 相关知识:列表框与组合框 该控件的作用是列出许多项，供用户选择，并对某些项进行处理。 该控件组合了文本框与列表框的功能，既可以象文本框一样由用户输入内容，也可以象列表框一样列出许多项，由用户选择 1.ListCount:列表框中的总项数 2.List():列表框中各项的值 3.Text:列表框中最后选中项的值 4.MultiSelect:列表框多选方式 5.ListIndex:列表框中选中项的序号 6.Selected():列表框中各项选中的状态 列表框的主要方法: 列表框的主要属性 组合框控件： 列表框控件： yn = MsgBox(真的要删除所有选中的商品吗？, vbYesNo) If yn = vbYes Then i = 0 Do While i = lst_goods.ListCount - 1 If lst_goods.Selected(i) = True Then lst_Price.RemoveItem i lst_goods.RemoveItem i Else i = i + 1 End If Loop End If “商品计价器”主要代码 删除商品: Dim yn yn = vbYes Do While yn = vbYes lst_Goods.AddItem InputBox(请输入商品名称) lst_Price.AddItem InputBox(请输入商品价格) yn = MsgBox(是否继续增加商品?, vbYesNo) Loop 增加商品 Dim total As Single total = 0 i = 0 Do While i= lst_Goods.ListCount - 1 If lst_Goods.Selected(i) Then total = total + Val(lst_Price.List(i)) End If i = i+1 Loop txt_Total.Text = total “商品计价器”主要代码 商品计价 说明:如果lst_Goods.Selected(i) 的值为True,表示某项商品为选中,则将其价格累加到总金额中 在“数据输入”按钮中编写如下代码 Dim yn As Integer ‘该变量用来标记用户所做的选择 yn = vbYes ‘为第一次进入循环作准备 i = 0 Do While yn = vbYes And i 20 i = i + 1 m_strArrName(i) = InputBox(输入第 Str(i) 个员工姓名) m_strArrNum(i) = InputBox(输入第 Str(i) 个员工编号) m_intArrWage(i) = Val(InputBox(输入第 Str(i) 个员工工资)) m_intArrPrz(i) = Val(InputBox(输入第 Str(i) 个员工奖金)) m_intArrSud(i) = Val(InputBox(输入第 Str(i) 个员工各种补助)) yn = MsgBox(是否继续输入？, vbYesNo) Loop 在上一章中变量的定义的基础上，将数组的下标下界改为20； 仍然由inputbox函数输入数据，用Do While循环由用户自己决定输入多少组数据 Do While循环在VB案例中的应用 说明:这里的循环条件为复合条件,即由两个变量控制循环:其一是数据总组数不能超过20,其二是用户的选择,如果用户选择”继续输入”则进入循环体,否则退出循环 在列表框中选中的项数预先是不知道的,只能用Do While循环 i=0 Do while i lst_1.ListCount if lst_1.Selected(i) then cmb_1.AddItem lst_1.List(i) lst_1.RemoveItem i Else i=i+1 End if Loop 在列表框