Form1添加一個文本框Text1,通過屬性窗口設(shè)置窗體和文本框的屬性,實現(xiàn)如下功能

1、基礎(chǔ)題【解題思路】文本框控件的 MultiLine屬性用于設(shè)置文本框是否能以多行顯示文本，值為 True表示允許，值為False表示不允許； Font屬性用于設(shè)置控件標(biāo)題中文本的字體、字號和字型 等。Text屬性用于設(shè)置文本框中顯示的文本。窗體標(biāo)題通過其Caption屬性設(shè)置。【操作步驟】步驟1建立界面，并設(shè)置控件的屬性。程序中用到的控件及屬性見表3.110和表3.111。表 3.110控件窗體屬性NameCapti on設(shè)置值Form1設(shè)置文本框?qū)傩员?3 111控件文本框?qū)傩訬ameTextMultilineScrallBarsFant設(shè)置值Textl程序設(shè)計TRUE2三號、常規(guī)、黒體步驟

2、2:調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤?；A(chǔ)題(2)【解題思路】在窗體上建立控件后，先設(shè)置控件的屬性，再編寫事件過程。單擊命令按鈕觸發(fā) Click事件。利用按鈕的Height和Width屬性來改變按鈕的大?。焕冒粹o 的Left和Top屬性來改變按鈕的位置?！静僮鞑襟E】步驟1:建立界面，并設(shè)置控件的屬性。程序中用到的控件及屬性見表3.112。表 3.112令專按鋰1NawC dplion(jncLlCmdlCmdlCine 12步驟2:編寫程序代碼。參考答案Opti on ExplicitPrivate Sub Cmd1_Click()Cmd1 .L eft = 0Cmd1.Top =

3、0End Sub簡單題(1)【解題思路】Rnd()函數(shù)用于產(chǎn)生一個小于1但大于或等于0的隨機數(shù)。本題程序用變量 Max記錄最大數(shù)，最初把數(shù)組的第一個元素的值賦給Max，然后通過For循環(huán)語句將其后的元素依次與之比較，如果其值大于Max則將其賦值給Max，依次類推，最終Max的值就是數(shù)組各元素中的最大值?！静僮鞑襟E】步驟1:打開本題工程文件。步驟2：分析并編寫程序代碼。程序提供代碼Optio n Base 1Private Sub Comma nd1_Click()Dim arrN(30) As In tegerDim Max As In tegerRan domizeFor i = 1 To

4、30'arrN(i) = Int(Rnd * ？)Next i'? = arrN(1)For i = 2 To 30'If ? The nMax = arrN(i)End IfNext iPrint MaxEnd Sub程序結(jié)束參考答案第1個？處填入：1000第2個？處填入：Max第3個？處填入：arrN(i) > Max 或Max < arrN(i)簡單題(2)【解題思路】 本題要求的是1000以內(nèi)能被5或7整除的數(shù)的個數(shù)。在Visual Basic中，使用Mod 運算符來判斷一個數(shù)是否可以被另一個數(shù)整除，如果計算結(jié)果為0,則表示可以整除，否則不能整除?！?/p>

5、操作步驟】步驟1打開本題工程文件。步驟2:分析并編寫程序代碼。參考答案Fun cti on Fun()Dim s As In teger, i As In tegerFor i = 1 To 1000If i Mod 5 = 0 Or i Mod 7 = 0 The n s = s + 1End IfNext iFun = sEnd FunctionPrivate Sub Cmd2_Click()Cmd2.Height = Cmd2.Height * 2Cmd2.Width = Cmd2.Width * 2 End Sub【解題思路】Tab函數(shù)常與Print #語句或Print方法一起使用，對

6、輸出進行定位，其語法為:Tab( n)其中，可選的參數(shù)n表示在顯示或打印下一個表達式之前移動的列數(shù)。在使用數(shù)組時，應(yīng)先定義。In put #語句用于讀取順序文件中一項（或多項）數(shù)據(jù)給一個變量（或多個變量），其語法格式 為：In put # FileNumber ， Varlist其中：FileNumber參數(shù)表示打開文件的句柄，Varlist為變量列表。語句"Option Base 1"用于限定數(shù)組下標(biāo)的下限默認(rèn)為1。本題中文件以In put方式打開，使用一個 5行、5列的二維數(shù)組Mat來存放數(shù)據(jù)，并使用一個 嵌套的For循環(huán)顯示矩陣，對于 5*5的矩陣來說，位于左上到右下

7、對角線上的元素具有行號等于 列號的特點?！静僮鞑襟E】步驟1:打開本題工程文件。步驟2：分析并編寫程序代碼。程序提供代碼Option Base 1 Private Sub Form_Click()Const N = 5Const M = 5 'Dim ?Dim i, j' Open App.Path & "" & "datain.txt"? As #1For i = 1 To NFor j = 1 To M '?Next jNext iClose #1PrintPrint " 初始矩陣為： "PrintFor i = 1 To NFor j = 1 To MPrint Tab(5 * j); Mat(i, j) ；Next jPrintNext iPrintPrint " 左上 右下對角線上的數(shù)為： "For i = 1 To NFor j= 1 To M'If ? Then Print Tab(5 * j); Mat(i, j) ；Next jNext iEnd Sub程序結(jié)束參考答案第 1個？處填入： Mat(N,