VB中期測試考試卷答案

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

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

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

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

5、程序一定是從某個窗體開始執(zhí)行的12. 以下關(guān)于窗體的敘述中錯誤的是（）。A. 程序運行期間，可以改變Name屬性值B. 窗體的Name屬性用于標識一個窗體C. 運行程序時，改變窗體大小，能夠觸發(fā)窗體的Resize事件D. 窗體的Enabled屬性為False時，不能響應(yīng)單擊窗體的事件13. 以下描述中錯誤的是（）。A.窗體的標題通過其Caption屬性設(shè)置B.窗體的名稱（Name屬性）可以在運行期間修改C.窗體的背景圖形通過其Picture屬性設(shè)置D.窗體最小化時的圖標通過其Icon屬性設(shè)置14. 窗體Form1上有一名稱為Command1的命令按鈕，以下對應(yīng)窗體單擊事件的事件過程是（）。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. 假定編寫了如下4個窗體事件的事件過程，則運行應(yīng)用程序并顯示窗體后，已經(jīng)執(zhí)行的事件過程是（）。A. ClickB. LoadC. LostFocusD. KeyPress16. 若在程序運行時，需要將焦點主動設(shè)置到指定的對象上，應(yīng)調(diào)用該對象的（）方法。A. MoveB. SetFocusC. RefreshD

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

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

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

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

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

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

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

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

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

16、體只能有一個彈出式菜單C. 彈出式菜單的菜單名（主菜單項）的“可見”屬性通常設(shè)置為False D. 彈出式菜單通過窗體的PopupMenu方法顯示36. 假定已經(jīng)在菜單編輯器中建立了窗體的彈出式菜單，其頂級菜單項的名稱為a1，其“可見”屬性為False。程序運行后，單擊鼠標左鍵或右鍵都能彈出菜單的事件過程是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. 窗體上有一個名稱為CD1的通用對話框，一個名稱為Command1的命令按鈕，并有如下事件過程。運行上述程序，如下敘述正確的是（）。Private Sub Command1_Click() CD1.DefaultExt = "doc" CD1.FileName = "VB.txt" CD1.Filter= "All(*.*)|*.*|Word|*.Doc|"

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

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

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

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

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

24、Y=2，則不能在窗體上顯示出“A=3”的語句是（）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，表達式x - Int(x) + Fix(y)的值是（）A. 4.3B. 4.8C. 3.5D. 4.753. 下列有關(guān)轉(zhuǎn)換函數(shù)的說法中，正確的是（）。A. Int和Cint函數(shù)的區(qū)別僅在于結(jié)果的數(shù)據(jù)類型不同B. Int和Fix函數(shù)將非整數(shù)數(shù)據(jù)轉(zhuǎn)換成整數(shù)，轉(zhuǎn)換后的結(jié)果類型是LongC.

25、Cint函數(shù)的功能是將其他類型的數(shù)據(jù)轉(zhuǎn)換成Integer類型D. 在處理負數(shù)時，Int和Fix函數(shù)的結(jié)果是相同的54. 分別執(zhí)行以下語句，輸出結(jié)果為True的是（）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. 在窗體上畫兩個名稱分別為Text1、Text2的文本框。Text1的Text屬性為“Database”。現(xià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ù)的說法中，錯誤的是（）A. Mid(x, n)表示從字符串x的第n個位置開始向右取所有字符B. 若x = "xyz"，執(zhí)行語句Mid(x, 1, 2) = "ab"后，x的值為"abz"C. Mid(x, n, 1)的取值與Left(x, n)的取值相同D

27、. 使用Mid函數(shù)可提取字符串中指定位置、指定個數(shù)的字符57. 設(shè)有字符串變量s，其值為“abcd”，可將s的值替換為“aabcd”的語句是（）。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. 表達式InStr(4, "abcabca",

28、 "c") + Int(2.5)的值為（）A. 7B. 8C. 5D. 959. 數(shù)學表達式對應(yīng)的VB表達式是（）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. 對應(yīng)數(shù)學表達式的VB表達式是（）。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. 窗體上有一個名稱為Label1的標簽和一個名稱為Command1的命令按鈕。命令按鈕的單擊事件過程如下。運行程序，單擊命令按鈕，在輸入對話框中分別輸入2、3，Private Sub Command1_Click() x = In

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

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

32、回答")65. 以下關(guān)于MsgBox函數(shù)的說法中，正確的是（）。A. MsgBox函數(shù)有返回值，且返回值類型為數(shù)值型B. MsgBox函數(shù)沒有返回值C. MsgBox函數(shù)有返回值，且返回值類型為字符型D. 通過MsgBox函數(shù)中的第一個參數(shù)，可以設(shè)置信息框中的圖標以及按鈕的個數(shù)與類型66. 以下關(guān)于If分支結(jié)構(gòu)語句的說法中，正確的是（）。A. 有End If一定有與之配對的IfB. 有If一定有與之配對的ElseIfC. 有If一定有與之配對的End IfD. 有If一定有與之配對的Else67. 設(shè)有分段函數(shù)：下述選項描述錯誤的是（）。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è)窗體上有一個名為Text1的文本框和一個名為Command1的命令按鈕，并有以下事件Private Sub Command1_Click() x! = Val(Text1.Text) Select Case x Case Is < -10, Is >= 20 : Print "輸入錯誤" Case Is < 0 : Print 20 - x Case Is < 10 : Print 20 Case Is <= 20 : Print x + 10 End SelectEnd Sub過程。程序運行時，如果在文

35、本框中輸入-5，則在單擊命令按鈕后的輸出結(jié)果是（）。A. 25B. 20C. 5D. 輸入錯誤69. Select Case X結(jié)構(gòu)中(X為Integer類型)，若判斷條件為X=5，正確的Case語句應(yīng)該是（）。A. Case X=5B. Case Is 5C. Case =5D. Case 570. 在Select Case X結(jié)構(gòu)語句中（X為Integer類型），能正確描述5X10的Case語句是（）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程序運行后，單擊窗體，輸出結(jié)果是（）A.1 1 2 3B.1 1 2 4C.1 1 3 8D.1 1 3 672. 窗體上有一個名稱為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程序運行后，單擊命令按鈕Command1，輸出結(jié)果為（）。A. 0B. -3C. -2D. -173. 窗體上有一個名稱為Command1的命令按鈕，并有如下程序：Private Sub Command1_Click() a = 10 For k = 1 To 5 Step -1 a = a - k Next k Print a; kEnd Sub程序運行后，單擊命令按鈕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 程序運行后，單擊窗體，要求結(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程序運行后，單擊窗體，輸出結(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程序運行后，單擊窗體，輸出結(jié)果是（）A. 32B. 33C

40、. 34D. 3577. 有人編寫了如下程序：上述程序的功能是：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計算s=1 + 22 + 32 + + n2 + ，直到s > 10000為止。程序運行后，發(fā)現(xiàn)得不到正確的結(jié)果，必須進行修改。下列修改中正確的是（）。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. 窗體上有一個名稱為Command1的命令按鈕，其事件過程如下：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以上程序所計算的表達式是：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. 有一個數(shù)列，它的前3個數(shù)為0，1，1，此后的每個數(shù)列都是其前面3個數(shù)之后，即0，1，1，2，4，7，13，24，要求編寫程序如下：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運行上面的程序，發(fā)現(xiàn)輸出的數(shù)列不完整，應(yīng)進行修改。以下正確的修改是（）A.把While d <= 1000改為While d > 1000B. 在i = 5的上面增加一個語句：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此程序運行后輸出的是在1100范圍內(nèi)（）。A. 同時能被3和7整除的整數(shù)個數(shù)B. 能被3或7整除個數(shù)（同時被3和7整除的數(shù)只記一次）C. 能被3整除，而不能被7整除的整數(shù)個數(shù)D. 能被7整除，而不能被3整除的整數(shù)個數(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運行程序，其中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. 如果一個正整數(shù)從高位到低位上的數(shù)字一次遞減，則稱

46、其為降序數(shù)（如：9632是降序數(shù)，而8516則不是降序數(shù)）?，F(xiàn)編寫如下程序，判斷輸入的正整數(shù)是否為降序數(shù)。Private Sub Command1_Click() Dim n As Long Dim flag As Boolean n = InputBox("輸入一個正整數(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運行以上程序，發(fā)現(xiàn)有錯，需要對給flag變量賦值的If語句進行修改。以下正確的修改是（）。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. 窗體上有一個名稱為Command1的命令按鈕，并有如下程序：Private Sub Command1_Click() Dim m As Integer, n As Integer m = InputBox("輸入第一個數(shù)") n = InputBox("輸入第二個數(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本題得分二、寫出程序運行結(jié)果每空2分，共計20分；說明：執(zhí)行下述程序，按輸出格式要求寫出運行結(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分，共計38分；1. 在窗體上畫一個名稱為Timer1的計時器控件，其Enabled屬性值設(shè)為False，Interval屬性值設(shè)為100，要求程序運行后，當鼠標在窗體上移動時，沿鼠標經(jīng)過的軌跡畫出一系列半徑為100的小圓，其效果如圖所示。Dim a As Integer, b As IntegerPrivate Sub Form_ 【1】 (Button As Integer, Shift As Integer, X As Single,