可視化程序設(shè)計(jì)1

1、精選文檔全套試題1閉卷考試，考試時(shí)間120分鐘一、選擇題（40分，每題2分）1）假如一個(gè)Visual Basic 應(yīng)用程序由一個(gè)窗體模塊和一個(gè)標(biāo)準(zhǔn)模塊構(gòu)成。為了保存該應(yīng)用程序，以下正確的操作是A）只保存窗體模塊文件B）分別保存窗體模塊、標(biāo)準(zhǔn)模塊和工程文件C）只保存窗體模塊和標(biāo)準(zhǔn)模塊文件。D）只保存工程文件。2) 以下不屬于Visual Basic系統(tǒng)的文件類型是A) .frm B) .bat C) .vbg D) .vbp3）為了清除窗體上的一個(gè)控件，下列正確的操作是：A）選擇（單擊）要清除的控件，然后按Del鍵B）按回車鍵C）按esc鍵D）選擇（單擊）要清除的控件，然后按回車鍵4）以下敘述中

2、錯(cuò)誤的是A) 雙擊鼠標(biāo)可以觸發(fā)DblCLick大事B) 窗體或控件的大事的名稱可以由編程人員確定C) 移動(dòng)鼠標(biāo)時(shí)，會(huì)觸發(fā)MouseMove大事D) 控件的名稱可以由編程人員設(shè)定5） 以下敘述正確的是A）VB程序中dCount 和 DCOUNT是兩個(gè)不同的變量 B）VB的語句以換行符（回車）作為結(jié)束符，一行可以有多個(gè)語句，用冒號(hào)“:”分割C）在VB6.0中源程序中不再保留行號(hào)D）VB源程序中的一行可以超過255個(gè)字符，并且沒有長度限制6）正確表達(dá)雙精度浮點(diǎn)數(shù)(Double)3.14159的表達(dá)式為A）3.14159 B) 0.314159E+1 C) 3.14159# D) 3.14159!7）

3、設(shè)a=10, b=5, c=1, 執(zhí)行語句Print a>b>c后，窗體上顯示的是A) True B) False C) 1 D) 出錯(cuò)信息8）語句Print 5/4*65 Mod 2的輸出結(jié)果是A) 0B)1 C) 2 D) 39) 假如要轉(zhuǎn)變窗體的標(biāo)題，則需要設(shè)置的屬性是A) Caption B) Name C) BackColor D) BorderStyle10) 設(shè)組合框Combol中有3個(gè)項(xiàng)目，則以下能刪除最終一項(xiàng)的語句是A) Combol.RemoveItem TextB) Combol.RemoveItem 2C) Combol.RemoveItem 3D) Com

4、bol.RemoveItem Combol.Listcount11）假如要在菜單中添加一個(gè)分隔線，則應(yīng)將其Caption屬性設(shè)置為A) = B) * C) & D) -12）在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下大事過程:Private Sub Command1_ Click()Dim a As Integer, s As Integera=8s=1 Dos=s+aa=a-1Loop While a <=0Print s; aEnd Sub程序運(yùn)行后，單擊命令按，則窗體上顯示的內(nèi)容是A) 7 9 B) 34 0C) 9 7 D) 死循環(huán)13）以下關(guān)于函數(shù)過程

5、的敘述中，正確的是：A） 假如不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型B）函數(shù)過程的返回值可以有多個(gè)C）當(dāng)數(shù)組作為函數(shù)過程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳引用方式傳遞D）函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系14）假設(shè)有過程Public Sub Test(ByVal A As Integer, ByVal B As Integer) C%=A+BEnd Sub則不正確的調(diào)用為A）Call Test(2, 3)B）C% = Test(2, 3)C）Test 2, 3D）Call Test(2,2+3)15)以下關(guān)于keyPress大事過程中參數(shù)KeyAscii的敘述中

6、正確的是A）KeyAscii參數(shù)是所按鍵的ASCII碼B）KeyAscii參數(shù)的數(shù)據(jù)類型為字符串C）KeyAscii參數(shù)可以省略D）KeyAscii參數(shù)是所按鍵上標(biāo)注的字符16)假如一個(gè)工程含有多個(gè)窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯(cuò)誤的是A）任何時(shí)刻最多只有一個(gè)窗體是活動(dòng)窗體B）不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動(dòng)模塊C）用hide方法只是隱蔽一個(gè)窗體，不能內(nèi)存中清除該窗體D）假如工程中含有sub main 過程，則程序肯定首先執(zhí)行該過程。17)名目列表框的path屬性的作用是A）顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的某個(gè)名目下的文件名B）顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的名目結(jié)構(gòu)C）顯示根名目下的文件名D) 顯示指定路

7、徑下的文件18）下面不能正確按挨次訪問模式打開”C:A.txt”的語句是A）open ”C:A.txt” for append as #1 為挨次訪問模式B）open ”C:A.txt” for random as #1 len=128 C）執(zhí)行open ”C:A.txt” for input as #1 D) open ”C:A.txt” for output as #1 19）下面關(guān)于DAO數(shù)據(jù)組件說明正取的是A）通過database屬性更改數(shù)據(jù)庫后，數(shù)據(jù)組件會(huì)自動(dòng)更新數(shù)據(jù)B）無論在單用戶和多用戶環(huán)境下，簡潔的調(diào)用recordcount屬性都能獲得精確的記錄總數(shù)C）當(dāng)記錄指針到達(dá)最終一條記

8、錄之后，EOF值為trueD) 當(dāng)記錄集為空時(shí)，BOF為FALSE20）關(guān)于記錄操作的說明錯(cuò)誤的A）在通過Addnew增加記錄后，需要調(diào)用Update方法更新數(shù)據(jù)庫B）在通過Delete刪除記錄后，需要調(diào)用Update方法更新數(shù)據(jù)庫C）在通過Delete刪除記錄后，需要調(diào)用movelast或movenext方法D) 在通過Edit編輯記錄后，需要調(diào)用Update方法更新數(shù)據(jù)庫二、填空題（30分，每空2分）1） 結(jié)構(gòu)化程序設(shè)計(jì)中把程序的結(jié)果規(guī)定為_【1】_、_【2】_、_【3】_三種基本結(jié)構(gòu)。2）Visual Basic應(yīng)用程序中標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是【4】 。3) 設(shè)有如下程序段：a

9、$="BeijingShanghai"b$=Mid(a$,InStr(a$,"g")+1)執(zhí)行上面的程序段后，變量b$的值為【5】 。4）為了使標(biāo)簽?zāi)茏詣?dòng)調(diào)整大小以顯示全部文本內(nèi)容，應(yīng)把標(biāo)簽的【6】 屬性設(shè)置為True。5）VB中可以構(gòu)成循環(huán)的語句包括 【7】 、 【8】 、 【9】 6）與數(shù)學(xué)表達(dá)式對應(yīng)的Visual Basic表達(dá)式是【10】。7) 將C盤根名目下的圖形文件moon.jpg裝入圖片框Picture1的語句是 【11】 。8）為了使計(jì)時(shí)器控件Timer1每隔0.5秒觸發(fā)一次Timer大事，應(yīng)將Timer1控件的【12】屬性設(shè)置為【13】

10、。9） 設(shè)有以下函數(shù)過程Function Fun(m as integer) as integerDim k as integer ,sum as integerSum=0For k=m to 1 step 2Sum=sum +kNext kFun=sumEnd function若在程序中用語句s=fun(10)調(diào)用次函數(shù)，則s的值為【14】10） 名稱為Form1的窗體上畫一個(gè)文本框，其名稱為Text1,在屬性窗口中把該文本的Multiline屬性設(shè)置為true，然后編寫如下的大事過程。Private sub form_click()Open “d:testsmtext1

11、.txt” fot input as #1Do while not _【15】_Line input #1,aspect$Whole$=whole$+aspect$+chr$(13)+chr$(10)LoopText1.text=whole$Close #1三、編程（30分，每題10分）1、編程實(shí)現(xiàn)，將兩個(gè)變量的值進(jìn)行交換，例如a=5,b=4運(yùn)行程序后a=4,b=5。2、編寫實(shí)現(xiàn)，計(jì)算1-100之間全部能被3整除的數(shù)得和。3、設(shè)計(jì)一個(gè)form名稱為form1，添加“打開文件”按鈕cmdOpen,， “保存文件”按鈕為cmdSave，文本框?yàn)閠xtSource。通過點(diǎn)擊“打開文件”按鈕調(diào)用通用對

12、話框commonDialog1選擇一文本（擴(kuò)展名dat）”c:test.dat”，將內(nèi)容顯示到txtSource中，然后通過點(diǎn)擊“保存文件”按鈕將此文本框的內(nèi)容保存到“c:test.txt”中。要求使用open命令打開文件，在form1_load中初始化cmdOpen和cmdSave的標(biāo)題屬性。答案：一、選擇題1.B 2.B 3.A 4.B 5.B6.C 7.B 8.B 9.A 10.B11.D 12 .C 13.D 14.B 15.A16.D 17.B 18.B 19.C 20.B二、填空題1.挨次 2.選擇 3.循環(huán) 4.BAS 5.Shanghai 6.AutoSize 7.while

13、wend 8. for next 9. do while10.cos(a+b)*cos(a+b)/(3*x)+511picture1.picture=loadpicture("c:moog.jpg")12. interval 13.500 14. 30 15.EOF(1)三、編程題1、Sub swap()Dim c As Integer, a As Integer, b As Integera=inputbox(“Enter an integer a”)b=inputbox(“Enter an integerb”)print a,bc = aa = bb = cprint

14、a,b2、Sub sum()Dim i As IntegerDim sum As Integersum = 0For i = 1 To 100If I Mod 3 = 0 Then sum = sum + iEnd IfNext iPrint sumEnd Sub3、Private Sub cmdOpen_Click()txtEdit.Text = ""CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle="VBTest"CommonDialog1.Action=1CommonDialog1.ShowOpen "c:test.dat" For Input As #1Do While Not EOF(1)Line Input #1, InputDatatxtTest.Text = txtTest.Text + InputData + v