可視化程序設(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）以下敘述中錯(cuò)誤的

2、是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的語(yǔ)句以換行符（回車）作為結(jié)束符，一行可以有多個(gè)語(yǔ)句，用冒號(hào)“:”分割C）在VB6.0中源程序中不再保留行號(hào)D）VB源程序中的一行可以超過(guò)255個(gè)字符，并且沒(méi)有長(zhǎng)度限制6）正確表達(dá)雙精度浮點(diǎn)數(shù)(Double)3.14159的表達(dá)式為A）3.14159 B) 0.314159E+1 C) 3.14159# D) 3.14159!7）設(shè)a=

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

4、tem Combol.Listcount11）如果要在菜單中添加一個(gè)分隔線，則應(yīng)將其Caption屬性設(shè)置為A) = B) * C) & D) -12）在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程: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ù)過(guò)程的敘述中，正確的是：A）如果不指明函數(shù)

5、過(guò)程參數(shù)的類型，則該參數(shù)沒(méi)有數(shù)據(jù)類型B）函數(shù)過(guò)程的返回值可以有多個(gè)C）當(dāng)數(shù)組作為函數(shù)過(guò)程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳引用方式傳遞D）函數(shù)過(guò)程形參的類型與函數(shù)返回值的類型沒(méi)有關(guān)系14）假設(shè)有過(guò)程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事件過(guò)程中參數(shù)KeyAscii的敘述中正確的是A）KeyAscii參數(shù)是所按鍵的ASCI

6、I碼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 過(guò)程，則程序一定首先執(zhí)行該過(guò)程。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) 顯示指定路徑下的文件18）下面不能正確按順序訪問(wèn)模式打開(kāi)”C

7、:A.txt”的語(yǔ)句是A）open ”C:A.txt” for append as #1 為順序訪問(wèn)模式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ù)組件說(shuō)明正取的是A）通過(guò)database屬性更改數(shù)據(jù)庫(kù)后，數(shù)據(jù)組件會(huì)自動(dòng)更新數(shù)據(jù)B）無(wú)論在單用戶和多用戶環(huán)境下，簡(jiǎn)單的調(diào)用recordcount屬性都能獲得準(zhǔn)確的記錄總數(shù)C）當(dāng)記錄指針到達(dá)最后一條記錄之后，EOF值為trueD) 當(dāng)記錄集為空時(shí)，B

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

9、r(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)的語(yǔ)句包括 【7】 、 【8】 、 【9】 6）與數(shù)學(xué)表達(dá)式對(duì)應(yīng)的Visual Basic表達(dá)式是【10】。7) 將C盤根目錄下的圖形文件moon.jpg裝入圖片框Picture1的語(yǔ)句是 【11】 。8）為了使計(jì)時(shí)器控件Timer1每隔0.5秒觸發(fā)一次Timer事件，應(yīng)將Timer1控件的【12】屬性設(shè)置為【13】。9）設(shè)有以下函數(shù)過(guò)程Function Fun(m as integer) as integerDim k a

10、s integer ,sum as integerSum=0For k=m to 1 step 2Sum=sum +kNext kFun=sumEnd function若在程序中用語(yǔ)句s=fun(10)調(diào)用次函數(shù)，則s的值為【14】10）名稱為Form1的窗體上畫(huà)一個(gè)文本框，其名稱為Text1,在屬性窗口中把該文本的Multiline屬性設(shè)置為true，然后編寫如下的事件過(guò)程。Private sub form_click()Open “d:testsmtext1.txt” fot input as #1Do while not _【15】_Line input #1,aspect$Whole$

11、=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，添加“打開(kāi)文件”按鈕cmdOpen,， “保存文件”按鈕為cmdSave，文本框?yàn)閠xtSource。通過(guò)點(diǎn)擊“打開(kāi)文件”按鈕調(diào)用通用對(duì)話框commonDialog1選擇一文本（擴(kuò)展名dat）”c:test.dat”，將內(nèi)容顯示到txtSource中，然后通過(guò)點(diǎn)擊“保存

12、文件”按鈕將此文本框的內(nèi)容保存到“c:test.txt”中。要求使用open命令打開(kāi)文件，在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 wend 8. for next 9. do while10.cos(a+b)*cos(a+b)/(3*x)+511picture1.

13、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 a,b2、Sub sum()Dim i As IntegerDim sum As Integersum = 0For i = 1 To 100If I Mod

14、 3 = 0 Then sum = sum + iEnd IfNext iPrint sumEnd Sub3、Private Sub cmdOpen_Click()txtEdit.Text = CommonDialog1.Filter=All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.TxtCommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=VBTestCommonDialog1.Action=1CommonDialog1.ShowOpen c:test.dat For Input As #1Do While Not EOF(1)Line Input #1, InputDatatxtTest.Text = t