實(shí)驗(yàn)十四 過程(續(xù))

1、實(shí)驗(yàn)實(shí)驗(yàn)十四過程（續(xù)）【實(shí)驗(yàn)實(shí)驗(yàn)?zāi)康哪康摹?、掌握自定、掌握自定義子過程以及函數(shù)程以及函數(shù)過程的定程的定義和調(diào)用方法用方法2、掌握形參和、掌握形參和實(shí)參對(duì)應(yīng)對(duì)應(yīng)關(guān)系；關(guān)系；3、掌握、掌握值傳遞值傳遞和地址和地址傳遞傳遞的傳遞傳遞方式以及區(qū)方式以及區(qū)別?！緦?shí)驗(yàn)實(shí)驗(yàn)內(nèi)容內(nèi)容】1、編寫一個(gè)包含多個(gè)窗體及多個(gè)模塊的工程：窗體1：主窗體，放置按扭準(zhǔn)備調(diào)用其他窗體；窗體2：輸入一個(gè)數(shù)，顯示它是否幸運(yùn)數(shù)；幸運(yùn)數(shù):指前兩位數(shù)字之和等于后兩位數(shù)字之和的數(shù)

2、。窗體3：輸入兩個(gè)數(shù)，顯示它們之間的所有幸運(yùn)數(shù)；窗體4：輸入一個(gè)數(shù)，顯示比它小的最大幸運(yùn)數(shù)；【提示提示】?編寫判斷一個(gè)四位數(shù)是否幸運(yùn)數(shù)的函數(shù)函數(shù)過程sum（返回返回值是邏輯邏輯型），放型），放在主窗體中在主窗體中。注意注意，函數(shù)過程是必須是全局全局級(jí)的（即在函數(shù)定義時(shí)加IfVal(Text1)Val(Text2)Thena=1Elsea=1EndIfFi=Val(Text1)ToVal(Text2)StepaIfFm1.sum(CStr

3、(i))ThenList1.AddItemCStr(i)NextiEndSubPrivateSubComm2_Click()UnloadFm3EndSubPrivateSubComm1_Click()n=Val(Text1)1DoWhileTrueIfFm1.sum(CStr(n))ThenLabel1.Caption=CStr(n)ExitDoElsen=n1EndIfLoopEndSubPrivateSubComm2_Click()