vb06( 在程序中使用数组与循环结构)

1、项目单元项目单元6 应用数组和循环扩充应用数组和循环扩充“员员工工资管理系统工工资管理系统”的功能的功能 目录目录:6.1 在程序中使用数组在程序中使用数组6.2 在程序中使用循环结构在程序中使用循环结构6.1 6.1 在程序设计使用数组在程序设计使用数组 1 问题引入和问题分析问题引入和问题分析2 数组的概念数组的概念3 一维数组的声明一维数组的声明3 一维数组的使用一维数组的使用使用没有定义的数组数组下标越界4 给一维数组赋值的函数给一维数组赋值的函数Array函数函数5 数组的应用数组的应用- -引例引例数组的应用数组的应用- -引例引例Private Sub Form_Load() m

2、_strArrWeek(1) = 星期一星期一 m_strArrWeek(2) = 星期二星期二 i = Weekday(Date, vbMonday) lbl_Week.Caption = m_strArrWeek(i) End SubPrivate Sub Timer1_Timer() i = i + 1 If i 6 Then i = 0 lbl_Week.Caption = m_strArrWeek(i)End Sub 6 用一维数组存放员工工资信息用一维数组存放员工工资信息定义通用数组说明 本案例中使用数组后,好处在于: 1. 变量的定义得以简化 2. 在各浏览按钮中的主要代码完全一

3、样,为以后的内容奠定了基础.6 用一维数组存放员工工资信息用一维数组存放员工工资信息“第一个第一个”按钮按钮 i = 1 txt_Num.Text = m_strArrNum(i) txt_Name.Text = m_strArrName(i) txt_Wage.Text = m_intArrWage(i) txt_Prize.Text = m_intArrPrz(i) txt_Subsidy.Text = m_intArrSud(i) 其他按钮只需将其他按钮只需将i的赋值改成对应的序号的赋值改成对应的序号,其他语句完全相同其他语句完全相同,可直接复制可直接复制7 控件数组控件数组 8 在在V

4、B案例中使用控件数组案例中使用控件数组1.将各文本框的名称依次改为将各文本框的名称依次改为:txt_Wageinfo,则所有文本框组则所有文本框组成为控件数组成为控件数组.2.将四个按钮的名称依次改为将四个按钮的名称依次改为:cmd_BrsPrivate Sub cmd_Brs_Click(Index As ) i = index +1 txt_WageInfo(0).Text = m_strArrNum(i) txt_WageInfo(1).Text = m_strArrName(i) txt_WageInfo(2).Text = m_intArrWage(i) txt_WageInfo(3

5、).Text = m_intArrPrz(i) txt_WageInfo(4).Text = m_intArrSud(i) End sub说明:程序中的语句i = index + 1 表示当前所浏览的员工序号与按钮控件数组的下标的关系,如”第一个”按钮的Index值为0,浏览的为第1 组数据.这样一来,这一组代码即可代码前面章节中的四段代码,程序得到了极大的简化.6.2 6.2 循环结构程序设计循环结构程序设计 1 问题引入和问题分析问题引入和问题分析在屏幕上显示在屏幕上显示5个数个数2 For循环结构语法格式循环结构语法格式流程图如图所示流程图如图所示 For循环结构执行过程循环结构执行过程

6、3 For3 For循环结构的应用循环结构的应用For i = 1 to 100 s = s + iNext iPrivate 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

7、_Mnum.Caption = Image1.Picture = LoadPicture() End If Next iEnd Sub此循环的作用是将用户在文框中输入的内容与四个准考证变量逐个比较,一旦发现相同的就退出循环4 相关知识：相关知识： Exit For 6 For6 For循环在循环在VBVB中的应用中的应用在在“数据输入数据输入”按钮中编写如下代码按钮中编写如下代码Private Sub cmd_Input_Click()For i = 1 To 10 m_strArrName(i)=InputBox(请输入第请输入第 & Str(i) & 个员工姓名个员工姓名)

8、 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) & 个员工各种补助个员工各种补助)NextEnd SubPrivate Sub cmd_

9、Next_Click() If i 10 Then i = i + 1 Else MsgBox 已是最后一条了已是最后一条了 End If End SubPrivate Sub cmd_Next_Click() If i 1 Then i = i - 1 Else MsgBox “已是第一条了已是第一条了 End If End Sub7 For循环的应用循环的应用(课堂实训课堂实训)说明：txt_result为界面上文本框名称t = 1 For i = 1 to 10t=t*iNext itxt_result.Text = t题目要求：要点分析：目要求：要点分析：For i=1 to 20 i

10、f m_a(i) mod = 0 then k = k+1 统计偶数的个数统计偶数的个数 else l = l+1 统计奇数的个数统计奇数的个数 end ifNext i 题目要求：要点分析：目要求：要点分析：a_max = a(1):a_min = a(1)For i=2 to 10 if m_a(i) a_max then a_max = m_a(i) 将较大的数组元素赋将较大的数组元素赋给变量给变量 end if if m_a(i) a_min then a_min = m_a(i) 将较小的数组元素赋将较小的数组元素赋给变量给变量 end if 8 Do While 循环结构循环结构

11、用用Do While循环结构循环结构:i= 1 Do While i = 5 Print i i = i+1Loop 用用For循环结构循环结构:For i = 1 to 5Print iNext I9 Do While 9 Do While 循环结构语法格式循环结构语法格式(1)(1)控制循环的变量赋初值控制循环的变量赋初值Do While 循环条件循环条件 控制循环的变量赋值控制循环的变量赋值Loop9 Do While 9 Do While 循环结构语法格式循环结构语法格式(2)(2)控制循环的变量赋初值控制循环的变量赋初值Do 控制循环的变量赋值控制循环的变量赋值Loop While

12、循环条件循环条件10 10 相关知识相关知识:Do Until:Do UntilDo Until LoopDo Loop Until 11 Do While11 Do While循环的应用循环的应用Total = 0i = 1Do While Total 2000 Tem = Int(Rnd * 50) + 1 Total =Total + tem i = i + 1Loop组合框列表框 yn = MsgBox(真的要删除所有选中的商品吗？真的要删除所有选中的商品吗？, vbYesNo) If yn = vbYes Then i = 0 Do While i = lst_goods.ListC

13、ount - 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 t

14、otal 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在在“数据输入数据输入”按钮中编写如下代码按钮中编写如下代码 Dim yn As Integer 该变量用来标记用户所做的选择该变量用来标记用户所做的选择 yn = vbYes 为第一次进入循环作准备为第一次进入循环作准备 i = 0 Do Wh

15、ile 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(输入第输入第 &