實驗6 數(shù)組程序設(shè)計-文庫吧
2025-05-16 17:36 本頁面
【正文】 年和非閏年的 1~12月份的天數(shù)分為兩組，放置 在兩個 ListBox 中，定義一個兩維數(shù)組 mtable(2,12)，第一維作為閏年標(biāo)致，第二維作為月份天數(shù)。兩個 ListBox在運行時不顯示出來，見圖 66。對于固定 1 到 12 個月和 1 到 31 天這些數(shù)字，將它們放在兩個組合框中便于選擇。 實驗步驟： 1． 窗體布局設(shè)計 如 圖 65 所示 。 圖 65 計算天數(shù)窗體布局 圖 66 計算天數(shù)運行界面 2． 部分控件屬性設(shè)置 控件名稱 屬性名稱 屬性值 組合框 1 Name CmbMonth 93 Text 1 List 1 2 3 4 5 6 7 8 9 10 11 12 Style 0 組合框 2 Name CmbDay Text 1 List 1 2 3 4 5 6 7 8 ......30 31 Style 0 列表框 1 List 31 28 31 30 31 20 31 31 30 31 30 31 Visible False 列表框 2 List 31 29 31 30 31 20 31 31 30 31 30 31 Visible False 閏年顯示標(biāo)簽框 Name LabLeap Caption 閏年 Font 斜體 4 號字 Visible False 3． 添加代碼 Option Base 1 ’數(shù)組下標(biāo)從 1 開始 Private Sub CmdCountdays_Click() Dim days As Integer, i As Integer, leap As Integer Dim mtable(2, 12) As Integer For j = 1 To 12 mtable(1, j) = (j 1) ’將非閏年的月份天數(shù)賦給數(shù)組 Next j For j = 1 To 12 mtable(2, j) = (j 1) ’將閏年的月份天數(shù)賦給數(shù)組 Next j leap = 1 ’標(biāo)志閏年的變量賦初值 1 If (TxtYear Mod 4 = 0 And TxtYear Mod 100 0 Or TxtYear Mod 400 = 0) Then leap = 2 ’閏年則標(biāo)志變量值變?yōu)?2 = True ’閏年標(biāo)簽出現(xiàn) End If days = For i = 1 To 1 days = days + mtable(leap, i) ‘閏年標(biāo)志作變量為下標(biāo)變量 94 Next i = days End Sub Private Sub TxtYear_Change() = False 39。 輸入年份時，閏年標(biāo)簽隱藏 End Sub Private Sub CmdExit_Click() Unload Me End Sub 4． 保存文件， 調(diào)試 運行 。隨機 輸入四位數(shù)的不同年份，仔細(xì)體驗各種控件、屬性、事件的作用；深刻理解 leap 變量的作用。 實驗 實驗任務(wù)： 編程 隨機產(chǎn)生 15 個不重復(fù)的英文大寫字母，存放在字符數(shù)組中并顯示出來。 提示： 1．可以 利用函數(shù) Rnd 和 Chr 使得隨機產(chǎn)生數(shù)值可轉(zhuǎn)變?yōu)樽址? 2． 每產(chǎn)生一個新的字符要與已經(jīng)存在的字符逐一比較，非重復(fù)字符方可存入。 實驗 實驗任務(wù)： 編程 產(chǎn)生 10 個二位隨機整數(shù)，按升序排列。 提示 ： 假設(shè)在數(shù)組 A中存放 N 個無序數(shù)據(jù)，要求將這 N 個數(shù)按升序重新排列。 第一輪比較：將 A（ 1）和 A（ 2）比較，若 A（ 1） A（ 2）則交換這兩個數(shù)組元素的值，否則不交換；然后再用 A（ 2）和 A（ 3）比較，處理方法相同； ? ? 以此類推，直到 A（ N1）和 A（ N）比較后，這時 A（ N）中就存放了 N 個數(shù)中最大的數(shù)。 第二輪比較：將 A（ 1）和 A（ 2）、 A（ 2）和 A（ 3）， ? ? ， A（ N2）和 A（ N1）比較，處理方法和第一輪相同，這一輪比較結(jié)束后 A（ N1）中就存放了 N個數(shù)中第二大的數(shù)。 第 N1 輪比較：將 A（ 1）和 A（ 2）進(jìn)行比較，處理方法同上，比較結(jié)束后，這 N個數(shù)按從小到大的次序排列好。 95 這種排序方法較 冒泡排序 ，它 與選擇排序法的不同之處在于：選擇排序法每一輪比較是拿固定位置的數(shù)組元素和其后的若干數(shù)組元素依次比較；而冒泡排序法則是將相鄰的兩個數(shù)組元素進(jìn)行比較，實現(xiàn)上類似但不完全相同。 實驗步驟： 1． 完善代碼 Private Sub Form_click() Dim rndArray(10) As Integer Dim i As Integer， j As Integer， temp As Integer Randomize ’隨機語句 Print 排序前： For i = 1 To 10 rndArray(i) = Int(90 * Rnd + 10) ’Rnd隨機函數(shù) Print rndArray(i)。 Next i For i = 1 To _____________ For j = ______ To _____________ If _________________ Then temp = ______ ________ __________ End If Next j Next i Print Print 排序后： For i = 1 To 10 Print rndArray(i)。 Next i Print End Sub 2． 保存文件， 調(diào)試 運行。 96 實驗 實驗任務(wù)： 編程對任意 輸入的英文短語加密和解 密 。 要求 （ 1）按照原字母 ASCII 碼加 2的規(guī)則進(jìn)行加密。（ 2）按照加密后的字母 ASCII 碼減 2的規(guī)則進(jìn)行解密。（ 3）用 InputBox從鍵盤輸入短語；加密和解密的結(jié)果用 MsgBox輸出。 提示： 可以 用 四個命令按鈕構(gòu)成 控件數(shù)組。編制代碼時用 IFThenElse 對控件數(shù)組的下標(biāo)（ Index）進(jìn)行判 斷，以便執(zhí)行相應(yīng)的操作。 實驗 步驟： 1． 在窗體上擺放一個命令按鈕，并對其設(shè)置相關(guān)屬性（見屬性設(shè)置表），用復(fù)制、粘貼的方法產(chǎn)生另外兩個命令按鈕。形成控件數(shù)組 ， 見圖 67。 2． 屬性設(shè)置 控件 屬性 設(shè)置值 窗體 1 Caption 加密解蜜 命令按鈕 1（ 0） Name cmdOperate Capt
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1