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

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

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

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

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

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

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

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

8、6表間的關(guān)系類型有哪幾種？ 二、簡(jiǎn)答題 1答案要點(diǎn)：主要是為了結(jié)構(gòu)化。 2答案要點(diǎn)：框架主要是用作容器，可以實(shí)現(xiàn)多組單選按鈕，并且可以美化界面。 3答案要點(diǎn)： 為一個(gè)菜單項(xiàng)設(shè)置熱鍵時(shí)需要在相應(yīng)字符前面加 & ，設(shè)置快捷鍵需要在菜單編輯器中 選擇。 4答案要點(diǎn)：四種：語(yǔ)法錯(cuò)誤、編譯錯(cuò)誤、運(yùn)行錯(cuò)誤和邏輯錯(cuò)誤。 5答案要點(diǎn)：在設(shè)計(jì)狀態(tài)，打開(kāi)代碼窗口至少有三種方法，只要寫一種即為正確；代碼窗口主要 三部分：對(duì)象列表、事件列表、代碼窗口。 6答案要點(diǎn)：表間的關(guān)系類型有三種：一對(duì)一、一對(duì)多和多對(duì)多。 三、編程題 1編程求任意兩個(gè)正整數(shù)（利用兩個(gè)文本框輸入）的最大公約數(shù)，并利用標(biāo)簽輸出結(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ù)有錯(cuò)！ 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編程實(shí)現(xiàn)對(duì) n 個(gè)整數(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請(qǐng)編程實(shí)現(xiàn)每 30 秒在窗體上顯示一次當(dāng)前的時(shí)間。 Private Sub Form_Load() T

11、imer1.Interval = 30000 End Sub Private Sub Timer1_Timer() Print Time End SubVB 程序設(shè)計(jì)課程綜合復(fù)習(xí)資料參考答案 、單項(xiàng)選擇 題目 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 二、 簡(jiǎn)答題 1 答案要點(diǎn)：主要是為了結(jié)構(gòu)化。 2答案要點(diǎn)：框架主要是用作容器，可以實(shí)現(xiàn)多組單選按鈕，并且可以美化界面。 3.答案要點(diǎn)：為一個(gè)菜單項(xiàng)設(shè)置熱鍵時(shí)需要在相應(yīng)字符前面加 & ,設(shè)置

12、快捷鍵需要在菜單編輯器中 選擇。 4 答案要點(diǎn)：四種：語(yǔ)法錯(cuò)誤、編譯錯(cuò)誤、運(yùn)行錯(cuò)誤和邏輯錯(cuò)誤。 5 答案要點(diǎn)：在設(shè)計(jì)狀態(tài)，打開(kāi)代碼窗口至少有三種方法，只要寫一種即為正確；代碼窗口主要 三部分：對(duì)象列表、事件列表、代碼窗口。 6.答案要點(diǎn)：表間的關(guān)系類型有三種：一對(duì)一、一對(duì)多和多對(duì)多。 三、 編程題 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、有錯(cuò)！ ” 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 新建一個(gè) form1 添加 command1 添加 label1label1 高度設(shè)的稍高一點(diǎn)，以顯示數(shù)據(jù)。 form 代碼 視圖中加入以下語(yǔ)句 .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)生隨機(jī)數(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) + 個(gè)隨機(jī)數(shù) = + CStr(a(i) + vbCrLf Next i End Sub 對(duì)單選按鈕進(jìn)行分組， 每一組單選按鈕都是獨(dú)立的， 對(duì)一組單選按鈕進(jìn)行操作不會(huì)影響其他組 單選 .按鈕