可視化程序設計1

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

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

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

4、tem Combol.Listcount11）如果要在菜單中添加一個分隔線，則應將其Caption屬性設置為A) = B) * C) & D) -12）在窗體上畫一個名稱為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程序運行后，單擊命令按，則窗體上顯示的內容是A) 7 9 B) 34 0C) 9 7 D) 死循環(huán)13）以下關于函數(shù)過程的敘述中，正確的是：A）如果不指明函數(shù)

5、過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型B）函數(shù)過程的返回值可以有多個C）當數(shù)組作為函數(shù)過程的參數(shù)時，既能以傳值方式傳遞，也能以傳引用方式傳遞D）函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關系14）假設有過程Public Sub Test(ByVal A As Integer, ByVal B As Integer) C%=A+BEnd Sub則不正確的調用為A）Call Test(2, 3)B）C% = Test(2, 3)C）Test 2, 3D）Call Test(2,2+3)15)以下關于keyPress事件過程中參數(shù)KeyAscii的敘述中正確的是A）KeyAscii參數(shù)是所按鍵的ASCI

6、I碼B）KeyAscii參數(shù)的數(shù)據(jù)類型為字符串C）KeyAscii參數(shù)可以省略D）KeyAscii參數(shù)是所按鍵上標注的字符16)如果一個工程含有多個窗體及標準模塊，則以下敘述中錯誤的是A）任何時刻最多只有一個窗體是活動窗體B）不能把標準模塊設置為啟動模塊C）用hide方法只是隱藏一個窗體，不能內存中清除該窗體D）如果工程中含有sub main 過程，則程序一定首先執(zhí)行該過程。17)目錄列表框的path屬性的作用是A）顯示當前驅動器或指定驅動器上的某個目錄下的文件名B）顯示當前驅動器或指定驅動器上的目錄結構C）顯示根目錄下的文件名D) 顯示指定路徑下的文件18）下面不能正確按順序訪問模式打開”C

7、: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）下面關于DAO數(shù)據(jù)組件說明正取的是A）通過database屬性更改數(shù)據(jù)庫后，數(shù)據(jù)組件會自動更新數(shù)據(jù)B）無論在單用戶和多用戶環(huán)境下，簡單的調用recordcount屬性都能獲得準確的記錄總數(shù)C）當記錄指針到達最后一條記錄之后，EOF值為trueD) 當記錄集為空時，B

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

9、r(a$,g)+1)執(zhí)行上面的程序段后，變量b$的值為【5】 。4）為了使標簽能自動調整大小以顯示全部文本內容，應把標簽的【6】 屬性設置為True。5）VB中可以構成循環(huán)的語句包括 【7】 、 【8】 、 【9】 6）與數(shù)學表達式對應的Visual Basic表達式是【10】。7) 將C盤根目錄下的圖形文件moon.jpg裝入圖片框Picture1的語句是 【11】 。8）為了使計時器控件Timer1每隔0.5秒觸發(fā)一次Timer事件，應將Timer1控件的【12】屬性設置為【13】。9）設有以下函數(shù)過程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若在程序中用語句s=fun(10)調用次函數(shù)，則s的值為【14】10）名稱為Form1的窗體上畫一個文本框，其名稱為Text1,在屬性窗口中把該文本的Multiline屬性設置為true，然后編寫如下的事件過程。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、編程實現(xiàn)，將兩個變量的值進行交換，例如a=5,b=4運行程序后a=4,b=5。2、編寫實現(xiàn)，計算1-100之間所有能被3整除的數(shù)得和。3、設計一個form名稱為form1，添加“打開文件”按鈕cmdOpen,， “保存文件”按鈕為cmdSave，文本框為txtSource。通過點擊“打開文件”按鈕調用通用對話框commonDialog1選擇一文本（擴展名dat）”c:test.dat”，將內容顯示到txtSource中，然后通過點擊“保存

12、文件”按鈕將此文本框的內容保存到“c:test.txt”中。要求使用open命令打開文件，在form1_load中初始化cmdOpen和cmdSave的標題屬性。答案：一、選擇題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