可視化程序設(shè)計(jì)（VB）考試試卷.doc

2012年9月份考試可視化程序設(shè)計(jì)（VB）第三次作業(yè)一、填空題（本大題共40分，共 10 小題，每小題 4 分）1. VB中三種文件訪問類型是 _ 、 _ 、 _ 2. VB中，在預(yù)定對(duì)話框里有兩種對(duì)話框分別稱為 _ 和 _ ，它們所用函數(shù)分別為 _ 和 _ 。3. VB的數(shù)據(jù)類型可以分為 _ 和 _ 。4. VB的控件分為 _ 、 _ 、 _ 。5. 要使標(biāo)簽框有邊框，需設(shè)置BorderStyle屬性的值為 _ 。6. 創(chuàng)建工具欄需要 _ 件和 _ 控件的組合。7. 由Array函數(shù)建立的數(shù)組必須是 _ 類型。8. VB程序的錯(cuò)誤一般分為 _ 、 _ 和 _ 三類。9. 在執(zhí)行KeyPress事件過程中，KeyAscii是所按鍵的 _ 值，對(duì)于有上檔字符和下檔字符的鍵，檔執(zhí)行KeyDown事件過程中，KeyCode是 _ 字符的 _ 值。10. 反復(fù)執(zhí)行的程序段稱為 _ ；進(jìn)入循環(huán)體的條件稱為 _ ；中止循環(huán)體執(zhí)行的條件稱為 _ 。二、程序閱讀題（本大題共24分，共 4 小題，每小題 6 分）1. Private Sub Command1_Click() Dim n As IntegerDim t As Integern = 354 t = 0 While (n 1) t = t + f1(n Mod 10) n = n 10 Wend Print t End Sub Public Function f1(n As Integer)If (n = 0) Thenf1 = 0Else If (n = 1) Then f1 = 1 Else f1 = n * f1(n - 1)End If End Function 單擊一次Command1按鈕一次，窗體上顯示的是什么？2. 寫出下列程序的輸出結(jié)果。 Private Sub Form_Click Print Tab(10); -100;Tab(20); 200;Tab(30); -300 Print Spc(5); -100;Spc(5); 200;Spc(5); -300End Sub3. 寫出下列事件過程的執(zhí)行結(jié)果。 Public x As Integer Private Sub Command1_Click() x=10 Print x Call s1Print xCall s2 Print x End SubPrivate Sub s1() x=x+20 Print xEnd SubPrivate Sub s2()Dim x As Integerx=x+20 Print x End Sub4. 下面程序的功能是對(duì)兩個(gè)整型變量的值進(jìn)行交換，在橫線上填上適當(dāng)內(nèi)容。 Private Sub Command1_Click() Dim a As Integer, b As Integer a=10b=20 Print a=; a, b=; b (1) Print a=; a, b=; bEnd SubPrivate Sub swap(ByRef a As Integer, ByRef b As Integer) Dim t As Integer (2) End Sub三、問答題（本大題共24分，共 4 小題，每小題 6 分）1. 在VB中，要對(duì)數(shù)據(jù)文件中的數(shù)據(jù)進(jìn)行讀寫操作一般要經(jīng)過哪三步？2. VB坐標(biāo)系中旋轉(zhuǎn)什么方向是正向3. 要使單精度變量x,y,z分別保留1位、2位、3位小數(shù)位，并在窗體顯示，使用什么函數(shù)？如何寫對(duì)應(yīng)的Print方法？4. 使用Pset繪制像素點(diǎn)的大小由什么因素確定？四、程序設(shè)計(jì)題（本大題共12分，共 1 小題，每小題 12 分）某數(shù)組有20個(gè)元素，元素的值由鍵盤輸入，要求將前10個(gè)元素與后10個(gè)元素對(duì)換。即第1個(gè)元素與第20個(gè)元素互換，第2個(gè)元素與第19個(gè)元素互換，第10個(gè)元素與第11個(gè)元素互換。輸出數(shù)組原來(lái)各元素的值和對(duì)換后各元素的值。答案：一、填空題（40分，共 10 題，每小題 4 分）1. 參考答案：順序、隨機(jī)、二進(jìn)制解題方案：評(píng)分標(biāo)準(zhǔn)：22. 參考答案：消息框、輸入對(duì)話框、Msgbox、Inputbox解題方案：評(píng)分標(biāo)準(zhǔn)：23. 參考答案：基本數(shù)據(jù)類型、自戶自定義數(shù)據(jù)類型解題方案：評(píng)分標(biāo)準(zhǔn)：24. 參考答案：內(nèi)部控件、ActiveX控件、可插入控件解題方案：評(píng)分標(biāo)準(zhǔn)：25. 參考答案：1Fixed Single解題方案：評(píng)分標(biāo)準(zhǔn)：26. 參考答案：ToolBar、ImageList解題方案：評(píng)分標(biāo)準(zhǔn)：27. 參考答案：Variant解題方案：評(píng)分標(biāo)準(zhǔn)：28. 參考答案：編譯錯(cuò)誤，運(yùn)行時(shí)錯(cuò)誤，邏輯錯(cuò)誤解題方案：評(píng)分標(biāo)準(zhǔn)：29. 參考答案：ASCII、下檔、ASCII解題方案：評(píng)分標(biāo)準(zhǔn)：210. 參考答案：循環(huán)體、循環(huán)條件、結(jié)束循環(huán)條件解題方案：評(píng)分標(biāo)準(zhǔn)：2二、程序閱讀題（24分，共 4 題，每小題 6 分）1. 參考答案：150解題方案：函數(shù)調(diào)用過程與循環(huán)操作評(píng)分標(biāo)準(zhǔn)：62. 參考答案：-100 200 -300 -100 200 -300解題方案：Tab函數(shù)使用方法評(píng)分標(biāo)準(zhǔn)：63. 參考答案：執(zhí)行結(jié)果為： 10 30 30 20 30解題方案：過程調(diào)用評(píng)分標(biāo)準(zhǔn)：64. 參考答案：（） swap a, b 或Call swap( a, b) （） t=a: a=b: b=t解題方案：數(shù)據(jù)交換的實(shí)現(xiàn)評(píng)分標(biāo)準(zhǔn)：6三、問答題（24分，共 4 題，每小題 6 分）1. 參考答案：（1）打開文件。 （2）使用相關(guān)語(yǔ)句對(duì)打開文件進(jìn)行讀寫操作。 （3）關(guān)閉文件。解題方案：評(píng)分標(biāo)準(zhǔn)：42. 參考答案：在VB坐標(biāo)系中，逆時(shí)針方向?yàn)檎?，各繪圖方法都參照此坐標(biāo)系。計(jì)算對(duì)象的坐標(biāo)點(diǎn)時(shí)務(wù)必注意這一點(diǎn)。解題方案：評(píng)分標(biāo)準(zhǔn)：43. 參考答案：Print Format(x,”0.0”) 顯示1位小數(shù)位Print Format(x,”0.00”) 顯示2位小數(shù)位Print Format(x,”0.000”) 顯示3位小數(shù)位解題方案：評(píng)分標(biāo)準(zhǔn)：44. 參考答案：使用Pset繪制像素點(diǎn)的大小由當(dāng)前容器的DrawWidth屬性確定。解題方案：評(píng)分標(biāo)準(zhǔn)：4四、程序設(shè)計(jì)題（12分，共 1 題，每小題 12 分）0. 參考答案：Dim a(1 To 20) As Integer 在通用的聲明段中輸入Dim Private Sub Command1_Click() Dim i As Integer, t As Integer For i=1 To 20輸入 20個(gè)元素的a(i)=InputBox(輸入 a( & Format(i, #) & ):) 輸入 Next i Print 互換前各元素的值： For i=1 To 20 輸出互換前各元素的值 Form1.Print a(i);Next i Print For i=1 To 10互換操作 t=a(i