版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)
文檔簡介
1、誠信應(yīng)考,考試作弊將帶來嚴重后果!)封 題 答 不 內(nèi) 線 封 密華南理工大學(xué)期末考試VB高級語言程序設(shè)計試卷題號-一一二二三三四五總分得分評卷人注意事項:1.考前請將密封線內(nèi)各項信息填寫清楚;2.所有答案請直接答在試卷上(或答題紙上);3考試形式:閉卷;4.本試卷共五 大題,滿分100分, 考試時間120分鐘o、填空題(每空1分,共10分)1. VB中過程的參數(shù)傳遞有兩種方式:()和()o2. 若 x=2, y=4 和 z=6,則邏輯表達式Not(x>y) Or x+y+z<50 And 100/z<y 的值為( )。3. 用隨機函數(shù)Rnd生成大于或等于1,小于10的隨機整
2、數(shù)值的表達式:()。4. 已知數(shù)組元素 A(1)=4,A(2)=2,A(3)=1,A(4)=3 ,貝U A(A(1)+A(2)-A(4)的值為 ()。5. Dim a#語句聲明變量a是()型變量。6. 若以寫的方式打開順序文件”d:file1.dat ” (文件號為5),則正確的語句是()。7. 在窗體上使用Print方法輸出列表框List1中序號為5項目內(nèi)容,語句為()。8. 向組合框Combo5添加序號為3,內(nèi)容為"華南理工大學(xué)”的項目,使用的語句為( )9. 當單選按鈕 OptionButton 的Value屬性為()時,表示該單選按鈕處于未選中狀態(tài)。10. 若在標準模塊中以關(guān)
3、鍵字public定義子過程,則在()中都可以調(diào)用該子過程。:、單項選擇題(每題1.5分,共30分)1、指示一個窗體位置的值是窗體的()A)對象 B )事件C )屬性 D )方法2、 在VB中,下列變量名不合法的是 。A.姓名B. a$bC. sum% D. n0_13、數(shù)學(xué)式子sin25°寫成VB表達式是A. sin25B. Sin ( 25)C. Sin (25*3.14/180 )D. Sin(25 ° )4、 設(shè)窗體上有一個滾動條,單擊滾動條右端的按鈕一次,滾動條移動一定的刻度值, 決定此刻度值的屬性是 。A. Max B. MinC. SmallCha ngeD.
4、Largecha nge5、下面循環(huán)語句中在任何情況下都至少執(zhí)行一次循環(huán)體的是 A. Do While<條件 >循環(huán)體LoopC. Do循環(huán)體Loop Un til < 條件 >執(zhí)行下列程序段輸出結(jié)果是(X%=2Do while x <8 Print *" X=x+2LoopA. *B *C *B.D.D *While < 條件 >循環(huán)體WendDo Un til < 條件 > 循環(huán)體Loop以下錯誤的選項是(若把圖片框Picturel中的圖形清除,A. Picturel.DelB. Picturel.Picture = Load
5、Picture(""C. Picturel.Picture = LoadPicture(D. Picture1.Picture=Noth ing8、工程文件的擴展名是_A. vbgB.vbpC.vbwD.vbl9、設(shè) a=2,b=3,c=4,d=5,表達式 3>2*b OR a=c AND b <>c OR c>d 的值是A. 1B. TrueC. FalseD. -110、在設(shè)計階段,當雙擊窗體上的某個控件時,所打開的窗口是 。A.工程資源管理器窗口B.工具箱窗口C.代碼窗口D.屬性窗口11、運行下列程序,結(jié)果為。const a=2a=4 : pr
6、int aA.2B. 4C. 0D.出錯12、要用數(shù)組 A存放如下方陣的數(shù)據(jù),如果不浪費存儲空間,說明數(shù)組 是。9 2 32 5 63 6 8A的語句應(yīng)A . Dim A(9) As IntegerB. Dim A(3,3) As IntegerC. Dim A(-1 to 1,-3 to -1) As SingleD . Dim A(-3 to -1,1 to 3) As Integer13、在窗體上畫一個水平滾動條,名稱為要想使用滾動條滑塊的變化量來調(diào)用HScrolH;再畫一個文本框,名稱為 Text1。 文本框中文字的大小,則可滿足的語句A. Text1.FontName= HScrol
7、l1.MaxB. Text1.FontSize= HScroll1.MinC. Textl.FontSize= HScrolll.valueD. Textl.FontBold= HScrolll.value14、按文件的內(nèi)容劃分有。A. 順序文件和隨機文件B. ASCII文件和二進制文件C. 程序文件和數(shù)據(jù)文件D. 磁盤文件和打印文件15、在下列語句中,數(shù)組 a說明正確的是()A) n=5 : Dim a(1 to n) As In tegerB) Dim a(10) As Integer : ReDim a(1 to 12)C) Dim a() As Single : ReDim a(3,
8、4) As IntegerD) Dim a() As In teger : n=5 : ReDim a(1 to n) As In teger三、程序閱讀題(每題6分,共24分)1. 寫出執(zhí)行下列事件過程的輸出結(jié)果。Private Sub Form_Click()Dim i, x, yFori = 1 To 3x = i*i + 2Select Case xCase 6y = x/4 + 6Case 10 To 20y = x*xCase Elsey = 0End SelectPrint " x=" x, "y=" yNext iEnd Sub2. 寫出
9、單擊Command1按鈕后,下列程序運行的結(jié)果。Private Sub Comma nd1_Click()Dim a(1 To 9) As In tegerDim b(1 To 3, 1 To 3) As In tegerDim i%, j%Fori = 1 To 9a(i) = iNext iFori = 1 To 3Forj = 1 To 3b(i, j) = 2*a(i*j)If j=i Then Print b(i, j),Next jPrintNext iEnd Sub3. 寫出以下程序的運行,單擊Form1窗體后的結(jié)果。Private Sub Form1_Click ()Print
10、 "*" ; Tab(9);3,Tab(18);6PrintFor 1=15 to 16Print I;For j=3 To 6 Step 3Print Tab(3*j);j*I;Next jPrintNext IEnd Sub4. 寫出單擊Command1按鈕后,下列程序運行的結(jié)果。Dim x As In tegerPrivate Sub Comma nd1_Click()x = 100Call s1: Print xCall s2: Print xEnd SubPrivate Sub s1()Dim x As In tegerx = x + 200: Print xEn
11、d SubPrivate Sub s2()x = x + 200: Print xEnd Sub四、程序填空題(每空2分,共22分)1、下面事件過程的功能是:輸入某個學(xué)生某門課程的百分制成績,并根據(jù)成績輸出評語,若0W成績v 60時,評語為“差”;若60w成績v 70時,評語為“通過”;若70W成績v 80 時,評語為“中等”;若80成績v 90時,評語為“良好”;若90成績w 100時,評語為“優(yōu)秀”;在程序中填入適當?shù)膬?nèi)容Private Sub Comma nd1_Click()Dim s !s=ln putBox(“請輸入學(xué)生的成績“)If 0<=s And s<=100 T
12、henSelect Case 7Case Is >=90Print"優(yōu)秀"Case Is >=80Print “良好“Case Is 8Print “中等“Case Is >=60Print"通過"9Print “差“End SelectEnd IfEnd Sub2、設(shè)計一個計時程序。該程序用戶界面如圖所示,由一個文本框(text 1 ),和兩個按鈕:命令按鈕1 ( Comma ndl按鈕,命令按鈕 2( Comma nd)組成。程序運行后,用戶按開始(Commandl按鈕,則開始計時,文本框中顯示秒數(shù),按停止(Command2按鈕,則
13、計時停止。Opti on ExplicitDim iPrivate Sub Comma ndl_Click()i=0Timerl.I nterval=1000Timerl.E nabled= _4End SubPrivate Sub Comma nd2_Click()Timerl.E nabled= _5End subPrivate Sub Form_Load()Timerl.E nabled=FalseTextl.Text =""End SubPrivate Sub Timer1_Timer()i=i+ 6Text1.Text= iEnd SubPrivate Type
14、stuno As Stri ng * 8n ame As String * 8 maths As In teger physics As In teger3、下列程序在屏幕上如圖顯示學(xué)生的各科成績及總分,請完成程序。3東 6 8 32 陳 9 8 8553m<=,II Ldprogram ming As In teger total As In tegerEnd TypePrivate Sub Comma nd1_Click()Dim stude nt As 10stude nt.no = 123 =" 陳東"stude nt.maths =
15、96stude nt.physics = 88stude gram ming = 83stude nt.total=11Print "學(xué)號"stude nt.noPrint "姓名"stude nt. namePrint "數(shù)學(xué)"stude nt.mathsPrint "物理"stude nt.physicsPrint "編程"stude gram mingPrint "總分"stude nt.totalEnd Sub4、下面事件過程的功能是:用迭代法求x =3.a的近似值。給定迭代公式為:1“32X、Xn當?shù)絏n十-Xn <10_6時,Xn+1作為球a的近似值。在橫線上填入適當?shù)膬?nèi)容。Private Sub Comma nd1_Clilck()Const eps = 0.000001Dim a!, x!, u!, v!a = Val(l nputBox("E nter a")v = aDou =v = (2 * u +
溫馨提示
- 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)容負責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 人力資源數(shù)字化轉(zhuǎn)型的趨勢與挑戰(zhàn)計劃
- 市場份額的提升策略計劃
- 圖書館數(shù)字化轉(zhuǎn)型之路計劃
- 品牌形象管理實踐探究培訓(xùn)
- 2024年浙江省溫州市不動產(chǎn)登記服務(wù)中心招聘4人歷年高頻難、易錯點500題模擬試題附帶答案詳解
- 2024年浙江省寧波海曙區(qū)衛(wèi)健局下屬醫(yī)療衛(wèi)生單位招聘98人歷年高頻難、易錯點500題模擬試題附帶答案詳解
- 2024年浙江省杭州建德市部分事業(yè)單位招聘(134人)高頻難、易錯點500題模擬試題附帶答案詳解
- 2024年浙江省杭州市蕭山區(qū)區(qū)長電話受理中心招聘高頻難、易錯點500題模擬試題附帶答案詳解
- 2024年浙江省杭州市余杭區(qū)事業(yè)單位招聘109人和高頻難、易錯點500題模擬試題附帶答案詳解
- 2024年浙江省杭州上城區(qū)城市管理局望江環(huán)衛(wèi)所招聘1人歷年高頻難、易錯點500題模擬試題附帶答案詳解
- 軟件測試計劃范例14557
- 場地硬化施工方案完整
- 卡車基本構(gòu)造知識
- (完整版)裝配工藝通用要求
- 美國簽證提交簡歷中英文樣板---Sample-Resume-(使館提供)
- 自動化練習(xí)題庫.doc
- 一線員工分級與技能矩陣應(yīng)用管理方案計劃辦法
- 學(xué)校、家庭、社會三位一體育人網(wǎng)絡(luò)圖(共2頁)
- 學(xué)校關(guān)于體育傳統(tǒng)項目工作的管理辦法和規(guī)章制度
- 水環(huán)境監(jiān)測PPT課件
- 2022年廣東省深圳市南山外國語學(xué)校高三英語期末試題含解析
評論
0/150
提交評論