Visual Basic程序设计实用教vb06.ppt

第6章 循环结构程序设计 目录 6.1 问题引入和问题分析 6.2 For循环结构语法格式 For循环结构执行过程 6.3 For循环结构的应用 Private Sub txt_Num_Change() For i = 1 To 4 If txt_Num.Text = m_ArrNum(i) Then lbl_Name.Caption = m_ArrName(i) lbl_Mnum.Caption = m_ArrMnum(i) Image1.Picture = LoadPicture(App.Path + “\” i _ .jpg) Exit For Else lbl_Name.Caption = lbl_Mnum.Caption = Image1.Picture = LoadPicture() End If Next i End Sub 6.4 相关知识： Exit For 6.5 相关知识: Inputbox函数 6.6 For循环在VB中的应用 6.7 For循环的应用(课堂实训１) 6.8 Do While 循环结构 用Do While循环结构: i= 1 Do While i = 5 Print i i = i+1 Loop 6.9 Do While 循环结构语法格式(1) 6.9 Do While 循环结构语法格式(2) 6.10 相关知识:Do Until 6.11 Do While循环的应用 Total = 0 i = 1 Do While Total 2000 Tem = Int(Rnd * 50) + 1 Total =Total + tem i = i + 1 Loop 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 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 本章容易出错的地方 6.12 课堂实训和课后作业 1.AddItem :在列表框的最后增加一项 2.RemoveItem n:删除指定的项 组合框 列表框 相关知识:列表框与组合框 该控件的作用是列出许多项，供用户选择，并对某些项进行处理。 该控件组合了文本框与列表框的功能，既可以象文本框一样由用户输入内容，也可以象列表框一样列出许多项，由用户选择 1.ListCount:列表框中的总项数 2.List():列表框中各项的值 3.Text:列表框中最后选中项的值 4.MultiSelect:列表框多选方式 5.ListIndex:列表框中选中项的序号 6.Selected():列表框中各项选中的状态 列表框的主要方法: 列表框的主要属性 组合框控件： 列表框控件： “商品计价器”主要代码 删除商品: Dim yn yn = vbYes Do While yn = vbYes lst_Goods.AddItem InputBox(请输入商品名称) lst_Price.AddItem InputBox(请输入商品价格) yn = MsgBox(是否继续增加商品?, vbYesNo) Loop 增加商品 “商品计价