實驗十四 過程(續(xù))

1、實驗實驗十四過程（續(xù)）【實驗實驗目的目的】1、掌握自定、掌握自定義子過程以及函數(shù)程以及函數(shù)過程的定程的定義和調用方法用方法2、掌握形參和、掌握形參和實參對應對應關系；關系；3、掌握、掌握值傳遞值傳遞和地址和地址傳遞傳遞的傳遞傳遞方式以及區(qū)方式以及區(qū)別。【實驗實驗內容內容】1、編寫一個包含多個窗體及多個模塊的工程：窗體1：主窗體，放置按扭準備調用其他窗體；窗體2：輸入一個數(shù)，顯示它是否幸運數(shù)；幸運數(shù):指前兩位數(shù)字之和等于后兩位數(shù)字之和的數(shù)

2、。窗體3：輸入兩個數(shù)，顯示它們之間的所有幸運數(shù)；窗體4：輸入一個數(shù)，顯示比它小的最大幸運數(shù)；【提示提示】?編寫判斷一個四位數(shù)是否幸運數(shù)的函數(shù)函數(shù)過程sum（返回返回值是邏輯邏輯型），放型），放在主窗體中在主窗體中。注意注意，函數(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()