1、VB 程序設計課程綜合復習資料、單項選擇1若要使標簽控件顯示時，不覆蓋其背景內容，應設置標簽控件的（D ）屬性。A BACKCOLORB BORDERSTYLECFORECOLORDBACKSTYLE2如果要在文本框中輸入字符時，只顯示某個字符，如星號（* ），運行時，在文本框中輸入的字符仍然顯示出來，而不顯示星號，原因可能是（ B ）A 文本框的 MULTILINE 屬性值為 TRUEB 文本框的 LOCKED 屬性值為 TRUEC 文本框的 MULTILINE 屬性值為 FALSED 文本框的 LOCKED 屬性為 FALSE3下列關于屬性設置的敘述錯誤的是： （ A ）A 一個控件具有什

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

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

4、具，不可以在窗估上畫出圖形對象，但可以寫入文字字符9應用程序設計完成后，應將程序保存，保存的過程是（D ）A 只保存窗體文件即可B只保存工程文件即可C先保存工程文件，之后保存窗體文件D 先保存窗體文件（或標準模塊文件） ，之后還要保存工程文件10 VB 應用程序的運行模式是（ C ）A 解釋運行模式B編譯運行模式C兩者都有D匯編模式11可視化編程的最大優點是（C）A 具有標準工具箱B一個工程文件由若干個窗體文件組成C不需要編寫大量代碼來描述圖形對象D所見即所得12、當一個對象（如窗體或圖片框）被移動或改變大小之后，或當一個覆蓋該窗體被移開之后，如 果要保持該所畫圖形的完整性，可以選擇觸發（A

5、）事件來完成圖形的重畫工作。A PaintB LoadCClickD Active13、滾動條控件的屬性中，表示取值范圍最大值的屬性是（A ）A MaxB LargeChange CMinD Value14、程序中如果需要檢測和控制鼠標的位置和狀態的改變，就需要使用鼠標事件，其中下面哪個選 項用于表示拖動事件（ A ）A DragDropB MouseDown CMouseUpD MouseMove15、命令按鈕的標題文字由（ B ）屬性來設置。A TextB CaptionCNameD（名稱 ）16、下面程序運行后輸出的結果是（B ）。Chr1="CCCCHIINAAAA"

6、;Chr2=Left（Chr1,3）PRINT Chr2ENDACHI BCCCCINAD AAA17、以下語句的輸出結果是（C ）。Print Format$（32548.5, "#,#.#"）A 032,548,50B325,485.00C32548.5D 32,548,5018、若要設置文本的顯示顏色，則可用（B ）屬性來實現。A BackColorB ForecolorCFillColorD Backstyle19、在運行時， 若要調用某命令鈕的 Click 事件過程， 則可設置該命令鈕對象的 （ B ）屬性為 Ture 來實現。AEnabledB ValueCDe

7、faultD Cancel20、表達式4+5 6 *7 / 8 Mod 9的值是（ B ）。A4B5C6D 7、簡答題1在程序設計中為什么盡量不用GoTo 語句？2框架的作用是什么？3如何為一個菜單項設置熱鍵和快捷鍵？4程序出錯的類型有哪幾種？5在設計狀態，若用戶想打開代碼窗口，應怎樣操作？代碼窗口主要包括哪幾部分？6表間的關系類型有哪幾種？二、簡答題1答案要點：主要是為了結構化。 2答案要點：框架主要是用作容器，可以實現多組單選按鈕，并且可以美化界面。3答案要點： 為一個菜單項設置熱鍵時需要在相應字符前面加& ，設置快捷鍵需要在菜單編輯器中選擇。4答案要點：四種：語法錯誤、編譯錯誤、

8、運行錯誤和邏輯錯誤。5答案要點：在設計狀態，打開代碼窗口至少有三種方法，只要寫一種即為正確；代碼窗口主要 三部分：對象列表、事件列表、代碼窗口。6答案要點：表間的關系類型有三種：一對一、一對多和多對多。三、編程題1編程求任意兩個正整數（利用兩個文本框輸入）的最大公約數，并利用標簽輸出結果。Private Sub Command1_Click()Dim m, n, r As Integerm = Val ( Text1.Text )n = Val ( Text2.Text )If m < 0 Or n < 0 ThenLabel2.Caption = " 輸入數據有錯！ &

9、quot;Elser = m Mod nDo While r <> 0m = nn = rr = m Mod nLoopLabel2.Caption = " 最大公約數為： " & nEnd IfEnd Sub2編程實現對 n 個整數按由小到大的順序排序。Private Sub sort(arraya() As Integer, n As Integer)Dim p As Integer, i As Integer, j As Integer, temp As IntegerFor i = 1 To n - 1p = iFor j = i + 1 To

10、nIf arraya(p) > arraya(j) Then p = jNext jIf p <> i Then temp = arraya(i) : arraya(i) = arraya(p) : arraya(p) = tempNext iEnd Sub3請編程實現每 30 秒在窗體上顯示一次當前的時間。 Private Sub Form_Load()Timer1.Interval = 30000End SubPrivate Sub Timer1_Timer()Print TimeEnd SubVB 程序設計課程綜合復習資料參考答案、單項選擇題目12345678910答案

11、DBACACBDDC題目11121314151617181920答案CAAABBCBBB二、簡答題1答案要點：主要是為了結構化。 2答案要點：框架主要是用作容器，可以實現多組單選按鈕，并且可以美化界面。3答案要點： 為一個菜單項設置熱鍵時需要在相應字符前面加& ，設置快捷鍵需要在菜單編輯器中選擇。4答案要點：四種：語法錯誤、編譯錯誤、運行錯誤和邏輯錯誤。5答案要點：在設計狀態，打開代碼窗口至少有三種方法，只要寫一種即為正確；代碼窗口主要 三部分：對象列表、事件列表、代碼窗口。6答案要點：表間的關系類型有三種：一對一、一對多和多對多。三、編程題1參考程序如下：Private Sub Co

12、mmand1_Click()Dim m, n, r As Integerm = Val ( Text1.Text )n = Val ( Text2.Text )If m < 0 Or n < 0 ThenLabel2.Caption = " 輸入數據有錯！ "Elser = m Mod nDo While r <> 0m = n n = rr = m Mod nLoopLabel2.Caption = " 最大公約數為：End IfEnd Sub2參考程序如下：Private Sub sort(arraya() As Integer, n

13、As Integer)Dim p As Integer, i As Integer, j As Integer, temp As IntegerFor i = 1 To n - 1 p = iFor j = i + 1 To nIf arraya(p) > arraya(j) Then p = jNext jIf p <> i Then temp = arraya(i) : arraya(i) = arraya(p) : arraya(p) = temp Next iEnd Sub 3參考程序如下：Private Sub Form_Load()Timer1.Interval

14、= 30000End SubPrivate Sub Timer1_Timer()Print TimeEnd Sub新建一個 form1 添加 command1 添加 label1label1 高度設的稍高一點，以顯示數據。 form 代碼 視圖中加入以下語句 .Private Sub Command1_Click()'定義變量Dim a(9) As IntegerDim i As IntegerDim r As IntegerDim t As Integer'產生隨機數RandomizeFor i = 0 To 9a(i) = CInt(Rnd() * 100)Next i &

15、#39;排序For i = 0 To 8For r = i + 1 To 9If a(i) > a(r) Then t = a(i) a(i) = a(r) a(r) = tEnd IfNext rNext i'顯示數據Label1.Caption = ""For i = 0 To 9Label1.Caption = Label1.Caption + "第" + CStr(i + 1) + " 個隨機數 =" + CStr(a(i) + vbCrLfNext iEnd Sub對單選按鈕進行分組， 每一組單選按鈕都是獨立的， 對一組單選按鈕進行操作不會影響其他組 單選 .按鈕的選擇；