vb06在程序中使用数组和循环结构.pptVIP

项目单元6 应用数组和循环扩充“员工工资管理系统”的功能 6.1 在程序设计使用数组 1 问题引入和问题分析 2 数组的概念 3 一维数组的声明 3 一维数组的使用 4 给一维数组赋值的函数——Array函数 5 数组的应用-引例 数组的应用-引例 Private Sub Form_Load() m_strArrWeek(1) = 星期一 m_strArrWeek(2) = 星期二 … i = Weekday(Date, vbMonday) lbl_Week.Caption = m_strArrWeek(i) End Sub Private Sub Timer1_Timer() i = i + 1 If i 6 Then i = 0 lbl_Week.Caption = m_strArrWeek(i) End Sub 6 用一维数组存放员工工资信息 6 用一维数组存放员工工资信息 7 控件数组 8 在VB案例中使用控件数组 6.2 循环结构程序设计 1 问题引入和问题分析 2 For循环结构语法格式 For循环结构执行过程 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 4 相关知识： Exit For 6 For循环在VB中的应用 7 For循环的应用(课堂实训) 8 Do While 循环结构 用Do While循环结构: i= 1 Do While i = 5 Print i i = i+1 Loop 9 Do While 循环结构语法格式(1) 9 Do While 循环结构语法格式(2) 10 相关知识:Do Until 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 本单元容易出错的地方 12 课堂实训和课后作业 用For循环结构: For i = 1 to 5 Print i Next I 初步认识Do While循环 引例:在屏幕上显示1,2,…5五个数 比较两种循环可以看出:Do While循环中循环变量的赋值