VB考試試題及答案

1、卷1一、    填空題1、VB程序設(shè)計(jì)的主要特點(diǎn)是     可視化設(shè)計(jì)     和    事件編程      。2、在VB中，最主要的兩種對(duì)象是   窗體（form）  和 控件  。3、工程是構(gòu)成應(yīng)用程序文件的    集合   。4、方法是VB提供的一種&#

2、160; 特殊子程序   ，用來完成一定的操作。5、浮點(diǎn)類型數(shù)據(jù)包括單精度型和_雙精度_數(shù)據(jù)。6、事件是窗體或控件對(duì)象識(shí)別的_動(dòng)作_。7、可用窗體的_print_  方法在窗體中顯示文字。8、 復(fù)選框控件Value屬性指示復(fù)選框處于_選中_或禁止?fàn)顟B(tài)(暗淡的)中的某一種。9、在VB中，修改窗體的   高度（height）和   寬度（width）  屬性值，可改變窗體的大小。10、雙擊工具箱中的控件圖標(biāo)，可在窗體的    中央

3、  出現(xiàn)一個(gè)尺寸為缺省值的控件。11、在MsgBox函數(shù)中，如果缺省title參數(shù)，則使用   工程1  作為消息框的標(biāo)題。12、設(shè)x34.58，語句Print Format(x,“000.0”)的輸出結(jié)果是  34.6 。13、在VB 中，數(shù)值型變量的初值為  0 ，Varant型變量的初值為  空  ，布爾型變量的初值為  FALSE  。14、設(shè)置窗體的 

4、60; picture  屬性，可在窗體上顯示圖片。15、程序運(yùn)行工程中，清除MP圖片框中的圖片應(yīng)使用語句  cls 。二、選擇題1、菜單控件只包括一個(gè)事件，即  C   ，當(dāng)用鼠標(biāo)單擊或鍵盤選中后按“回車”鍵時(shí)觸發(fā)該事件，除分隔條以外的所有菜單控件都能識(shí)別該事件。A、GotFocus         B、Load        C、Cl

5、ick        D、KeyDown2、滾動(dòng)條控件(如圖所示)的Max屬性所設(shè)置的是  A   。A、滾動(dòng)框處于最右位置時(shí)，一個(gè)滾動(dòng)條位置的Value屬性最大設(shè)置值B、 單擊滾動(dòng)條和滾動(dòng)箭頭之間的區(qū)域時(shí)，滾動(dòng)條中滾動(dòng)塊的最大移動(dòng)量C、單擊滾動(dòng)條的箭頭區(qū)域時(shí)，滾動(dòng)條中滾動(dòng)塊的最大移動(dòng)量D、滾動(dòng)條控件無該屬性3、SQL 語句 Select * Form student 中的 *表示    

6、0;  B      。A、所有記錄     B、所有字段     C、所有表   D、都不對(duì)4、以下選項(xiàng)中，不屬于標(biāo)簽的屬性是  C   。A、Enabled         B、Caption      C、Default&#

7、160;    D、Font5、要求改命令按鈕顯示的文本，應(yīng)當(dāng)在屬性窗口中改變的屬性是  A   。   A、Caption        B、Name        C、Text        D、Label6、設(shè)置一個(gè)單選按鈕(OptionButton)所代表選項(xiàng)的選中狀態(tài)，

8、應(yīng)當(dāng)在屬性窗口中改變的屬性是  D   。    A、Caption        B、Name       C、Text        D、Value7、允許在菜單項(xiàng)的左邊設(shè)置打勾標(biāo)記，下面哪種論述是正確的？  D   。   A、在標(biāo)題

9、項(xiàng)中輸入&，然后打勾            B、在索引項(xiàng)中打勾               C、在有效項(xiàng)中打勾                   &#

10、160;   D、在復(fù)選項(xiàng)中打勾8、當(dāng)執(zhí)行以下過程時(shí)，在窗體上將顯示  A   。Private Sub Command1_Click( )Print "VB"Print "Hello! "Print "VB"End SubA、 VBHello!VB                B、 VB

11、0;                                                  Hello!VB

12、             C、 VB                          D、 VB        Hello! &

13、#160;VB                      Hello!                          

14、0;             VB9、語句Print "The answer is:"20/4-2的結(jié)果為  B   。A、The answer is 20/4-2          B、The answer is 3C、The answer is "20/4-2"  

15、      D、非法語句  10、下列哪個(gè)控件是容器控件  B   。   A、Image      B、Picture      C、ComboBox       D、FileListBox   11、若要將窗體從內(nèi)存中卸載出去，其實(shí)現(xiàn)的方法是  

16、D   。A.Show    B.Hide      C.Load      D.UnLoad12、以下選項(xiàng)中，不是 Visual Basic控件的是  A   。 A.窗體   B.定時(shí)器    C.單選框    D.命令按鈕13、雙擊窗體中的對(duì)象后，Visual B

17、asic將顯示的窗口是  A   。  A.代碼窗口  B工具箱  C項(xiàng)目（工程）窗口 D屬性窗口14、可決定窗體的左上角是否有控制菜單的屬性是  A   。A.ControlBox              B.MinButton  C.MaxButton  

18、;         D.BorderStyle15、設(shè)有如下語句：   StrlInputBox（"輸人"，""，"練習(xí)"）從鍵盤上輸人字符 “示例”后，Strl的值是  D   。   A“輸入”      B“ ”      C“練習(xí)” 

19、;     D“示例”         16、窗體Form1的Name屬性是Frm1,它的單擊事件過程名是    C   。   A. Form1_Click    B.Form_Click    C. Frm1_Click   D. Me_Click  17

20、、窗體的hide屬性的含義是      A   。    A.隱藏          B.展現(xiàn)          C.裝入           D.卸載18、若

21、要設(shè)置定時(shí)器控件的定時(shí)時(shí)間，需設(shè)置的屬性是  C   。AEnabled BValue CInterval DText19、能夠改變復(fù)選框中背景顏色的屬性是  C   。    AValue          BFontColor    CBackColor    DFont20、窗體能響

22、應(yīng)的事件是    B  。    AActiveForm       BLoad      CDrive         DChange三、判斷題(判斷下列正確與否，正確的打，錯(cuò)誤的打。)1、三種方式的組合框都允許用戶輸入哪些不在列表框中的選項(xiàng)。X2、圖象框中的Stretch屬性為true時(shí)，其作用是圖形自動(dòng)調(diào)整大小以

23、適應(yīng)圖象控件。X3、在菜單編輯器中使用“索引”時(shí)，可有一組菜單項(xiàng)具有相同的“名字”。X4、通過改變屬性窗口中的Name屬性，來改變窗體的標(biāo)題。5、創(chuàng)建VB應(yīng)用程序的三個(gè)主要步驟是：(1)創(chuàng)建應(yīng)用程序界面(2)設(shè)置控件(3)編寫代碼。X6、變量是指在程序運(yùn)行過程中其值可以改變的那些量，而值不能改變的是常量。7、已知PMsgBox(“Howareyou?"，VbYesNo+VbQuestion，“Hello!”)，變量P是Integer數(shù)據(jù)類型。8、工程文件的擴(kuò)展名是 .vbg 。9、VB允許設(shè)計(jì)和使用用戶自己設(shè)計(jì)的控件。10、OptionButton控件沒有DblC

24、liek事件。X11、同一條記錄中的各數(shù)據(jù)具有相同的類型。12、使用Data控件可以直接顯示數(shù)據(jù)庫中的數(shù)據(jù)。X13、ImageList 是一個(gè)圖像容器控件，可用作工具欄的圖像庫。14、當(dāng)用戶單擊工具欄按鈕時(shí)，將觸發(fā)工具欄按鈕的ButtonClick事件。15、在VB的工程資源管理器中，如果從工程中移除已經(jīng)保存過的文件，該文件仍然被物理刪除（真正刪除）。X16、如果列表框的ListConut的屬性為10，則列表框最后一項(xiàng)的ListIndex值為10。X17、要是某個(gè)命令按鈕不起作用，應(yīng)將該按鈕的Enabeld屬性設(shè)置為False。18、使用數(shù)組定義語句：Dim D$（10），則數(shù)組D中

25、各元素的值為空。X19、如果在一行中輸入多條語句，各語句之間用使用 ；分隔。X20、在代碼窗口中輸入某行代碼并按回車鍵之后，如果代碼變成紅色，說明該行代碼有語法錯(cuò)誤。   四、讀程序題，寫出程序運(yùn)行結(jié)果    1、 Private Sub Form_Click()Static SUM As IntegerI = 1Do While I<=10SUM = SUM + II = I + 1LoopPrint SUMEnd Sub        運(yùn)行程序，第一次單擊

26、窗體：     55                        第二次單擊窗體：   110         2、 Private Sub Form_Click()Print "*" T

27、ab(6); 2, Tab(15); 5PrintFor I = 15 To 16Print I;For j = 2 To 6 Step 3  Print Tab(3 * j); j * I;Next jPrintNext IEnd Sub             程序運(yùn)行結(jié)果：   *   2    5     &#

28、160;                     15    30   75                      

29、     16    32   80                      五、編程題 （一）窗體中有圖片框(Picture1)和計(jì)時(shí)器(Timer1)兩個(gè)控件，運(yùn)行程序時(shí)，將圖片加載到圖片框中，然后圖片框以每2秒鐘一次的速度向窗體的右下腳移動(dòng)，每次向左、向右移動(dòng)100twi

30、p（20分之一像素）。請(qǐng)?zhí)羁眨?#160;       Private Sub  Form_load( )                Picture1.picture   =loadPicture(“c:picball.ico”)         

31、0;    Timer1    .Interval=200       End  Sub        Private  Sub  Timer1_Timer( )           Static  x , y

32、  As  Integer           x=x+100           y=y+100             Picture1.Move     x , y 

33、0;          End  Sub    （二）有一個(gè)單擊按鈕過程，其作用是產(chǎn)生50個(gè)60100的隨機(jī)數(shù)，統(tǒng)計(jì)其中被6整除余2的個(gè)數(shù)，并將這些數(shù)輸出。請(qǐng)?zhí)羁眨?#160;       Private Sub Command1_Click()         Dim  x &

34、#160;As  Integer,  N%         Dim  Counter  As  Integer               randomize      Timer    &

35、#160;     For  N=1  To 50            X=Rnd()*    rnd()*41+60             If     x  Mod

36、0; 6     =2  Then              Print  x              Counter=    Counter+1     &

37、#160;            End if               Next  N         Print  Counter       End  

38、Sub卷2第一部分：客觀題一、 單項(xiàng)選擇題1、在窗體模塊的通用段中聲明變量時(shí)，不能使用的關(guān)鍵字是（ ）A、 Dim B、 Public C、Private D、 Static2、在設(shè)計(jì)階段，當(dāng)雙擊窗體上的某個(gè)控件時(shí)，所打開的窗口是（） A、工程資源管理器窗口 B、工具箱窗口 C、 屬性窗口 D、代碼窗口3、若要使某可見控件獲得焦點(diǎn)，可使用（ ）方法來實(shí)現(xiàn)。 、Refresh 、Setfocus 、Gotfocus 、Value4、下列不可作為VB變量名的是（）A、ABT1 B、Alpha C、ABC D、4*Delta5、表達(dá)式 5 Mod 3+35*2的值是 （）A、 0 B、 6 C、4

39、D、 26、下列語句中，正確的賦值語句是（ ）A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 07、執(zhí)行下列程序段后，x的值是（ ）。 n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < nA、 2 B、 6 C、 10 D、 14 8、當(dāng)用戶在窗體上單擊鼠標(biāo)時(shí)，不會(huì)觸發(fā)的事件是（） 、Click 、MouseDown 、MouseUp 、DblClick9、下列為整型變量的是（ ）A、 x! B、 x# C、x$ D、 x%10、要從For循環(huán)中直接退出循環(huán)，可使用的語句(

40、)。A、Exit Do B、Exit Loop C、Exit For D、Stop11、下列邏輯表達(dá)式中，能正確表示條件“x，y都是奇數(shù)”的是（）A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0C、x Mod 2 =0 And y Mod 2=0 D、x Mod 2 =1 And y Mod 2 =112、在通用聲明中給出Option Base 1語句，則數(shù)組a包含（ ）個(gè)數(shù)組元素。 Dim a(3, -2 To 1, 5) As IntegerA、60 B、75 C、120 D、1313、設(shè)窗體上有一個(gè)名稱為Text1的文本框，要求只能

41、顯示信息，不能輸入，應(yīng)選擇答案（）A、Text1.MaxLength=0 B、Text1.Width=0C、Text1.Visible=False D、Text1.Enabled=False14、命令按鈕CommandButton的Picture,DownPicture和DisablePicture屬性都已裝入圖形,按下命令按鈕,其上顯示的圖形是（ ）A、Picture屬性中的圖形 B、DownPicture屬性中的圖形C、DisablePicture 屬性中的圖形 D、不顯示圖形15、在窗體上畫一個(gè)名稱為Command1的命令按鈕，并編寫如下程序：Private Sub Command1_C

42、lick()Dim x As IntegerStatic y As Integerx=10：y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是 （）A、 10 5 B、 12 5 C、 10 7 D、 12 716、執(zhí)行以下程序段，輸出結(jié)果為 （）Private Sub Command1_Click()a$="abbacddcba"For i=6 To 2 Step -2 X=

43、Mid(a,i,i) Y=Left(a,i) z=Right(a,i) z= UCase(x & y & z)Next iPrint zEnd SubA、 ABA B、ABBABA C、 BBABBA D、AABAAB17、以下（ ）語句可表示50,100之間的隨機(jī)數(shù)。A、Int(Rnd * 51) + 49 B、Int(Rnd * 51 +50) C、Int(Rnd * 50) + 5 D、Int(Rnd * 50 + 50)18、執(zhí)行x = InputBox("請(qǐng)輸入半徑",0,"求面積") ，在輸入框中輸入3后回車,則下列敘述正確的

44、是（ ）A、x的值是數(shù)值3 B、 x的值是字符"3"C、0是默認(rèn)值 D、 對(duì)話框標(biāo)題是"求面積"19、設(shè)置圖像框的（ ）可使框內(nèi)的圖片按圖像框大小自動(dòng)調(diào)整。A、 AutoSize屬性為True B、 Stretch屬性為TrueC、 AutoSize屬性為False D、 Stretch屬性為False20、有如下事件過程Private Sub Command1_Click()x = 1For i = 1 To 3If i <= 1 Then a = x * xIf i <= 2 Then a = x * x + 1If i >= 3

45、Then a = x * x + 2Print a; Next iEnd Sub運(yùn)行時(shí)，單擊命令按鈕，則結(jié)果是（ ）：A、 2 5 11 B、1 5 1 C、 2 2 3 D、1 1 121、在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：Private Sub Command1_Click() Static X As IntegerStatic Y As IntegerClsY = 1: Y = Y + 5: X = 5 + XPrint X, YEnd Sub程序運(yùn)行時(shí)，單擊命令按鈕Command1三次后，窗體上顯示的結(jié)果為（）A、15 16 B、15 6 C、15 15

46、 D、 5 622、設(shè)a=3,b=5，則以下表達(dá)式值為TRUE的是（）A、 a>=b And b>10 B、 a>b Or b>0C、 a<0 and b >0 D、 -3+5>a and b>023、從鍵盤上輸入兩個(gè)字符串，分別保存在變量str1、str2中。確定第二個(gè)字符串在第一個(gè)字符串中起始位置的函數(shù)是（）A、 Left B、Mid C、String D、Instr24、下列哪組語句可以將變量a，b的值互換（ ）A、 a=b: b=a B、 a=a+b: b=a-b: a=a-bC、 a=c: c=b: b=a D、 a=(a+b)/2:

47、b=(a-b)/225、可以同時(shí)刪除字符串前導(dǎo)和尾部空格的函數(shù)是（）A、 Ltrim B、 RtrimC、Trim D、Mid26、表達(dá)式293的值是（） A、 1 B、7 C、 8 D、 927、下列程序運(yùn)行后，單擊command1時(shí)顯示的結(jié)果是（ ） Private Sub Command1_Click() x = 1 mysub x + 2 Print xEnd Sub Public Sub mysub(x As Integer) x = 3 * x - 1 If x < 4 Then x = x + 10 Print x;End SubA、 8 1 B、 8 8 C、 19 1

48、D、 19 1928、以下有關(guān)Visual Basic語言描述中錯(cuò)誤的是（ ）。A、不區(qū)分大小寫 B、語句是一行一句，以回車鍵結(jié)束C、用“,”分隔一行中的多個(gè)語句D、一條語句放在多行中，則在前一行結(jié)束處使用續(xù)行符空格+下劃線（“ _”）連接下一行29、在窗體上添加兩個(gè)文本框(其Name屬性分別為Text1和Text2)和一個(gè)命令按鈕(其Name屬性為Command1)，然后編寫如下事件過程：Private Sub Command1_Click() x = 0 Do While x < 50 x = (x + 2) * (x + 3) n = n + 1 Loop Text1.Text =

49、 Str(n) Text2.Text = Str(x)End Sub程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為( )A、1和0B、2和72C、3和50D、4和16830、設(shè)有如下聲明：Dim X As Integer如果Sgn(X) 的值為-1，則X的值是（ ）A、整數(shù) B、大于0的整數(shù) C、等于0的整數(shù) D、小于0的數(shù)二、 判斷題下列各題如果是正確的，請(qǐng)?jiān)跈C(jī)讀卡對(duì)應(yīng)位置上涂A，如果是錯(cuò)誤的涂B。答在試卷上不得分1、VB程序運(yùn)行后，在內(nèi)存中只能駐留一個(gè)窗體。2、在VB中，控件的屬性只能在設(shè)計(jì)時(shí)修改，運(yùn)行時(shí)無法改變。3、執(zhí)行Unload Form1語句后，窗體Form1消失，但仍在內(nèi)

50、存中。4、在一個(gè)窗體模塊中可以調(diào)用在其他窗體中被定義為Public的通用過程。5、Function過程與Sub過程最主要的區(qū)別是：SUB過程不能返回值，而FUNCTION過程能返回值。6、用Print方法可以在圖像框中輸出數(shù)據(jù)。7、Dim a,b,c As Integer能將a,b,c都聲明成整型變量。8、語句print “*”;tab(10);”a”與語句print “*”;spc(10);”a”的顯示結(jié)果是一樣的。9、控件數(shù)組使用Index屬性來標(biāo)識(shí)控件元素，其范圍必須從0開始。10、文件號(hào)的最大取值為512。第二部分：主觀題三、 填空題請(qǐng)?jiān)诖痤}卷對(duì)應(yīng)位置填寫答案，答在試卷上不得分。1、數(shù)

51、學(xué)關(guān)系式a2+b2 表示成正確的VB表達(dá)式為_【1】_ 。2、計(jì)算表達(dá)式的值Int(86.567 * 100 + 0.5) / 100_【2】_ 。3、賦值語句g = 123 + Mid("123456", 3, 2)執(zhí)行后，變量g中的值是_【3】_ 。4、VB6.0在編寫代碼時(shí)可以添加說明性文字。注釋方法有2種，一種是使用注釋標(biāo)記符撇號(hào)（）；另一種是使用以關(guān)鍵字_【4】_開頭的注釋語言。5、設(shè)a="a"，b="b"，c="c"，d="d"，執(zhí)行語句x=IIf(a<b)Or(c>d)

52、, "A","B")后，x的值為_【5】_ 。6、在VB中，描述對(duì)象特征的數(shù)據(jù)稱為對(duì)象的_【6】_。7、有下面的表達(dá)式x1=val(“1e2abcd”)，運(yùn)行后，x1的值為：_【7】_ 。8、產(chǎn)生一個(gè)兩位數(shù)的隨機(jī)數(shù)的表達(dá)式為：_【8】_。9、只有控件對(duì)象的Enabled和Visible屬性值均為_【9】_ 時(shí)，該控件對(duì)象才能接受焦點(diǎn)。10、設(shè)a=10，b=5，c=1，執(zhí)行語句Print a>b>c后，窗體上顯示的是_【10】_ 。四、 讀程序?qū)懡Y(jié)果請(qǐng)將答案填寫在答題卷對(duì)應(yīng)位置處，答在試卷上不得分。1、下面程序執(zhí)行后a的值是_【1】_。Priv

53、ate Sub Command1_Click() Dim a As Integer, b As Integer a = 1: b = 1 Do While b <> 5 a = b - a b = b + 1 Loop Print aEnd Sub2、下列程序運(yùn)行后，單擊窗體時(shí)顯示的結(jié)果是_【2】_。Private Sub Form_Click() Dim x As Integer x = 1 mysub x Print xEnd SubPrivate Sub mysub(x As Integer) x = 3 * x - 1 If x < 5 Then x = x + 9E

54、nd Sub3、單擊窗體，程序運(yùn)行后結(jié)果是_【3】_。Private Sub form_Click() Dim i As Integer, j As Integer i = 22: j = 44 Call mysub(i, j) Print jEnd SubPublic Sub mysub(ByVal x As Integer, y As Integer) x = y + x y = x Mod yEnd Sub4、程序運(yùn)行時(shí)，單擊Command1按鈕，顯示結(jié)果是_【4】_。Private Sub Command1_Click() Dim a As Variant, s As Integer

55、Dim i As Integer, j As Integer a = Array(1, 2, 3, 4) j = 1 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print sEnd Sub5、程序運(yùn)行時(shí)，單擊Command1按鈕，顯示結(jié)果是_【5】_。Private Sub Command1_Click() Dim i As Integer, n As Integer For i = 1 To 100 i = i + 4 n = n + 1 i = i + 2 If i > 30 Then Exit For Nex

56、t i Print n, iEnd Sub五、 編寫程序題請(qǐng)將程序代碼寫在答題卷對(duì)應(yīng)位置處，答在試卷上不得分。1、生成大小為1到100的50個(gè)隨機(jī)整數(shù)，使用選擇排序法對(duì)這些數(shù)進(jìn)行由小到大的排序，并將其顯示出來。(8分)2、編寫一函數(shù)過程計(jì)算1到n的累乘，參數(shù)n在調(diào)用時(shí)傳遞，函數(shù)名為mul。在主程序中調(diào)用該函數(shù)完成計(jì)算sum=1!+2!+3!+4!+5!，然后把sum結(jié)果打印出來。(6分)3、找出所有四位整數(shù)的回文數(shù)，并把找出的這些回文數(shù)保存在順序文件”c:abc.txt”中。(順讀和倒讀都一樣的字符串稱“回文”，如：“l(fā)evel”，“1221”) (6分)第一部分：客觀題一、 單項(xiàng)選擇題1-5

57、、 DDBDD 6 -10、 CBDDC 11-15、 DADBD 16-20、 CBBBC21-25、 BBDBC 26-30 、DACBD二、 判斷題1、B 2、B 3、B 4、A 5、A 6、B 7、B 8、B 9、B 10、B第二部分：主觀題三、填空題1、a2+b2 2、86.573、 157 4、 REM 5、 “A” 6、 屬性7、 100 8、 int(rnd*90+10) 9、 true 10、 false四、讀程序?qū)懡Y(jié)果題1、3 2、11 3、224、1234 5、5, 35五、編寫程序題1、生成大小為1到100的50個(gè)隨機(jī)整數(shù)，使用選擇法對(duì)這些數(shù)進(jìn)行由小到大的排序，并將其顯

58、示出來。Private Sub Command1_Click() Dim a(49) as integer (1分) Dim i as integer, k as integer Randomize Time For i=0 to 49 a(i)=Int(Rnd*(100-1+1)+1) (1分) next i for i=0 to 48 (1分) k=I (1分) for j=i+1 to 49 (1分) if a(k)>a(j) then k=j (1分) next j tmp=a(i): a(i)=a(k): a(k)=tmp (1分)next ifor i=0 to 49 pri

59、nt a(i); (1分)next iEnd Sub2、編寫一函數(shù)過程計(jì)算1到n的累乘，參數(shù)n在調(diào)用時(shí)傳遞，函數(shù)名為mul。在主程序中調(diào)用該函數(shù)完成計(jì)算sum=1!+2!+3!+4!+5!，然后把sum結(jié)果打印出來。Private Sub Command1_Click() Dim sum as Integer, I as integer Sum=0 (1分) For i=1 to 5 Sum=Sum+mul(i) (1分) Next i Print sum (1分)End subPrivate Function mul(n as integer) as integer (1分) Dim s a

60、s integer, i as integer S=1 For i=1 to n S=s*i (1分) Next i Mul=s (1分)End Sub3、找出所有四位整數(shù)的回文數(shù)，并把找出的這些回文數(shù)保存在順序文件”c:abc.txt”中。(順讀和倒讀都一樣的字符串稱“回文”，如：level，1221) Private Sub Command1_Click()Dim i As Integer, n As Integer, s As StringDim j As IntegerOpen “c:abc.txt” for Output As #1 (1分)For i = 1000 To 9999 (1分) s = Trim(Str(i) (1分) If Mid(s, 1, 1) = Mid(s, 4, 1) And Mid(s, 2, 1) = Mid(s, 3, 1) Then (2分) Print #1, s (1分) End IfNext