1、、填空題1、一個工程可以包括多種類型的文件，其中，擴展名為.frm 的文件表示【窗體】文件 .2、復選框【 Value 】屬性設置為 2Grayed 時，變成灰色，禁止用戶選擇.3、 聲明單精度常量P1代表3. 14159的語句為Const Pl=3. 14159.4、大于X的最小整數的 VB表示形式為【Int(x)+D .5、列表框中項目的序號是從【 0開始的 .6、根據訪問模式文件分成順序文件、隨機文件、【二進制文件.7、可以通過【文件菜單中的【退出命令退出 Visual Basic.8、設 x=2, y=4, a=4, b=6, 表達式 (a>x Xor b<x) OR x&

2、lt;y IMP y<b 的結果為 True.9、列表框 (ListBox) 顯示【列表，用戶可以從中選擇一個或多個項目.10、文件列表框的 Path 與目錄列表框的 Path 都表示 當前路徑 .11、執行下面的程序段后，a的值為【20】，b的值為【300.a=300b=20a=a+bb=aba=ab12、已知 a=3. 5, b=5. 0, c=2. 5, d=True,則表達式 : a>=0 AND a+c>b+3 OR NOT d 的值是 False.13、下面程序運行后輸出的結果是【 7】 .x=Int (Rn (D) +3If x"2>8 Then

3、 y=x"2+lIf x'2=9 Then y=x'22If x"2<8 Then y x ”3Print y14、表達式 "A"Like "A" 的值為 False.15、整型變量 x 中存放了一個二位數，要將二位數交換位置，例如 ， 13 變成 31, 實現的表達式是 【 (x Mod 10) * 10 + x10.16、若使文本框內能接受多行文本，則要設置【MultiLine 】屬性的值為 True.17、執行下面的程序段后，s的值為【10】s = 5For i = 2. 5 To 5. 1 Step 0.

4、 6 s = s+1 Next i18、 滾動條控件主要支持兩個事件，它們是scroll和change事件.19、 若定義一維數組為：Dim a(N To M),則該數組的元素為珈-N+I】個.20、 控件數組的名字由 Name 屬性決定 , 而數組中每個元素由 Index 屬性指定 .21、X=2：Y=8：PRINT X+Y=10 的結果是 True .22、當程序運行時，要求窗體中的文本框呈現空白，則在設計時，把此文本框的【Text 】屬性設置 成空白 .23、 VB中，變量的聲明可分為兩種方法：【靜態】數組和動態數組.24> Alignment 屬性設置為 1, 單選按鈕和復選框的

5、標題顯示在左邊 .25、在一條 Dim 語句中可以聲明多個變量，如 Dim strVar, intVar, sngVar As Integer,則strVar、intVar 與 sngVar 的數據類型分別是Variant、Variant 和Integer .26、聲明單精度常量 g( 重力加速度 )代表 9. 8 可寫成【 const g=9.8 .27、窗體上有一標簽，要使標簽中顯示紅色的字符 , 應該對標簽的 ForeColor 屬性進行設置28、表達式 937 MOD 2*3 的值是 5.29、列表框控件不支持 Click 事件 , 但支持【 dblclick 】事件 .30、 設x為

6、一個兩位數，將x個位數和十位數交換后所得兩位數VB的表達式是【(x mod 10) *10 + int (x/10).31、 在定義有10個元素的整型靜態數組a時，可以定義為【dim a(9) as integer ;也可以在通用部分添加 Option Base 1 語句，并定義為【 dim a(l to 10) as integer.32、用 Circle 方法畫扇形，起始角、終止角取值范圍為【在 0 -2 n 】 .33、Circle 方法正向采用【逆時針方向】時針方向 .34、要獲得列表框 List 數組的元素總個數通過【 ListCount 】屬性 .35、滾動條產生 Change 事

7、件是因為【 Value 】值改變了 . 滾動條響應的重要事件有 Scroll 和 Change.36、如果要使用命令按鈕表面顯示文字 "退岀(X)"(在字符X之下加下劃線)，則其Caption屬性37、38、39、40、41、42、43、44、45、46、47、48、49、50、51、二、1、2、設 置為【退出 (&X) 】 .一個工程可以包括多種類型的文件，其中，擴展名為 .vbp 的文件表示【工程】文件VB 6. 0 的基本表達式包括算術表達式、關系表達式和【邏輯】表達式 .由 For k=35 to 0 step 3:next k 循環語句控制的循環次數是0

8、.VisualBasic6. 0 用于開發【WINDOWS環境下的應用程序.當 x=2 時，語句 if x=2 then Print x=2 的結果值是 True.如果：l=12:J=3:l=int(-8. 6)+lJ+13/3 MOD 5,貝U I 值是1.表達式 1 and 0 的值【 False 】 .設 X$ ="abcl23456" 貝 "a"+str$ (val (right (X$, 4)的值是 a3456 .表達式 Fix(-21. 68) + Int (-12. 02)的值為 -56 .當 x=2 時，語句 if x=2 then Pr

9、int x=2 的結果值是 True .表達式 (-3) And 8 的值為 True .設 a="Good morning", 語句 Left (a, 3) 值為 Goo , Mid (a, 8, 4) 值為 rnin 在VB中,若要將字符串"12345"轉換成數字值應使用的類型轉換函數是val .當 x=2 時，語句 if x=2 then Print x=2 的結果值是 True .String (3, "abc") 的結果為 aaa.選擇題復選框的 Value 屬性為 1 時，表示 _B_.A: 復選框未被選中B: 復選框被選

10、中C:復選框內有灰色的勾D:復選框操作方式”錯誤”在程序代碼中修改滾動條的 value 屬性時將激發滾動條的 (A) 事件.A:changeB:scrollC:dragdropD:gotfocus3、假設在圖片框 Pictruel 中裝入一個圖形，為了清除該圖形 (不刪除圖片框 ) ，應采用的正確 方法 是: BA：選擇圖片框，然后按Delete鍵.B: 執行語句 Pictruel. Pictrue=LoadPictrue("")C:執行語句Pictruel. Pictrue=""D：選擇圖片框，在屬性窗口選擇Pictruel屬性，然后安回車鍵4、Pri

11、nt Day併2000-10X5#)語句顯示的結果是DA:2000-10-15B:2000C:10D:155、當事件能被觸發時， () 就會對該事件作出響應 .AA: 對象B: 程序C:控件D:窗體6、屬性窗口只能在 使用 .AA: 設計時B: 編譯時C:運行時D:以上都不對7、Rnd 函數不可能產生的 () 值. BA:0B:1C:0. 1234D:. 000058、工程資源管理器窗口中包含的文件類型有()種.CA:2B:3C:4D:59、表達式 25. 28Mod6. 99 的值是 (). CA:1B:5C:4D: 出錯10、下列的邏輯表達式中不正確的是 ()B.A:A<B AND

12、C=DB:X<Y<ZC:l>2 AND 3>1D:X>Y AND 1=211、能夠獲得一個文本框中被選取文本的內容的屬性是().CA:TextB:LengthC:SelTextD:SelStart12、一個菜單項是不是一個分隔條，由() 屬性決定 B.A: Name ( 名稱 )B:CaptionC:EnabledDivisible第 6 題(2.0 分)題號 :344513、下面 4 項中合法的字符常數是 ().BA:ABC$B: ABCC:'ABC'D:ABC() 屬性 . C14、將命令按鈕Commandl設置為缺省的活動按鈕可修改該控制件的

13、A:EnabledB:ValueC:DefaultD:Cancel15、以下能判斷是否到達文件尾的函數是 ()D.A:BOFB:LOCC:LOFD:EOF16、以下各表達式中，計算結果為 0 的是 O.DA:INT(12.4)+INT(-12.6)B:CINT(12. 4)+CINT(-12. 6)C:FIX(13. 6)+FIX(-12.6)Visual Basic 的工作狀態可分為設計、D:FIX(12.4)+FIX(-12.6)17、作為一個給編輯、編譯、運行與一體的集成環境，中斷、和 () 三種模式 .A：開發B: 運行C: 插入斷點D: 逐句跟蹤18、執行了下面的程序：Sub For

14、m_Click()For i=l To 6 Listl. Additem iNextFor i=l To 3Listl.Removeitem iNextEnd Sub 列表框中的數據項為 DA:l, 5, 6B:2, 4, 6C:4, 5,6D:l,3,5屬性值19、為使計時器控件每隔5 秒鐘產生一個計時器事件 (Timer 事件 ) ，則應 D 將其 Interval設置為 ().A:5B:500C:300D:5000 20 、組合框有三種風格 ,它們由 Style 屬性所決定，其中為下拉列表框時 ,Style 屬性值應為 0.CA:0B:1C:2D:321、以下關于過程及過程參數的描述中，

15、錯誤的是 ().CA: 過程的參數可以是控件名稱B: 用數組作為過程的參數時，使用的是傳地址方式C: 按傳值方式傳送參數時，有可能會改變實際參數的值 .D: 窗體可以作為過程的參數第 6 題(2.0 分)題號 :320722、設 a="Visual Basic ”,下面使 b="Basic ” 的語句是 C .A :b 二 Left (a, 8, 12)B:b=Left (a, 8, 5)did (a, 8, 5)D:b=Right (a, 5, 5)23、下列可縮放圖片的屬性是 ().CA:autosizeB:pictureC:stretchD:01eDrawMode24

16、、改變控件在窗體中的上下位置應修改控件的() 屬性 A.A:TopB:LeftC:WideD:Height25、執行指令 Line (1200, 1200) -Step (1000, 500), B 后 , CurrentX=AA:2200B:1200C:1000D:170026、在下列說法中，正確的是.DA：通過適當的設置，可以在程序運行期間，讓時鐘控件顯示在窗體上B: 在列表框中不能進行多項選擇C:在列表框中能夠將項目按字母順序從大到小排列D: 框架也有 Click 和 DblClick 事件27> Integer 類型的數據由 字節組成 . BA:1B:2C:3D:428、VB的過

17、程有三種，它們是 ()A.A:事件過程、子過程和函數過程B:Sub 過程、 Function 過程和 Property 過程C:事件過程、函數過程和屬性過程D:Sub 過程、函數過程和通用過程29、常量 2. 7856E-6 的類型是 B.A:整型B: 實型C:字符型D：雙精度30、inputBox 函數返回值的類型為 (). BA: 數值B: 字符串C:變體D:數值或字符串(視輸入的數據而定), 必不可少的.C31、在VB集成環境創建 VB應用程序時，除了工具箱窗口、窗體窗口、屬性窗口外 窗 口是 0.CA: 窗體布局窗口B: 立即窗口C: 代碼窗口D:監視窗口32、在 Visual Bas

18、ic 中最基本的對象是 () ，它是應用程序的基石，是其他控件的容器A: 文本框B :命令按鈕C:窗體D:標簽33、下面是 0 合法的字符常數 .BA:ABC$B:"ABC”C:'ABC'D:ABC34、以下屬于合法的數組元素是 0.CA:x8B:xAC:x(3)D:x635、變量未賦值時，數值型變量的值為 (). AA:0B: 空C:1D: 無任何值36、組合框控件是將 () 組合成一個控件 . AA: 列表框控件和文本框控件B：標簽控件和列表框控件C: 標簽控件和文本框控件D:復選框控件和選項按鈕控件37、 數學關系3Wx<10表示成正確的 VB表達式為BA

19、:3<=x<10B:3<=x AND x<10C:x>=3 OR x<10D:3<=x AND <1038、控件是 ().AA: 建立對象的工具B: 設置對象屬性的工具C：編寫程序的編輯器D: 建立圖形界面的編輯窗口39、每個窗體對應一個窗體文件，窗體文件的擴展名是 ().C A:.basB:.cisC:. frmD:. vbp40、下列 () 是窗體的擴展名 A.A: frmB:basC: cisD:dll41、下面關于順序文件的描述正確的是 DA: 文件中按每條記錄的記錄號從小到大排序好B: 文件中按每條記錄的長度從小到大排序好C: 文件中按

20、記錄的某關鍵數據項從大到小的順序排序D:記錄按進入的先后順序存放，讀岀也是按原寫入的先后順序讀42、要獲得當前驅動器應使用驅動器列表框的哪個屬性 ()B. A:PathB:DriveC:DirD:Patten43、以下敘述中錯誤的是 O.CA：打開一個工程文件時，系統自動裝入與該工程有關的窗體、標準模塊等文件B: 保存 VisualBasic 程序時，應分別保存窗體文件及工程文件C:VisualBasic 應用程序只能以解釋方式執行D: 事件可以由用戶引發，也可以由系統引發44、按文件的組織方式分有 AA: 順序文件和隨機文件B:ASCII 文件和二進制文件C：程序文件和數據文件D：磁盤文件和

21、打印文件45、 表達式 print Len(trim(" abed ")&"123”) 的結果是 BA:9B:7C:abedD:12346、下列不屬于代碼窗口的是 ().DA: 對象下拉式列表框B: 過程下拉式列表框C:代碼框D :屬性列表框47、下面關于順序文件的描述正確的是 CA : 每條記錄的長度必須相同B : 可通過編程對文件中的某條記錄方便地修改C：數據只能以ASCII碼形式存放在文件中，所以可通過文本編輯軟件顯示D: 文件的組織結構復雜48、下面關于順序文件的描述正確的是 CA : 每條記錄的長度必須相同B：可通過編程對文件中的某條記錄方便地修

22、改C：數據只能以ASCII碼形式存放在文件中，所以可通過文本編輯軟件顯示D ：文件的組織結構復雜49、下列有關控件數組與一般控件的區別的敘述中，最合理的是AA： 控件數組一定由多個同類型的控件組成，一般控件只有一個控件;B：控件數組的Index為0,而一般控件的Index為空；C： 控件數組的 Index 為 1, 而一般控件的 Index 為 0;D:控件數組的建立通過Dim語句聲明，而一般控件不必聲明.50、雙擊窗體的任何地方，可以打開的窗口是 (). AA: 代碼窗口B：屬性窗口C: 工程管理窗口D：以上3個選項都不對51、選擇和循環結構的作用是 (). AA：控制程序的流程B :提高程

23、序的運行速度C：便于程序的閱讀D：方便程序的調試52、不能通過 () 來刪除列表框中的選項 . DA：List 屬性B： Remove Item 方法C： Clear 方法D：Test 屬性53、 表達式 4+5 6 * 7 / 8 Mod 9的值是 ().BA：4B：5C：6D：754、當一個工程含有多個窗體時，其中的啟動窗體是 O.DA： 啟動 Visual Basic 時建立的窗體B： 第一個添加的窗體C：最后一個添加的窗體D:在'工程屬性“對話框中指定的窗體55、在下面關于窗體事件的敘述中，錯誤的是 CA：用Hide方法不但可以隱藏窗體，而且可以清除內存中的窗體B： 在多重窗體

24、的程序中，各窗體的德菜單是彼此獨立的C： 對于多重窗體，需要單獨保存每個窗體D：Resize 事件在窗體的大小有所改變時被觸發 56、下列方法中可用于列表框動態添加數據 的是 (). BA： addB：additemC：addlistD：removeitem0屬性.D57、將通用對話框類型，設置為字體對話框，可修改該控件的A:fontB:filenameC:filterD:action58、用下面語句定義的數組的元素個數是() CDim A (-2 To 4) As IntegerA:6B:5C:7D:859、不管一個對象的屬性如何設置，程序運行時始終都能接收焦點的 方法是 (). DA：用T

25、ab鍵B: 用鼠標C：用方向鍵D：不能實現60、 下面關于多重窗體的敘述中，正確的是AA: 作為啟動對象的 Main 子過程只能放在窗體模塊內B：如果啟動對象是 Main子過程，則程序啟動時不加載任何窗體，以后由該過程根據不同情 況 決定是否加載及加載哪一個窗體C: 沒有啟動窗體，程序不能執行D: 以上都不對61、以下正確的描述是 : B在 Visual Basic 應用程序中A：過程的定義可以嵌套，但過程的調用不能嵌套B :過程的定義不可以嵌套 , 但過程的調用能嵌套C：過程的定義過程的調用均可以嵌套D: 過程的定義過程的調用均不可以嵌套62、MSGBO函數中有4個參數，其中必須寫明的參數是

26、 ().CA: 指定對話框中顯示按鈕的數目B: 設置對話框標題C: 提示信息D：所有參數都是可選的 63、每建立一個窗體，工程管理器窗口中就會增加一個().BA: 工程文件B: 窗體文件C: 程序模塊文件D: 類模塊文件64、下列不能用 commondialog 控件調用的對話框是 (). DA:open/saveB:helpC:fontD:search65、將數據項"China ”添加到列表框(Listl)中成為第一項應使用的語句是()。AA:Listl.Additem" China" , 0B:Listl. Addltem ,z China" , 1

27、C:Listl. Additem 0, " China ”D:Listl. Additem 1, " China ”66、Sub過程與Function過程最根本的區別是DA:Sub 過程可以有參數 , Function 過程不可以B: Function 過程可以有參數，Sub過程不可以C: 兩種過程參數的傳遞方式不同D:Sub 過程的過程名不能返回值，而 Function 過程能通過過程名返回值67、下列控件中，沒有 Caption 屬性的是 BA:框架B: 列表框C:復選框D:單選按鈕68、Line (100, 100) -Step (400, 400) 將在窗體 ()

28、畫一直線 . CA: (200, 200) 到 (400, 400)B: (100, 100) 到(300, 300)C: (100, 100) 到 (500, 500)D: (100, 100) 到(400, 400)69、下面關于隨機文件的描述不正確的是 BA: 每條記錄的長度必須相同B: 一個文件中記錄號不必惟一C : 可通過編程對文件中的某條記錄方便地修改D : 文件的組織結構比順序文件復雜70、 下面正確的賦值語句是CA:x+y=30B:y 二丸 *r*rC:y=x+30D:3y=x71、在程序代碼中修改滾動條的value 屬性時將激發滾動條的 () 事件 .AA:change B:

29、scrollC:dragdropD:gotfocus72、窗體設計器是用來設計(). BA：應用程序的代碼段B: 應用程序的界面C:對象的屬性D：對象的事件73、以下的 vb 常量中非法的是 (). BA:"Good Luck B:PIC:.OO15D:16. 341274、 運行下面程序后，在窗體中顯示的是. DPrivate Sub FormClick() a$ 二 * ":b$二 $ For k=l To 3x$=String$(Len(a$)+k, b$) Print x$; Next k Print End SubA:* * *B:*$*$*$C:l*$2*$3*

30、$D:$75、當輸入 4 時，以下程序的輸出結果是 . BPrivate Sub Commandl_Click() x=InputBox(x)If x"2 15 Then y=l/x If x"2>15 Then y=x"2+l Print yEnd SubA:4B:17C:18D:2576、表達式 Len( 123 程序設計 ABC ) 的值是 AA:10B:14C:20D:1777、簡單組合框的 style 值為 (). BA:0B:1C:2D:378、當一個對象 (如窗體或圖片框 ) 被移動或改變大小之后，或當一個覆蓋該窗體被移開之后， 如果要保持該所

31、畫圖形的完整性，可以選擇觸發 () 事件來完成圖形的重畫工作 . AA:PaintB:LoadC:ClickD:Active79、下列不屬于代碼窗口的是 (). DA: 對象下拉式列表框B: 過程下拉式列表框C:代碼框D: 屬性列表框80、下列對象中沒有焦點屬性的是 (). BA: 命令按鈕控件B: 窗口控件C: 文本框控件D: 單選框控件81、用下面語句定義的數組的元素個數是 () CDim A (-2 To 4) As IntegerA:6B:5C:7D:8 82 、 InputBox 函數返回值的類型是 (). BA: 整型數值B：字符串C：變體D：數值或字符串83、 以下不具有 Pic

32、ture 屬性對象是 (). DA： 窗體B： 圖片框C： 圖像框D：文本框 84、 復選框的 Value 屬性為 1時,表示 . BA: 復選框未被選中B: 復選框被選中C：復選框內有灰色的勾D：復選框操作方式”錯誤”85、要使 Forml 窗體的標題欄顯示" 歡迎使用 VB”,以下語句正確的是(). DA:Forml. Caption="歡迎使用VB”B: Forml. Caption='歡迎使用VB 'C: Forml. Caption=歡迎使用VBD: Forml. Caption="歡迎使用VB”86、表達式 16/4-2'5*8

33、/4MOD52 的值為 BA:14B:4C:20D:287、以下的 vb 常量中非法的是 (). B A: "Good Luck ”B:PIC:.OO15D:16. 341288、單擊滾動條的滾動箭頭時 , 產生的事件是 ().A:ClickB:ScrollC:ChangeD:Move89、 形狀控件所顯示的圖形不可能是(). DA: 圓B: 橢圓C: 圓角正方形D: 等邊三角形90、 以下敘述錯誤的是：BA: 下拉式菜單和彈出式菜單都用菜單編輯器建立False, 則菜單項不可見B: 如果把一個菜單項的 Enabled 屬性設置為C：除分隔線外，所有菜單項都能接收Click事件D:

34、內縮符號由 4 個點組成，它表明菜單項所在的層次92在窗體Forml的Click事件過程中有以下語句：C的Name屬性和Label1. Caption= Visual Basic ” 若本語句執行之前，標簽控件的 Caption 屬性為默認值，則標簽控件 Caption 屬性在執行本語句之前的值分別為 ().A: Labe1、"Label ”B: "Label 1、 Visual Basic ”C:"Label1 、 "Label1 D:"Caption ” 、 "Label ”93、 要把一個命令按鈕設置成無效, 應設置其哪一屬性值

35、 (). BA:VisibleB:EnabledC:DefaultD:Cancel94、執行語句 For i=l To 3:i=i+l:Next i后，變量 i 的值是 (). CA:3B:4C:5D:695、以下的屬性和方法中 , 可重定義坐標系的是 CA:Drawstyle 屬性B:DmwWidth 屬性C: Scale 方法D: Seal eMode 屬性96、 在窗體上畫一個名稱為TxtA 的文本框，然后編寫如下事件過程：Private Sub TxtA_KeyPress(Keyascii as integer)End Sub若焦點位于文本框中，則能夠觸發 KeyPress 事件的操作

36、是： DA: 單擊鼠標 eB: 雙擊文本框C:鼠標劃過文本框D：按下鍵盤上的某個鍵三、程序填空功能：以下程序段分別以子過程和函數來計算某級數部分和 級數公式如圖1所示。Function jishul (x!, eps#) As DoubleDim n%, s#, t# n = 1: s = 0: t = 1 Do While (Abs(t) >= eps)I *SPACE*?s =t =n =Loo ps + t t * x / nn + 1jishulEnd FunctionSub jishu2(s#, x!, eps#)Dim n%, t# n=l: s = 0: t = 1Do W

37、hile (Abs(t) >= eps) s = s + t tLoopEnd SubPrivate Sub Command1_Click()Dim fl#, f2# fl = jishul (2#, 0. 000001) '*SPACE*? jishu2 (f2, 2#, 0. 000001)Print fl =； fl, f2 二；f2 End Sub功能：本程序段將一個十進制整數m轉換成r (2 16)進制字符串方法：將m不斷除r取余數，直到商為零，以反序得到結果。caFunction TranDec$(ByVai m%, ByVai r%)Dim StrDtoR$Dim

38、iB%, mr%StrDtoR =""Do While m <> 0*mr = ?SPACE*m Mod rIf mr = 10 Then*SPACE*StrDtoR = Chr(mr - 10 +【？】)& StrDtoR65ElseStrDtoR = mr & StrDtoREnd IfLoopTranDec = StrDtoREnd FunctionPrivate Sub Commandl_click()Dim m0%, r0%, i%mO = Vai(Textl. Text)rO = Vai (Text2. Text)If rO <

39、 2 Or rO > 16 Theni = MsgBoxC 輸入的 R 進制數超出范圍， vbRetryCancel)If i = vbRetry ThenText2. Text 二Text2. SetFocusElseEndEnd IfEnd IfLabel3. Caption =轉換成 & rO & 進制數I*SPACE*rOText3. Text = TranDec(mO, ? )End Sub3、以下程序段用于計算若干個數字的最大公約數。Option Base 1Private Function gcd(ByVai m%, ByVai n%) As Integer

40、 If m < n Then t = m: m = n: n = t Dor = m Mod nIf r = 0 Then Exit DoLoopI*SPACE*gcdPrivate Sub Command1_C1ick()Dim a() As Integern 二 InputBox ( ，z 輸入 n)ReDim a(n)For i = 1 To na(i) = InputBox ( ， z 輸入數據 )Next inl = a(l)For i = 2 To nml = a(i)mn = gcd (ml, nl)If mn = 1 Then Exit For Else nl = mn

41、Next iI*SPACE*mnPrint ?End Sub4、， ' 功能：求表達式 s=x/2!+x"3/4!+.? +x" (2n-l)/(2n) ! 的值 , ' 并在窗體上輸出Private Sub Form_Click() Dim x As SingleDim n As Integer Dim sum As Single x = Vai (InputBox( integer/ 7)*Z/ Please input x Value:z ，) n 二 Vai (InputBox( /z Please input aSPACE*s (n, x)sum

42、=【 ？】Print s=； sumEnd SubFunction s(n As Integer, x As Single) As SingleDim i As Single, t As Long s = 0For i = 1 To nt = 1For j = 1 To 2 * i*? Next jI*SPACE*S = S + X " (?)/ t Next i End Function5 ' 功能：用 Circle 方法在圖片框正中畫出許多不同顏色的同心圓 ' 且不能畫出圖片框。Private Sub Picturel_Click() Dim CX, CY, Ra

43、dius, Limit ScaleMode 二 3I*SPACE*CX= ?Picturel. ScaleWidth / 2CY = Picturel. ScaleHeight / 2*SPACE*Limit 二 CX*SPACE*For Radius = 0 To ?Picturel. Circle (CX, CY), Radius, RGB(Rnd * 255, Next RadiusLimitRnd * 255, Rnd* 255)End Sub功能：以下程序段采用冒泡法對數組元素進行排序。Option Base 1Private Sub Command1_C1ick()7 Print

44、/z 冒泡法排序數據變化過程Print 8, 6, 9, 3, 2, 7Print Dim iA(l To 10) n = 6 iA(l) = 8: iA(2)= 6: iA(3) 二 9: iA(4) = 3: iA(5) = 2: iA(6) =I*SPACE*For i = 1 To ? Step 1n-1For j = n To ? Step -1 If iA(j) < iA(j - 1) Then t iA(j) = iA(j - 1)iA(j)*SPACE*If CX > CY Then Limit = CY Else ?iA(j - 1) = ?1Next jPrin

45、t i=； i; Spc(i * 3 - 3);For k = i To nPrint iA(k);Next kPrintNext iEnd Sub7 ' 功能：以下程序段用于計算n 的階乘： n! o (1! =1)Public Function fac(n As Integer) As Integer*SPACE*If n = ? Thenfac = 1ElseI*SPACE*facn * fac( 【？】 )nlEnd IfEnd FunctionPrivate Sub Command1_C1ick 0Print fac(4)=" fac(4) End Sub8、 &#

46、39; ' 功能：以下程序段實現的功能是：查找一數列中是否存在某數字 x,' 若數列中存在該數字，則輸出其出現的次數，否則輸出不存在信息。I*SPACE*a()Private Function Search( ? As Integer, ByVai key, n%) As Boolean Dim i%Search 二 FalseFor i = LBound(a) To UBound(a)If Key = a(i) Then*Search = True?Next iEnd FunctionPrivate Sub FormClick()Dim x As Integer, k As

47、IntegerDim b (10) As IntegerFor i = 0 To 10b(i) = Int(Rnd * 70) + 20Print b(i);Next iPrint x = VaKlnputBoxC 輸入待查找數據 )If Search (b, x, k) ThenI*SPACE*Print x; 在數列中出現； ?; 次ElsePrint x; 未在數列中出現End IfEnd Sub功能：窗體上建立了兩個文本框 TextK 輸入字符串 ） 及 Text2（ 轉換結果 ） ，一個命令按鈕 Command 1 （ 清除 ） 錄入 Textl 內容時，將錄入內容大寫字母轉為小寫，

48、 小寫轉為大寫。Private Sub Commandl_Click() Textl. Text = Text2. Text = Textl. SetFocus End SubPrivate Sub Textl_KeyPress(KeyAscii As Integer) Dim s As String * 1I*SPACE*s = ? (KeyAscii)ChrSelect Case sI*SPACE*Case A ? Zs 二 LCase (s) Case a lo z ?Case Else , s 二 *End Select*SPACE*To s =UCase (s)Text2.Text

49、= Text2. Text + sEnd Sub四、程序改錯1 ,題目：該程序的功能是求岀100到200之間的全部素數，并且按每行4個、每個數據之間有10個空格的格 式輸岀Option ExplicitPrivate Sub Form_Click()Dim k As Integer, i As Integer, j As Integer k =0For i = 100 To 200*F0UND*For j = 2*F0UND*Print i; Tab(10); k = k*F0UND*If k Mod 5=0 Then Print ;End IfNext iEnd SubPrint i ;Sp

50、ace (10);If k Mod 4 = 0Forj = 1 To i- 1If i Mod j = 0 Then Exit For Next jIf j 二 i Then2、''題目：下面的程序用來產生并輸岀圖示的楊輝三角。,1111211331146411510105Option ExplicitPublic Sub readin(a() As Integer, n As Integer)Dim i, j As IntegerFor i = 1 To nI *F0UND*a(i, n) = 1a(i, 1) = 1Next iFor i = 3 To nI * ikin

51、*For j = 2 To i - 1For j = 2 To na(i, j) = a(i - 1, j) + a(i - 1, j - 1)Next jNext iEnd SubPublic Sub printf(a() As Integer, n As Integer) Dim i, j As IntegerFor i = 1 To nI*F0UND*For j = 1 To nPrint Tab(5 * j + 10) ; a(i, j);Next jPrintFor j = 1 To iNext iPrintEnd SubPrivate Sub Form_Click()Dim x (10, 10) As IntegerCall readin(x(), 6)Call printf (x(), 6)End Sub3、 ' ' 題目：本程序的功能是隨機產生的 10 個兩位正整數，并進行遞減排序。Option ExplicitPrivate