VB程序設(shè)計在線考試答案

1、VB 程序設(shè)計課程綜合復習資料 、單項選擇 1若要使標簽控件顯示時，不覆蓋其背景內(nèi)容，應設(shè)置標簽控件的（ D ）屬性。 A BACKCOLOR B BORDERSTYLE CFORECOLOR DBACKSTYLE 2如果要在文本框中輸入字符時，只顯示某個字符，如星號（ * ），運行時，在文本框中輸入的字 符仍然顯示出來，而不顯示星號，原因可能是（ B ） A 文本框的 MULTILINE 屬性值為 TRUE B 文本框的 LOCKED 屬性值為 TRUE C 文本框的 MULTILINE 屬性值為 FALSE D 文本框的 LOCKED 屬性為 FALSE 3下列關(guān)于屬性設(shè)置的敘述錯誤的是：

2、 （ A ） A 一個控件具有什么屬性是 VB 預先設(shè)計好的，用戶不能改變 B 一個控件具有什么屬性是 VB 預先設(shè)計好的，用戶可以改變 C 一個控件的屬性即可以在屬性窗口中設(shè)置，也可以用程序代碼設(shè)置 D 一個控件的屬性在屬性窗口中設(shè)置，還可以利用程序代碼為其設(shè)置新值 4下列說法正確的是（ C ） A 對象屬性只能在“屬性窗口”中設(shè)置 B 一個新的工程可以在“工程窗口”中建立 C 必須先建立一個工程，才能開始設(shè)計應用程序 D 只能在“代碼窗口”中編寫程序代碼 5下列關(guān)于窗體上控件的基本操作錯誤的是：（ A ） A 下一次 DEL 鍵只能刪除一個控件 B .按下一次 DEL 鍵可以同時刪除多個控

3、件 C .按住 SHIFT 鍵，然后單擊每個要選擇的控件，可以同時選中多個控件 D 按住 ALT 鍵，然后單擊每個要選擇的控件，可以同時選中多個控件 6.下列關(guān)于設(shè)置控件屬性的敘述正確的是（ C ） A 用戶必須設(shè)置屬性值 B 所有的屬性值都可以由用戶隨意設(shè)定 C 屬性值不必一一重新設(shè)置 D 不同控件的屬性項都完全一樣 7.如果將布爾常量值 TRUE 賦值給一個整型變量，則整型變量的值為（ B ） 8下列關(guān)于控件畫法的敘述錯誤的是（ D ） A 單擊一次工具箱中的控件圖標，只能在窗體上畫出一個相應的控件 B 按住 CTRL 鍵后單擊一次工具箱中的控件圖標，可以在窗體上畫出多個相同類型的控件 C

4、 雙擊工具箱中的控件圖標，所畫控件的大小和位置是固定的 D 不合用工具箱中的控件工具，不可以在窗估上畫出圖形對象，但可以寫入文字字符 9應用程序設(shè)計完成后，應將程序保存，保存的過程是（ D ） A 只保存窗體文件即可 B 只保存工程文件即可 C .先保存工程文件，之后保存窗體文件 D 先保存窗體文件（或標準模塊文件） ，之后還要保存工程文件 10、 VB 應用程序的運行模式是（C ） A 解釋運行模式 B 編譯運行模式 C 兩者都有 D 匯編模式 11、 可視化編程的最大優(yōu)點是（ C） A 具有標準工具箱 B 一個工程文件由若干個窗體文件組成 C 不需要編寫大量代碼來描述圖形對象 D 所見即所

5、得 12、 當一個對象（如窗體或圖片框）被移動或改變大小之后，或當一個覆蓋該窗體被移開之后，如 果要保持該所畫圖形的完整性，可以選擇觸發(fā)（ A ）事件來完成圖形的重畫工作。 A Pai nt B. Load C. Click D. Active 13、 滾動條控件的屬性中，表示取值范圍最大值的屬性是（ A） A Max B LargeChange C Min D Value 14、 程序中如果需要檢測和控制鼠標的位置和狀態(tài)的改變，就需要使用鼠標事件，其中下面哪個選 項用于表示拖動事件（ A ） A DragDrop B MouseDown C MouseUp D MouseMove 15、 命

6、令按鈕的標題文字由（ B ）屬性來設(shè)置。 A Text B Caption CName D （名稱 ） A0 B-1 CTRUE DFALSE 16、 下面程序運行后輸出的結(jié)果是（ B ）。 Chr1=CCCCHIINAAAA Chr2=Left（Chr1,3） PRINT Chr2 END ACHI BCCC CINA D AAA 17、以下語句的輸出結(jié)果是（ C ）。 Print Format$（32548.5, #,#.#） A 032,548,50 B325,485.00 C32548.5 D 32,548,50 18、若要設(shè)置文本的顯示顏色，則可用（ B ）屬性來實現(xiàn)。 A Back

7、Color B Forecolor CFillColor D Backstyle 19、在運行時， 若要調(diào)用某命令鈕的 Click 事件過程， 則可設(shè)置該命令鈕對象的 （ B ）屬性為 Ture 來實現(xiàn)。 A Enabled B Value CDefault D Canc20、 表達式 4+5 6 * 7 / 8 Mod 9 的值是（ B ）。 A 4 B5 C 6 D 7 、簡答題 1在程序設(shè)計中為什么盡量不用 GoTo 語句？ 2框架的作用是什么？ 3如何為一個菜單項設(shè)置熱鍵和快捷鍵？ 4程序出錯的類型有哪幾種？ 5在設(shè)計狀態(tài)，若用戶想打開代碼窗口，應怎樣操作？代碼窗口主要包括哪幾部分？

8、6表間的關(guān)系類型有哪幾種？ 二、簡答題 1答案要點：主要是為了結(jié)構(gòu)化。 2答案要點：框架主要是用作容器，可以實現(xiàn)多組單選按鈕，并且可以美化界面。 3答案要點： 為一個菜單項設(shè)置熱鍵時需要在相應字符前面加 & ，設(shè)置快捷鍵需要在菜單編輯器中 選擇。 4答案要點：四種：語法錯誤、編譯錯誤、運行錯誤和邏輯錯誤。 5答案要點：在設(shè)計狀態(tài)，打開代碼窗口至少有三種方法，只要寫一種即為正確；代碼窗口主要 三部分：對象列表、事件列表、代碼窗口。 6答案要點：表間的關(guān)系類型有三種：一對一、一對多和多對多。 三、編程題 1編程求任意兩個正整數(shù)（利用兩個文本框輸入）的最大公約數(shù)，并利用標簽輸出結(jié)果。 Private

9、 Sub Command1_Click() Dim m, n, r As Integer m = Val ( Text1.Text ) n = Val ( Text2.Text ) If m 0 Or n 0 Then Label2.Caption = 輸入數(shù)據(jù)有錯！ Else r = m Mod n Do While r 0 m = n n = r r = m Mod n Loop Label2.Caption = 最大公約數(shù)為： & n End If End Sub 2編程實現(xiàn)對 n 個整數(shù)按由小到大的順序排序。 Private Sub sort(arraya() As Integer,

10、n As Integer) Dim p As Integer, i As Integer, j As Integer, temp As Integer For i = 1 To n - 1 p = i For j = i + 1 To n If arraya(p) arraya(j) Then p = j Next j If p i Then temp = arraya(i) : arraya(i) = arraya(p) : arraya(p) = temp Next i End Sub 3請編程實現(xiàn)每 30 秒在窗體上顯示一次當前的時間。 Private Sub Form_Load() T

11、imer1.Interval = 30000 End Sub Private Sub Timer1_Timer() Print Time End SubVB 程序設(shè)計課程綜合復習資料參考答案 、單項選擇 題目 1 2 3 4 5 6 7 8 9 10 答案 D B A C A C B D D C 題目 11 12 13 14 15 16 17 18 19 20 答案 C A A A B B C B B B 二、 簡答題 1 答案要點：主要是為了結(jié)構(gòu)化。 2答案要點：框架主要是用作容器，可以實現(xiàn)多組單選按鈕，并且可以美化界面。 3.答案要點：為一個菜單項設(shè)置熱鍵時需要在相應字符前面加 & ,設(shè)置

12、快捷鍵需要在菜單編輯器中 選擇。 4 答案要點：四種：語法錯誤、編譯錯誤、運行錯誤和邏輯錯誤。 5 答案要點：在設(shè)計狀態(tài)，打開代碼窗口至少有三種方法，只要寫一種即為正確；代碼窗口主要 三部分：對象列表、事件列表、代碼窗口。 6.答案要點：表間的關(guān)系類型有三種：一對一、一對多和多對多。 三、 編程題 1 參考程序如下： Private Sub Comma nd1_Click() Dim m, n, r As In teger m = Val ( Text1.Text ) n = Val ( Text2.Text ) If m 0 Or n 0 The n Label2.Caption =輸入數(shù)據(jù)

13、有錯！ ” Else r = m Mod n Do While r 0 m = n n = r r = m Mod n Loop Label2.Caption =最大公約數(shù)為: End If End Sub 2參考程序如下： Private Sub sort(arraya() As Integer, n As Integer) Dim p As Integer, i As Integer, j As Integer, temp As Integer For i = 1 To n - 1 p = i For j = i + 1 To n If arraya(p) arraya(j) Then p

14、 = j Next j If p i Then temp = arraya(i) : arraya(i) = arraya(p) : arraya(p) = temp Next i End Sub 3參考程序如下： Private Sub Form_Load() Timer1.Interval = 30000 End Sub Private Sub Timer1_Timer() Print Time End Sub 新建一個 form1 添加 command1 添加 label1label1 高度設(shè)的稍高一點，以顯示數(shù)據(jù)。 form 代碼 視圖中加入以下語句 .Private Sub Comm

15、and1_Click() 定義變量 Dim a(9) As Integer Dim i As Integer Dim r As Integer Dim t As Integer 產(chǎn)生隨機數(shù) Randomize For i = 0 To 9 a(i) = CInt(Rnd() * 100) Next i 排序 For i = 0 To 8 For r = i + 1 To 9 If a(i) a(r) Then t = a(i) a(i) = a(r) a(r) = t End If Next r Next i 顯示數(shù)據(jù) Label1.Caption = For i = 0 To 9 Label1.Caption = Label1.Caption + 第 + CStr(i + 1) + 個隨機數(shù) = + CStr(a(i) + vbCrLf Next i End Sub 對單選按鈕進行分組， 每一組單選按鈕都是獨立的， 對一組單選按鈕進行操作不會影響其他組 單選 .按鈕