【正文】 13 24 35 46 57 68 79 80 59 37 程序運(yùn)行后單擊窗體，將把文件 Mat中， 在窗體上按 5行、 5列的矩陣形式顯示出來，然后交換矩陣第二列和第四列的 數(shù)據(jù)，并在窗體上輸出交換后的矩陣，如圖所示。移動(dòng)滑塊時(shí)，引發(fā) Change事件。 （ 1）在名稱為 Form1的窗體上畫一個(gè)標(biāo)簽，其名稱為 Label1，然后通過屬性窗 口設(shè)置窗體和標(biāo)簽的屬性，實(shí)現(xiàn)如下功能： 1）窗體標(biāo)題為“設(shè)置標(biāo)簽屬性” 2）標(biāo)簽的位置為：距窗體左邊界 500，距窗體頂邊界 300 3）標(biāo)簽的標(biāo)題為“等級考試” 4）標(biāo)簽可以根據(jù)標(biāo)題的內(nèi)容自動(dòng)調(diào)整其大小 5）標(biāo)簽帶有邊框 程序的運(yùn)行情況如圖所示。 其功能是產(chǎn)生 20個(gè) 0～ 1000的隨機(jī)整數(shù)，放入一個(gè)數(shù)組中，然后輸出這 20 個(gè)整數(shù)的平均值。最后把修改后的文件 按原文件名存盤。 \ amp。|,]] Spc（ n)函數(shù)用來在當(dāng)前的輸出位置加入 n個(gè)空白； Tab（ n)函數(shù)用來設(shè)置在第 n個(gè)位置寫入數(shù)據(jù)。 第 2小題： 打開一個(gè)工程文件 ，在窗體上有一個(gè)命令按鈕和一個(gè)文本框，要求計(jì)算出 0～ 1000范圍內(nèi)不能被 7整除的整數(shù)的個(gè)數(shù)，并在文本框中顯示，在 Function Fun()和 End Function之間補(bǔ)充代碼如下： Function Fun() Dim sum As Integer, i As Integer For i = 0 To 200 If i Mod 3 = 0 Then Print i sum = sum + i End If Next i = sum End Function 按要求保存文件即完成本題。 Value屬性代表滑塊所在位置滾動(dòng)條的當(dāng)前值。 要求： 不編寫任何代碼。程序運(yùn)行后，單擊命令按鈕（名稱為 Command1，標(biāo)題為 “輸出平均值”），即可求出其平均值，并在窗體上顯示出來（如圖所示 ）。 本題考查的是關(guān)于文件的操作和矩陣的應(yīng)用。 For Input As 1 For i = 1 To N For j = 1 To M Input 1, Mat(i, j) Next j