vb06( 在程序中使用數(shù)組與循環(huán)結(jié)構(gòu))

1、項(xiàng)目單元項(xiàng)目單元6 應(yīng)用數(shù)組和循環(huán)擴(kuò)充應(yīng)用數(shù)組和循環(huán)擴(kuò)充“員員工工資管理系統(tǒng)工工資管理系統(tǒng)”的功能的功能 目錄目錄:6.1 在程序中使用數(shù)組在程序中使用數(shù)組6.2 在程序中使用循環(huán)結(jié)構(gòu)在程序中使用循環(huán)結(jié)構(gòu)6.1 6.1 在程序設(shè)計(jì)使用數(shù)組在程序設(shè)計(jì)使用數(shù)組 1 問題引入和問題分析問題引入和問題分析2 數(shù)組的概念數(shù)組的概念3 一維數(shù)組的聲明一維數(shù)組的聲明3 一維數(shù)組的使用一維數(shù)組的使用使用沒有定義的數(shù)組數(shù)組下標(biāo)越界4 給一維數(shù)組賦值的函數(shù)給一維數(shù)組賦值的函數(shù)Array函數(shù)函數(shù)5 數(shù)組的應(yīng)用數(shù)組的應(yīng)用- -引例引例數(shù)組的應(yīng)用數(shù)組的應(yīng)用- -引例引例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 用一維數(shù)組存放員工工資信息用一維數(shù)組存放員工工資信息定義通用數(shù)組說明 本案例中使用數(shù)組后,好處在于: 1. 變量的定義得以簡(jiǎn)化 2. 在各瀏覽按鈕中的主要代碼完全一

3、樣,為以后的內(nèi)容奠定了基礎(chǔ).6 用一維數(shù)組存放員工工資信息用一維數(shù)組存放員工工資信息“第一個(gè)第一個(gè)”按鈕按鈕 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的賦值改成對(duì)應(yīng)的序號(hào)的賦值改成對(duì)應(yīng)的序號(hào),其他語句完全相同其他語句完全相同,可直接復(fù)制可直接復(fù)制7 控件數(shù)組控件數(shù)組 8 在在V

4、B案例中使用控件數(shù)組案例中使用控件數(shù)組1.將各文本框的名稱依次改為將各文本框的名稱依次改為:txt_Wageinfo,則所有文本框組則所有文本框組成為控件數(shù)組成為控件數(shù)組.2.將四個(gè)按鈕的名稱依次改為將四個(gè)按鈕的名稱依次改為: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 表示當(dāng)前所瀏覽的員工序號(hào)與按鈕控件數(shù)組的下標(biāo)的關(guān)系,如”第一個(gè)”按鈕的Index值為0,瀏覽的為第1 組數(shù)據(jù).這樣一來,這一組代碼即可代碼前面章節(jié)中的四段代碼,程序得到了極大的簡(jiǎn)化.6.2 6.2 循環(huán)結(jié)構(gòu)程序設(shè)計(jì)循環(huán)結(jié)構(gòu)程序設(shè)計(jì) 1 問題引入和問題分析問題引入和問題分析在屏幕上顯示在屏幕上顯示5個(gè)數(shù)個(gè)數(shù)2 For循環(huán)結(jié)構(gòu)語法格式循環(huán)結(jié)構(gòu)語法格式流程圖如圖所示流程圖如圖所示 For循環(huán)結(jié)構(gòu)執(zhí)行過程循環(huán)結(jié)構(gòu)執(zhí)行過程

6、3 For3 For循環(huán)結(jié)構(gòu)的應(yīng)用循環(huán)結(jié)構(gòu)的應(yīng)用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此循環(huán)的作用是將用戶在文框中輸入的內(nèi)容與四個(gè)準(zhǔn)考證變量逐個(gè)比較,一旦發(fā)現(xiàn)相同的就退出循環(huán)4 相關(guān)知識(shí)：相關(guān)知識(shí)： Exit For 6 For6 For循環(huán)在循環(huán)在VBVB中的應(yīng)用中的應(yīng)用在在“數(shù)據(jù)輸入數(shù)據(jù)輸入”按鈕中編寫如下代碼按鈕中編寫如下代碼Private Sub cmd_Input_Click()For i = 1 To 10 m_strArrName(i)=InputBox(請(qǐng)輸入第請(qǐng)輸入第 & Str(i) & 個(gè)員工姓名個(gè)員工姓名)

8、 m_strArrNum(i)=InputBox(請(qǐng)輸入第請(qǐng)輸入第 & Str(i) & 個(gè)員工編號(hào)個(gè)員工編號(hào)) m_intArrWage(i)=Val(InputBox(請(qǐng)輸入第請(qǐng)輸入第 & Str(i) & 個(gè)員工工資個(gè)員工工資) m_intArrPrz(i)=Val(InputBox(請(qǐng)輸入第請(qǐng)輸入第 & Str(i) & 個(gè)員工獎(jiǎng)金個(gè)員工獎(jiǎng)金) m_intArrSud(i)=Val(InputBox(請(qǐng)輸入第請(qǐng)輸入第 & Str(i) & 個(gè)員工各種補(bǔ)助個(gè)員工各種補(bǔ)助)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循環(huán)的應(yīng)用循環(huán)的應(yīng)用(課堂實(shí)訓(xùn)課堂實(shí)訓(xùn))說明：txt_result為界面上文本框名稱t = 1 For i = 1 to 10t=t*iNext itxt_result.Text = t題目要求：要點(diǎn)分析：目要求：要點(diǎn)分析：For i=1 to 20 i

10、f m_a(i) mod = 0 then k = k+1 統(tǒng)計(jì)偶數(shù)的個(gè)數(shù)統(tǒng)計(jì)偶數(shù)的個(gè)數(shù) else l = l+1 統(tǒng)計(jì)奇數(shù)的個(gè)數(shù)統(tǒng)計(jì)奇數(shù)的個(gè)數(shù) end ifNext i 題目要求：要點(diǎn)分析：目要求：要點(diǎn)分析：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) 將較大的數(shù)組元素賦將較大的數(shù)組元素賦給變量給變量 end if if m_a(i) a_min then a_min = m_a(i) 將較小的數(shù)組元素賦將較小的數(shù)組元素賦給變量給變量 end if 8 Do While 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu)

11、用用Do While循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu):i= 1 Do While i = 5 Print i i = i+1Loop 用用For循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu):For i = 1 to 5Print iNext I9 Do While 9 Do While 循環(huán)結(jié)構(gòu)語法格式循環(huán)結(jié)構(gòu)語法格式(1)(1)控制循環(huán)的變量賦初值控制循環(huán)的變量賦初值Do While 循環(huán)條件循環(huán)條件 控制循環(huán)的變量賦值控制循環(huán)的變量賦值Loop9 Do While 9 Do While 循環(huán)結(jié)構(gòu)語法格式循環(huán)結(jié)構(gòu)語法格式(2)(2)控制循環(huán)的變量賦初值控制循環(huán)的變量賦初值Do 控制循環(huán)的變量賦值控制循環(huán)的變量賦值Loop While

12、循環(huán)條件循環(huán)條件10 10 相關(guān)知識(shí)相關(guān)知識(shí):Do Until:Do UntilDo Until LoopDo Loop Until 11 Do While11 Do While循環(huán)的應(yīng)用循環(huán)的應(yīng)用Total = 0i = 1Do While Total 2000 Tem = Int(Rnd * 50) + 1 Total =Total + tem i = i + 1Loop組合框列表框 yn = MsgBox(真的要?jiǎng)h除所有選中的商品嗎？真的要?jiǎng)h除所有選中的商品嗎？, 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(請(qǐng)輸入商品名稱請(qǐng)輸入商品名稱) lst_Price.AddItem InputBox(請(qǐng)輸入商品價(jià)格請(qǐng)輸入商品價(jià)格) yn = MsgBox(是否繼續(xù)增加商品是否繼續(xù)增加商品?, 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在在“數(shù)據(jù)輸入數(shù)據(jù)輸入”按鈕中編寫如下代碼按鈕中編寫如下代碼 Dim yn As Integer 該變量用來標(biāo)記用戶所做的選擇該變量用來標(biāo)記用戶所做的選擇 yn = vbYes 為第一次進(jìn)入循環(huán)作準(zhǔn)備為第一次進(jìn)入循環(huán)作準(zhǔn)備 i = 0 Do Wh

15、ile yn = vbYes And i 20 i = i + 1 m_strArrName(i) = InputBox(輸入第輸入第 & Str(i) & 個(gè)員工姓名個(gè)員工姓名) m_strArrNum(i) = InputBox(輸入第輸入第 & Str(i) & 個(gè)員工編號(hào)個(gè)員工編號(hào)) m_intArrWage(i) = Val(InputBox(輸入第輸入第 & Str(i) & 個(gè)員工工資個(gè)員工工資) m_intArrPrz(i) = Val(InputBox(輸入第輸入第 & Str(i) & 個(gè)員工獎(jiǎng)金個(gè)員工獎(jiǎng)金) m_intArrSud(i) = Val(InputBox(輸入第輸入第 &