VB中期測(cè)試考試卷答案

1、程序設(shè)計(jì)基礎(chǔ)VB期中試卷使用專(zhuān)業(yè)、班級(jí) 學(xué)號(hào) 姓名 題數(shù)一二三四總分得分本題得分答題說(shuō)明：請(qǐng)將答案填寫(xiě)到答題紙上。一、 選擇題每題1分，共計(jì)42分；1. 在Visual Basic集成環(huán)境中，可以列出工程中所有模塊名稱(chēng)的窗口是（）A. 工程資源管理器窗口B. 窗體設(shè)計(jì)窗口C. 屬性窗口D. 代碼窗口2. 在設(shè)計(jì)階段，當(dāng)按Ctrl + R鍵時(shí)，所打開(kāi)的窗口是（）A. 工程資源管理器窗口B. 工具箱窗口C. 屬性窗口D. 代碼窗口3. VB應(yīng)用程序設(shè)計(jì)的一般步驟是（）。A. 分析->設(shè)計(jì)->界面->編碼->測(cè)試B. 界面->設(shè)計(jì)->編碼->分析->文

2、檔C. 分析->界面->編碼->設(shè)計(jì)->測(cè)試D. 界面->編碼->測(cè)試->分析->文檔4. 以下說(shuō)法中，正確的是（）A. 對(duì)象的運(yùn)行態(tài)屬性不出現(xiàn)在對(duì)象屬性窗口中B. 屬性值只能在屬性窗口中設(shè)置C. 在程序中可以用賦值語(yǔ)句給對(duì)象的任何一個(gè)屬性賦值D. 屬性是對(duì)象的特征，所有的對(duì)象都有相同的屬性5. 以下敘述中錯(cuò)誤的是（）。A. 在Visual Basic的窗體中，一個(gè)命令按鈕是一個(gè)對(duì)象B. 事件是能夠被對(duì)象識(shí)別的狀態(tài)變化或動(dòng)作C. 事件都是由用戶(hù)的鍵盤(pán)操作或鼠標(biāo)操作觸發(fā)的D. 不同的對(duì)象可以具有相同的方法6. 以下描述中錯(cuò)誤的是（）。A. 多窗體應(yīng)

3、用程序中每個(gè)窗體作為一個(gè)磁盤(pán)文件保存B. 多窗體應(yīng)用程序的啟動(dòng)窗體可以在設(shè)計(jì)時(shí)設(shè)定C. 在多窗體應(yīng)用程序中，可以有多個(gè)當(dāng)前窗體D. 多窗體應(yīng)用程序可以編譯生成一個(gè)EXE文件7. 以下關(guān)于多窗體的敘述中，正確的是（）。 A. 只有第一個(gè)建立的窗體才是啟動(dòng)窗體B. 向一個(gè)工程添加多個(gè)窗體，存盤(pán)后生成一個(gè)窗體文件C. 打開(kāi)一個(gè)窗體時(shí)，其他窗體自動(dòng)關(guān)閉D. 任何時(shí)刻，只有一個(gè)當(dāng)前窗體8. 可以設(shè)置為VB程序運(yùn)行啟動(dòng)對(duì)象的是（）。工程文件 任意一個(gè)窗體 窗體模塊中的Main()過(guò)程 標(biāo)準(zhǔn)模塊中的Main()過(guò)程A. B. C. D. 9. 以下說(shuō)法中，錯(cuò)誤的是（）。A. 以.frm為擴(kuò)展名的文件是窗體模

4、塊文件B. 以.bas為擴(kuò)展名的文件是標(biāo)準(zhǔn)模塊文件C. 窗體模塊文件包含該窗體及其窗體上相關(guān)控件的屬性信息D. 標(biāo)準(zhǔn)模塊文件由事件過(guò)程、通用過(guò)程等內(nèi)容組成10. 以下敘述中錯(cuò)誤的是（）。A. .vbp文件是工程文件，一個(gè)工程可以包含.bas文件B. .vbg文件是工程組文件，一個(gè)工程組可以由多個(gè)工程組成C. .vbp文件是工程文件，一個(gè)工程可以包含多個(gè).frm文件組成D. .frm文件是窗體文件，一個(gè)窗體可以包含.bas文件11. 以下敘述中正確的是（）。A. 窗體及窗體上所有控件的事件過(guò)程代碼都保存在窗體文件中B. 在工程中只有啟動(dòng)窗體可以建立菜單C. 窗體名稱(chēng)必須與窗體文件的名稱(chēng)相同D.

5、程序一定是從某個(gè)窗體開(kāi)始執(zhí)行的12. 以下關(guān)于窗體的敘述中錯(cuò)誤的是（）。A. 程序運(yùn)行期間，可以改變Name屬性值B. 窗體的Name屬性用于標(biāo)識(shí)一個(gè)窗體C. 運(yùn)行程序時(shí)，改變窗體大小，能夠觸發(fā)窗體的Resize事件D. 窗體的Enabled屬性為False時(shí)，不能響應(yīng)單擊窗體的事件13. 以下描述中錯(cuò)誤的是（）。A.窗體的標(biāo)題通過(guò)其Caption屬性設(shè)置B.窗體的名稱(chēng)（Name屬性）可以在運(yùn)行期間修改C.窗體的背景圖形通過(guò)其Picture屬性設(shè)置D.窗體最小化時(shí)的圖標(biāo)通過(guò)其Icon屬性設(shè)置14. 窗體Form1上有一名稱(chēng)為Command1的命令按鈕，以下對(duì)應(yīng)窗體單擊事件的事件過(guò)程是（）。A.

6、 Private Sub Form1_Click()End SubC. Private Sub Command1_Click()End SubB. Private Sub Form_Click()End SubD. Private Sub Command_Click()End Sub15. 假定編寫(xiě)了如下4個(gè)窗體事件的事件過(guò)程，則運(yùn)行應(yīng)用程序并顯示窗體后，已經(jīng)執(zhí)行的事件過(guò)程是（）。A. ClickB. LoadC. LostFocusD. KeyPress16. 若在程序運(yùn)行時(shí)，需要將焦點(diǎn)主動(dòng)設(shè)置到指定的對(duì)象上，應(yīng)調(diào)用該對(duì)象的（）方法。A. MoveB. SetFocusC. RefreshD

7、. Drag17. 下列語(yǔ)句中，錯(cuò)誤的是（）。A. Label1.Caption = "Hello"B. Command1.Caption = "Hello"C. Text1.Caption = "Hello"D. Frame1.Caption = "Hello"18. 為了使標(biāo)簽具有“透明”的顯示效果，需要設(shè)置的屬性是（）。A. CaptionB. AlignmentC. BackStyleD. AutoSize19. 為了使標(biāo)簽?zāi)茏詣?dòng)調(diào)整大小以顯示標(biāo)題（Caption屬性）的全部文本內(nèi)容，應(yīng)把該標(biāo)簽的（）屬性設(shè)

8、置為T(mén)rue。A. AutoSizeB. AlignmentC. AutoRedrawD. Stretch20. 假定一個(gè)滾動(dòng)條的LargeChange屬性值為100，則100表示（）。A. 單擊滾動(dòng)條箭頭和滾動(dòng)框之間某位置時(shí)滾動(dòng)框位置的變化量B. 滾動(dòng)框位置的最大值C. 拖動(dòng)滾動(dòng)框時(shí)滾動(dòng)框位置的變化量D. 單擊滾動(dòng)條箭頭時(shí)滾動(dòng)框位置的變化量21. 設(shè)窗體上有一個(gè)名稱(chēng)為HS1的水平滾動(dòng)條，如果執(zhí)行了語(yǔ)句：HS1.Value = (HS1.Max - HS1.Min) / 2 + HS1.Min則（）。A. 滾動(dòng)條處于最左端B. 滾動(dòng)條處于最右端C. 滾動(dòng)條處于中間位置D. 滾動(dòng)條可能處于任何位

9、置，具體位置取決于Max、Min屬性值22. 設(shè)窗體上有一個(gè)名為L(zhǎng)ist1的列表框，并編寫(xiě)下面的事件過(guò)程：Private Sub List1_Click() Dim ch As String ch = List1.List(List1.ListIndex) List1.RemoveItem List1.ListIndex List1.AddItem chEnd Sub程序運(yùn)行時(shí)，單擊一個(gè)列表項(xiàng)，則產(chǎn)生的結(jié)果是（）。A. 該列表項(xiàng)被移動(dòng)到列表的最前面B. 該列表項(xiàng)被刪除C. 該列表項(xiàng)被移動(dòng)到列表的最后面D. 該列表項(xiàng)被刪除后又在原位置插入23. 窗體上畫(huà)一個(gè)名稱(chēng)為L(zhǎng)ist1的列表框，列表框中顯示

10、若干城市的名稱(chēng)。當(dāng)單擊列表框中的某個(gè)城市名時(shí)，該城市名消失。下列在List_Click事件過(guò)程中能正確實(shí)現(xiàn)上述功能的語(yǔ)句是（）。A. List1.RemoveItem List1.TextB. List1.RemoveItem List1.ClearC. List1.RemoveItem List1.ListCountD. List1.RemoveItem List1.ListIndex 24. 若要引用列表框List1中最后一個(gè)數(shù)據(jù)項(xiàng)的內(nèi)容，應(yīng)使用（）。A. List1.List(List1.Count)B. List1.TextC. List1.ListIndexD. List1.List

11、(List1.Count - 1)25. 窗體上有一名稱(chēng)為Cb1的組合框，程序運(yùn)行后，為了輸出選中的列表項(xiàng)，應(yīng)使用的語(yǔ)句是（）。A. Print Cb1.SelectedB. Print Cb1.List(Cb1.ListIndex)D. Print Cb1.List(ListIndex)26. 若要獲得組合框中輸入的數(shù)據(jù)，可使用的屬性是（）。 A. ListindexB. TextC. CaptionD. List27. 列表框中的項(xiàng)目保存在一個(gè)數(shù)組中，這個(gè)數(shù)組的名字是（）。A. ColumnB. StyleC. MultiSelectD. List28. 為了在窗體上建立2組單選按鈕，并且

12、當(dāng)程序運(yùn)行時(shí)，每組都可以有一個(gè)單選按鈕被選中，則以下做法中正確的是（）。A. 把這2組單選按鈕設(shè)置為名稱(chēng)不同的2個(gè)控件數(shù)組B. 使2組單選按鈕的名稱(chēng)分別相同C. 使2組單選按鈕的Index屬性分別相同D. 把2組單選按鈕分別畫(huà)到2個(gè)不同的框架中29. 窗體上有一個(gè)名為Command1的命令按鈕和一個(gè)名為T(mén)imer1的計(jì)時(shí)器，并有下面的事件過(guò)程：Private Sub Form_Load() Timer1.Interval = 10 Timer1.Enabled = FalseEnd Sub程序運(yùn)行時(shí)，單擊命令按鈕，則產(chǎn)生的結(jié)果是（）。Private Sub Command1_Click() T

13、imer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() Command1.Left = Command1.Left + 10End SubA. 命令按鈕每10秒向左移動(dòng)一次B. 命令按鈕每10毫秒向右移動(dòng)一次C. 命令按鈕每10毫秒向左移動(dòng)一次D. 命令按鈕每10秒向右移動(dòng)一次30. 如果一個(gè)直線控件在窗體上呈現(xiàn)為一條垂直線，則可以確定的是（）A. 它的Y1、Y2屬性的值相等B. 它的X1、X2屬性的值相等C. 它的X1、Y1屬性的值分別與X2、Y2屬性的值相等D. 它的X1、X2屬性的值分別與Y1、Y2屬性的值相等31. 以下說(shuō)法中正確的是

14、（）A. MouseUp事件是鼠標(biāo)向上移動(dòng)時(shí)出觸發(fā)的事件B. MouseUp事件過(guò)程中的x，y參數(shù)用于修改鼠標(biāo)位置C. 在MouseUp事件過(guò)程中可以判斷用戶(hù)是否使用了組合鍵D. 在MouseUp事件過(guò)程中不能判斷鼠標(biāo)的位置32. 以下關(guān)于菜單設(shè)計(jì)的敘述中錯(cuò)誤的是（）。 A. 各菜單項(xiàng)可以構(gòu)成控件數(shù)組B. 每個(gè)菜單項(xiàng)可以看成是一個(gè)控件C. 設(shè)計(jì)菜單時(shí)，菜單項(xiàng)的“有效”不選，即“有效(E)”。表示該菜單項(xiàng)不顯示 D. 菜單項(xiàng)只響應(yīng)單擊事件33. 設(shè)菜單編輯器中各菜單項(xiàng)的屬性設(shè)置如下表所示：序號(hào)標(biāo)題名稱(chēng)復(fù)選有效可見(jiàn)內(nèi)縮符號(hào)1FileFile無(wú)2OpenOpenFile13SaveSaveFile1

15、4ExitEndOfAll15HelpShowHelp1針對(duì)上述屬性設(shè)置，以下敘述中錯(cuò)誤的是（）A. 屬性設(shè)置有誤，存在“標(biāo)題”與“名稱(chēng)”重名現(xiàn)象B. 運(yùn)行程序，序號(hào)為“3”的菜單項(xiàng)不顯示C. 運(yùn)行程序，序號(hào)為“4”的菜單項(xiàng)不可用D. 運(yùn)行程序，序號(hào)為“5”的菜單項(xiàng)前顯示“”34. 下列關(guān)于菜單的說(shuō)法中，錯(cuò)誤的是（）。A. 只有當(dāng)代碼窗口為當(dāng)前活動(dòng)窗口時(shí)，才能打開(kāi)菜單編輯器B. 除了Click事件之外，菜單項(xiàng)不能響應(yīng)其他事件C. 菜單項(xiàng)的快捷鍵不能任意設(shè)置D. 菜單的名稱(chēng)項(xiàng)（Name屬性）不可缺省35. 以下關(guān)于彈出式菜單的敘述中，錯(cuò)誤的是（）。 A. 彈出式菜單在菜單編輯器中建立B. 一個(gè)窗

16、體只能有一個(gè)彈出式菜單C. 彈出式菜單的菜單名（主菜單項(xiàng)）的“可見(jiàn)”屬性通常設(shè)置為False D. 彈出式菜單通過(guò)窗體的PopupMenu方法顯示36. 假定已經(jīng)在菜單編輯器中建立了窗體的彈出式菜單，其頂級(jí)菜單項(xiàng)的名稱(chēng)為a1，其“可見(jiàn)”屬性為False。程序運(yùn)行后，單擊鼠標(biāo)左鍵或右鍵都能彈出菜單的事件過(guò)程是A. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = 1 And Button = 2 Then PopupMenu a1 End

17、SubB. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) PopupMenu a1 End SubC. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = 1 Then PopupMenu a1 End SubD. Private Sub Form_MouseDown(Button As Integer,

18、 Shift As Integer, _ X As Single, Y As Single) If Button = 2 Then PopupMenu a1 End Sub37. 窗體上有一個(gè)名稱(chēng)為CD1的通用對(duì)話(huà)框，一個(gè)名稱(chēng)為Command1的命令按鈕，并有如下事件過(guò)程。運(yùn)行上述程序，如下敘述正確的是（）。Private Sub Command1_Click() CD1.DefaultExt = "doc" CD1.FileName = "VB.txt" CD1.Filter= "All(*.*)|*.*|Word|*.Doc|"

19、CD1.FilterIndex = 1 CD1.ShowSaveEnd SubA. 打開(kāi)的對(duì)話(huà)框中文件“保存類(lèi)型”框中顯示“All(*.*)” B. 實(shí)現(xiàn)保存文件的操作，文件名是VB.txtC. DefaultExt屬性與FileName屬性所指明的文件類(lèi)型不一致，程序出錯(cuò)D. 對(duì)話(huà)框的Filter屬性沒(méi)有指出txt類(lèi)型，程序運(yùn)行出錯(cuò)38. 在窗體上畫(huà)一個(gè)名稱(chēng)為CD1的通用對(duì)話(huà)框，并有如下程序：Private Sub Form_Load() CD1.DefaultExt = "doc" CD1.FileName = "c:files.txt" CD1.F

20、ilter = "應(yīng)用程序(*.exe)|*.exe"End Sub程序運(yùn)行時(shí)，如果顯示了“打開(kāi)”對(duì)話(huà)框，在“文件類(lèi)型”下拉列表中的默認(rèn)文件類(lèi)型是（）。A. 應(yīng)用程序(*.exe)B. .docC. .txtD. 不確定39. 以下關(guān)于通用對(duì)話(huà)框的敘述中，錯(cuò)誤的是（）。A. 若沒(méi)有指定InitDir屬性值，則起始目錄為當(dāng)前目錄B. 用一個(gè)通用對(duì)話(huà)框控件可以建立幾種不同的對(duì)話(huà)框C. FilerTitle屬性指明了文件對(duì)話(huà)框中所選擇的文件名D. 文件對(duì)話(huà)框用屬性FilerIndex指定默認(rèn)過(guò)濾器，它是一個(gè)從0開(kāi)始的整數(shù)40. 下列可作為Visual Basic變量名的是（）。A

21、. A#AB. 4ABCC. ?xyD. Print_Text 41. 以下合法的VB變量名是（）。A. caseB. name10C. t-nameD. x*y42. 設(shè)有如下變量聲明語(yǔ)句：Dim a, b As Boolean ，則下面敘述中正確的是（）。A. a和b都是布爾型變量B. a是變體型變量，b是布爾型變量C. a是整型變量，b是布爾型變量D. a和b都是變體型變量43. 表達(dá)式Int(Rnd(0)*50)所產(chǎn)生的隨機(jī)數(shù)范圍是（）。A. 【0, 50】B. 【1, 50】C. 【0, 49】D. 【1, 49】44. 下面可以產(chǎn)生2030（含20和30）的隨機(jī)整數(shù)的表達(dá)式是（）。

22、A. Int(Rnd*10+20)B. Int(Rnd*20+30)C Int(Rnd*11+20).D. Int(Rnd*30+20)45. 下列表達(dá)式中，不能將一個(gè)4位整數(shù)N的百位數(shù)字提取出來(lái)的是（）。A. N 100 Mod 10B. N 10 Mod 100C. Mid(CStr(N), 2, 1)D. (N Mod 1000) 10046. 表達(dá)式3*52 Mod 233的值是（）。A. 2B. 5C. 6D. 1047. 設(shè)x是小于10的非負(fù)數(shù)。對(duì)此陳述，以下正確的VB表達(dá)式是（）。A. 0x<10B. 0<=x<10C. x>=0 and x<10D

23、. x>=0 or x<=1048. 設(shè)a=1，b=2，c=3，邏輯表達(dá)式a < b And Not c > b Xor c < a的值是（）A. TrueB. -1C. FalseD. 149. 設(shè)a = 2，b = 3，c = 4，d = 5，則下面語(yǔ)句的輸出是（）Print 3 > 2 * b Or a = c And b <> c Or c > dA. -1B. 1C. TrueD. False50. 設(shè)x=5，執(zhí)行語(yǔ)句Print x=x+10，窗體上顯示的是（）。A. 15B. 5C. TrueD. False51. 若設(shè)X=1，

24、Y=2，則不能在窗體上顯示出“A=3”的語(yǔ)句是（）A. Print A = X+Y B. Print "A=" X+YC. Print "A=" + Str(X+Y)D. Print "A=" & X+Y52. 設(shè)x = 3.3，y = 4.5，表達(dá)式x - Int(x) + Fix(y)的值是（）A. 4.3B. 4.8C. 3.5D. 4.753. 下列有關(guān)轉(zhuǎn)換函數(shù)的說(shuō)法中，正確的是（）。A. Int和Cint函數(shù)的區(qū)別僅在于結(jié)果的數(shù)據(jù)類(lèi)型不同B. Int和Fix函數(shù)將非整數(shù)數(shù)據(jù)轉(zhuǎn)換成整數(shù)，轉(zhuǎn)換后的結(jié)果類(lèi)型是LongC.

25、Cint函數(shù)的功能是將其他類(lèi)型的數(shù)據(jù)轉(zhuǎn)換成Integer類(lèi)型D. 在處理負(fù)數(shù)時(shí)，Int和Fix函數(shù)的結(jié)果是相同的54. 分別執(zhí)行以下語(yǔ)句，輸出結(jié)果為T(mén)rue的是（）A. Print CInt(4.5) > Int(4.5)B. Print CInt(-4.5) > Fix(-4.5)C. Print CInt(-4.5) > Int(-4.5)D. Print CInt(4.5) > Fix(4.5)55. 在窗體上畫(huà)兩個(gè)名稱(chēng)分別為T(mén)ext1、Text2的文本框。Text1的Text屬性為“Database”。現(xiàn)有如下事件過(guò)程，運(yùn)行程序，在文本框Text1中原有字符之前

26、輸入a，Text2中顯示的是（）。Private Sub Text1_Change() Text2.Text = Mid(Text1, 1, 5)End Sub A. DataAB. DataBC. aDataD. aBase56. 設(shè)x為字符型變量，n為整型變量，以下關(guān)于Mid函數(shù)的說(shuō)法中，錯(cuò)誤的是（）A. Mid(x, n)表示從字符串x的第n個(gè)位置開(kāi)始向右取所有字符B. 若x = "xyz"，執(zhí)行語(yǔ)句Mid(x, 1, 2) = "ab"后，x的值為"abz"C. Mid(x, n, 1)的取值與Left(x, n)的取值相同D

27、. 使用Mid函數(shù)可提取字符串中指定位置、指定個(gè)數(shù)的字符57. 設(shè)有字符串變量s，其值為“abcd”，可將s的值替換為“aabcd”的語(yǔ)句是（）。A. Left(s, 1) = "aa"B. s = "aa" & Right(s, Len(s) - InStr(s, "a") C. s = "aa" & Mid(s, InStr(s, "aa")D. Mid(s, 1, 2) = "aa"58. 表達(dá)式InStr(4, "abcabca",

28、 "c") + Int(2.5)的值為（）A. 7B. 8C. 5D. 959. 數(shù)學(xué)表達(dá)式對(duì)應(yīng)的VB表達(dá)式是（）A. Sqr(x + y) - Sin(Abs(y 2 * x) / (x - y)B. Sqr(x + y) - Sin(Abs(y 2 * x) / x - y)C. Sqr(x + y) - Sin(|y 2 * x|/ (x - y)D. Sqr(x + y) - Sin(|y 2 * x| / x - y)60. 對(duì)應(yīng)數(shù)學(xué)表達(dá)式的VB表達(dá)式是（）。A. Sin(30 * 3.14159 / 180) + Abs(x 2 + Sqr(y) + Exp(x

29、) - Log(n) / Log(10)B. Sin(30) + Abs(x 2 + Sqr(y) + e x - Log(n) / Log(10)C. Sin(30 * 3.14159 / 180) + Abs(x 2 + Sqr(y) + Exp(x) - Log(n) D. Sin(30) + Abs(x 2 + Sqr(y) + e x - Log(n)61. 窗體上有一個(gè)名稱(chēng)為L(zhǎng)abel1的標(biāo)簽和一個(gè)名稱(chēng)為Command1的命令按鈕。命令按鈕的單擊事件過(guò)程如下。運(yùn)行程序，單擊命令按鈕，在輸入對(duì)話(huà)框中分別輸入2、3，Private Sub Command1_Click() x = In

30、putBox("輸入x：", , 0) y = InputBox("輸入y：", , 0) Label1.Caption = x + yEnd Sub運(yùn)行的結(jié)果是（）A. 程序運(yùn)行有錯(cuò)誤，數(shù)據(jù)類(lèi)型不匹配B. 程序運(yùn)行有錯(cuò)誤，InputBox函數(shù)的格式不對(duì)C. 在Label1中顯示5D. 在Label1中顯示2362. 設(shè)程序中有如下語(yǔ)句：運(yùn)行程序，執(zhí)行上述語(yǔ)句，輸入5并單擊輸入對(duì)X = InputBox ("輸入", "數(shù)據(jù)", 100)Print X話(huà)框上的“取消”按鈕，則窗體上輸出（）。 A. 0B. 5C.

31、100D. 空白63. 在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程，程序運(yùn)行后，單擊命令按鈕，則在信息Private Sub Command1_Click() MsgBox Str(123 + 321)End Sub框中顯示的提示信息為（）A. 字符串“123 + 321”B. 字符串“444”C. 數(shù)值“444”D. 空白64. 下面4個(gè)語(yǔ)句中，錯(cuò)誤的是（）A. N = InputBox("輸入N：", , 5)B. InputBox("輸入N：", , 5)C. MsgBox "請(qǐng)回答"D. K = MsgBox("請(qǐng)

32、回答")65. 以下關(guān)于MsgBox函數(shù)的說(shuō)法中，正確的是（）。A. MsgBox函數(shù)有返回值，且返回值類(lèi)型為數(shù)值型B. MsgBox函數(shù)沒(méi)有返回值C. MsgBox函數(shù)有返回值，且返回值類(lèi)型為字符型D. 通過(guò)MsgBox函數(shù)中的第一個(gè)參數(shù)，可以設(shè)置信息框中的圖標(biāo)以及按鈕的個(gè)數(shù)與類(lèi)型66. 以下關(guān)于If分支結(jié)構(gòu)語(yǔ)句的說(shuō)法中，正確的是（）。A. 有End If一定有與之配對(duì)的IfB. 有If一定有與之配對(duì)的ElseIfC. 有If一定有與之配對(duì)的End IfD. 有If一定有與之配對(duì)的Else67. 設(shè)有分段函數(shù)：下述選項(xiàng)描述錯(cuò)誤的是（）。A. Select Case x Case I

33、s<0 : Y=5 Case Is <=5,Is>0 : Y=2*x Case else : Y= x * x + 1 End selectC. Y = IIf (x < 0, 5, IIf(x <= 5, 2 * x, x * x + 1)B. If x < 0 Then y = 5 Elseif x <= 5 then y = 2 * x Else y = x * x + 1 End ifD. If x < 0 Then y = 5 If x <= 5 and x>=0 then y = 2 * x If x > 5 the

34、n y = x * x + 168. 設(shè)窗體上有一個(gè)名為T(mén)ext1的文本框和一個(gè)名為Command1的命令按鈕，并有以下事件Private Sub Command1_Click() x! = Val(Text1.Text) Select Case x Case Is < -10, Is >= 20 : Print "輸入錯(cuò)誤" Case Is < 0 : Print 20 - x Case Is < 10 : Print 20 Case Is <= 20 : Print x + 10 End SelectEnd Sub過(guò)程。程序運(yùn)行時(shí)，如果在文

35、本框中輸入-5，則在單擊命令按鈕后的輸出結(jié)果是（）。A. 25B. 20C. 5D. 輸入錯(cuò)誤69. Select Case X結(jié)構(gòu)中(X為Integer類(lèi)型)，若判斷條件為X=5，正確的Case語(yǔ)句應(yīng)該是（）。A. Case X=5B. Case Is 5C. Case =5D. Case 570. 在Select Case X結(jié)構(gòu)語(yǔ)句中（X為Integer類(lèi)型），能正確描述5X10的Case語(yǔ)句是（）A. Case Is >= 5, Is <= 10B. Case 5 <= X <= 10C. Case 5 <= X, X <= 10D. Case 5

36、To 1071. 假定有以下程序：Private Sub Form_Click() a = 1: b = a Do Until a >= 5 x = a * b Print b; x a = a + b b = b + a LoopEnd Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果是（）A.1 1 2 3B.1 1 2 4C.1 1 3 8D.1 1 3 672. 窗體上有一個(gè)名稱(chēng)為Command1的命令按鈕，并有如下程序：Private Sub Command1_Click() x = 15 Do While x > 0 x = x - 3 x = IIf(Int(x / 5) = x

37、 / 5, x + 2, x) Loop Print xEnd Sub程序運(yùn)行后，單擊命令按鈕Command1，輸出結(jié)果為（）。A. 0B. -3C. -2D. -173. 窗體上有一個(gè)名稱(chēng)為Command1的命令按鈕，并有如下程序：Private Sub Command1_Click() a = 10 For k = 1 To 5 Step -1 a = a - k Next k Print a; kEnd Sub程序運(yùn)行后，單擊命令按鈕Command1，輸出結(jié)果為（）。A. 10 1B. -5 -5C. 10 0D. -5 674. 設(shè)有如下程序：Private Sub Form_Clic

38、k() a$ = "123456" For i = 1 To 6 Print Tab(12 - i); Next i End Sub 程序運(yùn)行后，單擊窗體，要求結(jié)果如圖所示，則在 處應(yīng)填入的內(nèi)容為（）A. Left(a$, i)B. Mid(a$, 8 - i, i)C. Right(a$, i)D. Mid(a$, 7, i)75. 設(shè)有如下程序：Private Sub Form_Click() Dim i As Integer, x As String, y As String x = "ABCDEFG" For i = 4 To 1 Step -1

39、 y = Mid(x, i, i) + y Next i Print yEnd Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果為（）A. AABBCDEFG B. ABCCDEDEFGC.ABCDEFGD.AABBCCDDEEFFGG76. 設(shè)有如下程序：Private Sub Form_Click() Dim s As Long, f As Long, n As Integer, i As Integer f = 1 : n = 4 For i = 1 To n f = f * i s = s + f Next i Print sEnd Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果是（）A. 32B. 33C

40、. 34D. 3577. 有人編寫(xiě)了如下程序：上述程序的功能是：Private Sub Form_Click() Dim s As Integer, x As Integer s = 0 : x = 0 Do While s = 10000 x = x + 1 s = s + x 2 Loop Print sEnd Sub計(jì)算s=1 + 22 + 32 + + n2 + ，直到s > 10000為止。程序運(yùn)行后，發(fā)現(xiàn)得不到正確的結(jié)果，必須進(jìn)行修改。下列修改中正確的是（）。A. 把x = 0改為x = 1B. 把Do While s = 10000改為Do While s <= 10

41、000C. 把Do While s = 10000改為Do While s > 10000 D. 交換x = x + 1和s = s + x 2的位置78. 窗體上有一個(gè)名稱(chēng)為Command1的命令按鈕，其事件過(guò)程如下：Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer, s As Double s = 0: i = 1: j = 0: k = -1 Do While i < 6 s = s + k * (j / i) i = i + 1 j = j + 1 k = -k Loop Pr

42、int sEnd Sub以上程序所計(jì)算的表達(dá)式是：A. -1/2 + 2/3 - 3/4 + 4/5B. 1/2 - 2/3 + 3/4 - 4/5C. 1 - 1/2 + 2/3 - 3/4 + 4/5D. -1 + 1/2 - 2/3 + 3/4 - 4/579. 有一個(gè)數(shù)列，它的前3個(gè)數(shù)為0，1，1，此后的每個(gè)數(shù)列都是其前面3個(gè)數(shù)之后，即0，1，1，2，4，7，13，24，要求編寫(xiě)程序如下：Private Sub Form_Click() Dim i As Integer, a As Integer, b As Integer Dim c As Integer, d As Integer

43、 a = 0: b = 1: c = 1: d = a + b + c i = 5 While d <= 1000 Print d; a = b: b = c: c = d : d = a + b + c i = i + 1 WendEnd Sub運(yùn)行上面的程序，發(fā)現(xiàn)輸出的數(shù)列不完整，應(yīng)進(jìn)行修改。以下正確的修改是（）A.把While d <= 1000改為While d > 1000B. 在i = 5的上面增加一個(gè)語(yǔ)句：Print a; b; c; C.把i = i + 1移到While d <= 1000的下面D. 把i = 5改為i = 480. 現(xiàn)有以下程序：Pr

44、ivate Sub Command1_Click() c1 = 0 : c2 = 0 For i = 1 To 100 If i Mod 3 = 0 Then c1 = c1 + 1 ElseIf i Mod 7 = 0 Then c2 = c2 + 1 End If Next Print c1 + c2End Sub此程序運(yùn)行后輸出的是在1100范圍內(nèi)（）。A. 同時(shí)能被3和7整除的整數(shù)個(gè)數(shù)B. 能被3或7整除個(gè)數(shù)（同時(shí)被3和7整除的數(shù)只記一次）C. 能被3整除，而不能被7整除的整數(shù)個(gè)數(shù)D. 能被7整除，而不能被3整除的整數(shù)個(gè)數(shù)81. 設(shè)有如下程序: Private Sub Command1

45、_Click() x = 10: y = 0 For i = 1 To 5 Do x = x 2 : y = y + 2 Loop Until y > 5 Or x < -1 Next End Sub運(yùn)行程序，其中Do循環(huán)執(zhí)行的次數(shù)是（）A. 15B. 10C. 7D. 382. 閱讀下面的程序段： a = 0 For i = 1 To 3 For j = 1 To i For k = j To 3 a = a + 1 Next k Next j Next i執(zhí)行上面的程序段后，a的值為（）A. 3B. 9C. 14D. 2183. 如果一個(gè)正整數(shù)從高位到低位上的數(shù)字一次遞減，則稱(chēng)

46、其為降序數(shù)（如：9632是降序數(shù)，而8516則不是降序數(shù)）?，F(xiàn)編寫(xiě)如下程序，判斷輸入的正整數(shù)是否為降序數(shù)。Private Sub Command1_Click() Dim n As Long Dim flag As Boolean n = InputBox("輸入一個(gè)正整數(shù)") s = Trim(Str(n) For i = 2 To Len(s) If Mid(s, i - 1, 1) < Mid(s, i, 1) Then Exit For Next i If i = Len(s) Then flag = True Else flag = False If fla

47、g Then Print n; "是降序數(shù)" Else Print n; "不是降序數(shù)"End Sub運(yùn)行以上程序，發(fā)現(xiàn)有錯(cuò)，需要對(duì)給flag變量賦值的If語(yǔ)句進(jìn)行修改。以下正確的修改是（）。A. If i = Len(s) + 1 Then flag = False Else flag = TrueB. If i = Len(s) + 1 Then flag = True Else flag = FalseC. If i = Len(s) - 1 Then flag = False Else flag = TrueD. If i = Len(s) -

48、1 Then flag = True Else flag = False84. 窗體上有一個(gè)名稱(chēng)為Command1的命令按鈕，并有如下程序：Private Sub Command1_Click() Dim m As Integer, n As Integer m = InputBox("輸入第一個(gè)數(shù)") n = InputBox("輸入第二個(gè)數(shù)") Do While m <> n Do While m > n m = m - n Loop Do While n > m該程序的功能是（）。A. 求數(shù)值m和n的最小公倍數(shù)B. 求數(shù)值m

49、和n的最大公約數(shù)C. 求數(shù)值m和n中的較大數(shù)D. 求數(shù)值m和n中的較小數(shù) n = n m Loop Loop Print mEnd Sub本題得分二、寫(xiě)出程序運(yùn)行結(jié)果每空2分，共計(jì)20分；說(shuō)明：執(zhí)行下述程序，按輸出格式要求寫(xiě)出運(yùn)行結(jié)果。1. 執(zhí)行下面程序，單擊命令按鈕Command1，窗體上顯示的第一行內(nèi)容是 【1】 ，第二行內(nèi)容是 【2】 ，第三行內(nèi)容是 【3】 ，最后一行內(nèi)容是 【4】 。Private Sub Command1_Click()Dim a As Integer, b As Integer, i As Integer a = 1 b = 5 For i = b To a St

50、ep -1 a = a + 1 b = b + a If b > 30 Then Exit For Print a, b Next i Print a, bEnd Sub2. 執(zhí)行下列程序，單擊按鈕Command1，窗體上顯示的第一行內(nèi)容是 【5】 ，第二行內(nèi)容是 【6】 ，第三行內(nèi)容是 【7】 。Private Sub Command1_Click() Dim a As Integer, b As Integer a = 4 : b = 3 Do Until a > 10 b = b / 2 Do Until b > 10 a = (a + b) 2 + b b = b +

51、 5 Print a, b Loop a = a - 3 LoopEnd Sub3. 執(zhí)行下面的程序，單擊窗體后，窗體上顯示的第一行內(nèi)容是 【8】 ，第三行內(nèi)容是 【9】 ，最后一行內(nèi)容是 【10】 。Private Sub Form_Click() Dim x As Integer, y As Integer, sum As Integer For x = 1 To 3 For y = 1 To 2 sum = sum + y If sum > 2 Then Exit For Next y Print sum; x Next x Print x; yEnd Sub本題得分三、程序完善題每空2分，共計(jì)38分；1. 在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)imer1的計(jì)時(shí)器控件，其Enabled屬性值設(shè)為False，Interval屬性值設(shè)為100，要求程序運(yùn)行后，當(dāng)鼠標(biāo)在窗體上移動(dòng)時(shí)，沿鼠標(biāo)經(jīng)過(guò)的軌跡畫(huà)出一系列半徑為100的小圓，其效果如圖所示。Dim a As Integer, b As IntegerPrivate Sub Form_ 【1】 (Button As Integer, Shift As Integer, X As Single,