Form1添加一個文本框Text1,通過屬性窗口設(shè)置窗體和文本框的屬性,實現(xiàn)如下功能_第1頁
Form1添加一個文本框Text1,通過屬性窗口設(shè)置窗體和文本框的屬性,實現(xiàn)如下功能_第2頁
Form1添加一個文本框Text1,通過屬性窗口設(shè)置窗體和文本框的屬性,實現(xiàn)如下功能_第3頁
Form1添加一個文本框Text1,通過屬性窗口設(shè)置窗體和文本框的屬性,實現(xiàn)如下功能_第4頁
全文預(yù)覽已結(jié)束

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認(rèn)領(lǐng)

文檔簡介

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,

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

最新文檔

評論

0/150

提交評論