



下載本文檔
版權(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)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 2025年專升本藝術(shù)概論考試模擬卷:藝術(shù)與科技融合產(chǎn)業(yè)發(fā)展策略試題
- 2025年加拿大化學(xué)競賽(CCC)模擬試題:基礎(chǔ)化學(xué)與實驗設(shè)計實戰(zhàn)案例分析
- 2025年消防工程師綜合能力消防設(shè)施調(diào)試實戰(zhàn)模擬試卷
- 2025年校園專項工作細則及實施辦法
- BPHO物理競賽2025模擬試卷-力學(xué)與電磁學(xué)難題挑戰(zhàn)
- 2025年高考數(shù)學(xué)模擬檢測卷(數(shù)學(xué)新教材重點內(nèi)容:復(fù)數(shù)與三角函數(shù)解題技巧解析與應(yīng)用)
- 財務(wù)成本管理深度透析試題及答案
- 2025年河南省小學(xué)生美術(shù)技能等級考試試題集
- 2025年中考數(shù)學(xué)模擬試卷(一):初中數(shù)學(xué)難題解析與解題策略
- 2025學(xué)年濟南市歷下區(qū)七年級下學(xué)期期中歷史試卷(時間軸記憶技巧)
- 2024-2025年能源管理系統(tǒng)(EMS)行業(yè)市場分析報告
- 校園網(wǎng)規(guī)劃答辯
- 2024上海中考英語試卷及答案
- 財務(wù)管理專業(yè)就業(yè)指導(dǎo)
- 2024年江蘇省徐州市中考道德與法治試卷(附真題答案)
- 醫(yī)學(xué)細胞生物學(xué)(溫州醫(yī)科大學(xué))知到智慧樹章節(jié)答案
- 《初級會計實務(wù)》(第五版) 第九章 產(chǎn)品成本核算
- 2024年大學(xué)生道德觀
- 生涯發(fā)展展示-(第一版)
- 五角場綜合體項目設(shè)計任務(wù)書
- 肩袖損傷的治療及護理
評論
0/150
提交評論