VB程序設計試題及答案一

1、VB程序設計試題及答案（一） 一、單選題 1. VB6.0是一種面向  B       的編程環(huán)境。    (A) 機器                           (B) 對象    (C) 過程   

2、;                        (D) 應用 2. 要使FormI窗體的標題欄顯示"歡迎使用VB"，以下    D     語句是正確的。     (A) Forml.Caption=“歡迎使用VB”  

3、0;  (B) Forml.Caption='歡迎使用VB'     (C) Forml.Caption=歡迎使用VB     (D) Forml.Caption="歡迎使用VB" 3. 若要使命令按鈕不可操作，要對   A     屬性進行設置。     (A) EnabIed          &#

4、160;           (B)Visible     (C) Backcolor                     (D)Caption 4. 如果在窗體上已經(jīng)創(chuàng)建了一個文本框?qū)ο骉extI，可以通過    C 

5、60;   事件獲得輸入鍵值的ASCII碼。    (A) Change                                        

6、0; (B) LostFocus    (C) KeyPress                                       (D) GotFocus 5. 下面  

7、;  A    是合法的變量名。    (A) X_yz           (B) 123ab。          (C) integer       (D) X-Y 6. 以下關(guān)系表達式 中，其值為False的是    A   

8、;  。    (A) "ABC">"AbC"                (B) "女">"男"    (C) "BASIC"=UCase("basic)        (D) "123&quo

9、t;<"23" 7. 為了給x、y、z三個變量賦初值1，下面正確的賦值語句是    A    。    (A) x=1:y=1:z=1                  (B) x=1,y=1,z=1    (C) x=y=z=1      &

10、#160;              (D) xyz=1 8. VB提供了結(jié)構(gòu)化程序設計的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是  D       。    (A)遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)    (B)選擇結(jié)構(gòu)、過程結(jié)構(gòu)、順序結(jié)構(gòu)    (C)過程結(jié)構(gòu)、輸入輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu)    (D)選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu) 9.

11、下面If語句統(tǒng)計滿足性別為男、職稱為副教授以上、年齡小于40歲條件的人數(shù)，不正確的語句是    D     。    (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l    (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l

12、60;  (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l    (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列關(guān)于DoLoop循環(huán)結(jié)構(gòu)執(zhí)行循環(huán)次數(shù)的描述正確的是    D     。 (A) Do WhileLoop循環(huán)和DoLoo

13、p Until循環(huán)至少都執(zhí)行一次    (B) Do WhileLoop循環(huán)和DoLoop Until循環(huán)可能都不執(zhí)行    (C) Do WhileLoop循環(huán)至少執(zhí)行一次和DoLoop Until循環(huán)可能不執(zhí)行    (D) Do WhileLoop循環(huán)可能不執(zhí)行和DoLoop Until循環(huán)至少執(zhí)行一次 11.以下     B    是正確的ForNext結(jié)構(gòu)。        (A) For x=1

14、To Step 10                  (B) For x=3 To -3 Step -3                             

15、60;                                                   &

16、#160;       Next x                                          

17、            Next x (C) For x=1 To 10                     (D) For x=3 to 10 step 3          re:   

18、60;                                                  &#

19、160;     Next x                                            &

20、#160;         Next y        If i=10 Then GoTO re 12.如下數(shù)組聲明語句，   B      是正確的。    (A) Dim a3,4 As Integer    (B) Dim a(3,4) As Integer    (C) Dim a(n,n) As Integer

21、60;  (D) Dim a(3 4) As Integer 13.下列語句中（假定變量n有值），能正確聲明可變長數(shù)組的是    A     。   (A) Dim a( ) As Integer                          (

22、B) Dim a( ) As Integer         ReDim a(n)                                      &

23、#160;  ReDim a(n) As String   (C) Dim a( ) As Integer                          (D) Dim a(10) As Integer ReDim a(3, 4)        

24、                             ReDim a(n+10)         ReDim Preserve a(4, 4) 14.要想從子過程調(diào)用后返回兩個結(jié)果，下面子過程語句說明合法的是    

25、 C    。   (A) Sub f2(ByVal n%, ByVal m%)            (B) Sub f1(n%, ByVal m%)   (C) Sub f1(n%, m%)                    

26、60;        (D) Sub f1(ByVal n%, m%) 15.設有如下程序段：        Public Sub F1(n%)                   n=3*n+4             

27、0;   End Sub        Private Sub Command1_Click( )          Dim n%, m%          n=3          m=4            

28、60;                 調(diào)用F1語句                 End Sub    則在Command1_Click事件中有效的調(diào)用語句是     B    。   (A) Call F1(n+m)

29、0;             (B) Call F1(m)                     (C) Call F1(5)            

30、0;  (D) Call F1(m+5) 16.用來設置粗體字的屬性是     C    。   (A) FontItalic                   (B) FontName            

31、;   (C) FontBold                 (D) FontSize 17.假定定時器的Interval屬性為1000，Enabled屬性為True，調(diào)用下面的事件過程，程序運行結(jié)束后變量x的值為    D     。        Dim x As Integer

32、       Sub Timer1_Timer( )          For i=1 to 10               x=x+1          Next i        End Sub (A)

33、1000                   (B) 10000              (C) 10            (D) 以上都不對 18.在下列關(guān)于通用對話框的敘述

34、中，錯誤的是  B       。   (A) CommonDialog1.ShowFont顯示“字體”對話框   (B) 在“打開”或“另存為”對話框中，用戶選擇的文件名可以經(jīng)FileTitle屬性返回   (C) 在“打開”或“另存為”對話框中，用戶選擇的文件名機器路徑可以經(jīng)FileName屬性返回   (D)     19.當用戶按下并且釋放一個鍵后會觸發(fā)KeyPress、KeyUp和KeyDown事件，這三個事件發(fā)生的順序是  

35、  C     。 (A) KeyPress、KeyDown、KeyUp (B) KeyDown、KeyUp、KeyPress (C) KeyDown、KeyPress、KeyUp (D) 沒有規(guī)律 20.在下面關(guān)于順序文件的描述中，正確的是   C      。 (A) 順序文件中每行的長度都是相同的。 (B) 可以通過編程對文件中的某行方便地進行修改 (C) 數(shù)據(jù)以ASCII碼的形式存放在文件中，所以可通過記事本打開 (D) 文件的組織結(jié)構(gòu)復雜 21.隨機文件是因為

36、60;    C    。 (A) 文件中的內(nèi)容是通過隨機數(shù)產(chǎn)生的 (B) 文件中的記錄號通過隨機數(shù)產(chǎn)生的 (C) 可對文件中的記錄根據(jù)記錄號隨機地讀/寫 (D) 文件的每條記錄的長度是隨機的 22.從磁盤上讀入一個文件名為“c:t1.txt”順序文件，如下    A     正確。 (A) F=“c:t1.txt”      Open F For Input As #1 (B) F=“c:t1.txt”  

37、0;   Open “F” For Input As #2 (C) Open “c:t1.txt” For Input As #1 (D) Open c:t1.txt For Input As #2 23.坐標度量單位可由通過來  D      改變。 (A)Drawstyle屬性                    

38、;      (B) DrawWidth屬性   (C) Scale方法                                (D) ScaleMode屬性 24.指令“Circle (1000, 1000), 500,

39、 8, -6, -3”將繪制    A     。 (A) 畫圓                  (B) 橢圓               (C) 圓弧     

40、60;         (D) 扇形 25.用ADO數(shù)據(jù)控件建立與數(shù)據(jù)源的鏈接，設置操作過程按     A    順序進行。 選擇數(shù)據(jù)源連接方式；選擇數(shù)據(jù)庫類型；指定數(shù)據(jù)庫文件名；指定記錄源 (A)                      

41、;      (B)   (C)                           (D) 二、填空題 1VB是建立在BASIC語言基礎上的           可見  

42、0;  化編程語言或編程環(huán)境。 2在窗體上已建立多個控件如Text1、Label1、Command1，若要程序一運行時焦點就定位在Command1控件上，應對Command1控件設置  TabIndex       屬性的值為   0      。 3在VB中，1234、123456&、1.2346E+5、1.2346D+5這4個常數(shù)分別表示    整形     、&#

43、160;  長整形      、    單精度     、    雙精度     類型。 4表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達式為   x mod 5 = 0 or x mod 9=0      。 5數(shù)組聲明時下標下界默認為0，利用     Opation  Base 1&

44、#160;   語句可以使下標為1。 6傳地址方式是當過程被調(diào)用時，形參和實參共享    存儲單元     。 7窗體中的模塊級變量應在     窗口模塊    段聲明，它作用于該窗體的  全局范圍        。 8當用戶單擊滾動條的空白處時，滑塊移動的增量值由    LargeChange   

45、;  屬性決定。 9如果菜單標題的某個字母前輸入一個“&”符號，那么該字母就成了熱鍵字母；如果建立菜單時在標題文本框中輸入一個“   - (減號)      ”符號，那么顯示時形成一個分隔符。 10使用   Scale      方法可以自定義坐標系。 11使用Line方法畫矩形，不許在指令中使用關(guān)鍵字  B       。 12使用SQL語句設置ADO控件的Recor

46、dSource屬性，這CommandType屬性需要設置成  1(adCmdText)或者(adCmdUnknown)       。 13為了顯示一個窗體，所使用的方法為show；而為了隱藏一個窗體，所使用的方法為_Hide_。 14如果要將某個命令按鈕不顯示，則可將_Visible_屬性設置為False 15在VB中窗體文件的擴展名為_.FRM_。 三、編程應用題 1.程序閱讀，寫出下列程序的運行結(jié)果。 (1)        Private Sub Comman

47、d1_Click( )          Dim a, i%, min%, imin%, sum%, t%          a=Array(26, 43, 61, 87, 33, 19, 37, 59, 76, 69)          min=a(0): imin=0: sum=a(0)          For

48、i=1 to UBound(a)               sum=sum+a(i)               If a(i)< min Then min=a(i): imin=i          Next i     

49、;     t=a(0): a(0)=a(imin): a(imin)=t          Print sum; a(0)        End Sub 輸出結(jié)果： 510 19 (2)        Private Sub Command1_Click( )          Dim ch as Stri

50、ng*1          ch=8          If UCase(ch)>= AAnd UCase<=ZThen VB程序設計試題及答案（二） 一、單選題 1. VB6.0集成開發(fā)環(huán)境不包括   A      窗口。    (A) DOS界面窗口        

51、0;          (B) 窗體窗口    (C) 代碼窗口                       (D) 屬性窗口 2. 有程序代碼如下: C Tex1.Text=" Tex1.Text " 則Tex1、Text、" Tex1.

52、Text "分別代表    (A) 對象、值、屬性                 (B) 對象、方法、屬性 (C) 對象、屬性、值                 (D) 屬性、對象、值     &

53、#160;                      3. 下面關(guān)于對象的描述中，   A      是錯誤的。    (A) 對象就是自定義結(jié)構(gòu)變量    (B) 對象代表正在創(chuàng)建的系統(tǒng)中的一個實體    (C) 對象是一個特征和操作的封裝體  &

54、#160; (D) 對象之間的信息傳遞是通過消息進行的 4. 要使某控件在運行時不可顯示，應對   B      屬性進行設置。    (A) EnabIed                       (B) Visible    (C) Backco lor

55、0;                    (D) Caption 5. 與數(shù)學表達式 對應 ，不正確的VB算術(shù)表達式是  D      。    (A) a*b/(3*c*d)            

56、0;                             (B) a/3*b/c/d    (C) a*b/3/c/d               

57、0;                       (D) a*b/3*c*d 6. InputBox函數(shù)返回值的類型是    B    。    (A) 整型數(shù)值      (B) 字符串      

58、    (C) 變體         （D） 數(shù)值或字符串 7. 下面正確的賦值語句是   C     。    (A) x+y=30                       (B) y

59、=  *r*r    (C) y=x+30                       (D) 3y=x 8. 下面程序段運行后，顯示的結(jié)果是    C     。        Dim x   &#

60、160;    If x Then Print x Else Print x+1    (A)l               (B)O             (C)-1           

61、;      (D)顯示出錯信息 9. 下面程序段，運行后顯示的結(jié)果是    A     。       Dim x        x=Int(Rnd)+5        Select Case x           

62、 Case 5                   Print "優(yōu)秀"              Case 4                  

63、Print "良好"              Case 3                   Print "通過"              CaseE Else  

64、                 Print "不通過" EndSelect    (A) 優(yōu)秀           (B) 良好          (C) 通過     

65、;     (D) 不通過 10.下列循環(huán)結(jié)構(gòu)能正常結(jié)束循環(huán)的是    C     。 (A) i=5                             (B) i=1    

66、;       Do                                            &

67、#160;           Do                    i=i+1                      

68、                              i=i+2           Loop Until i<0         

69、60;                           Loop Until i=10 (C) i=10                    

70、       (D) i=6 Do                                         &#

71、160;             Do i=i+1                                    

72、0;               i=i-2 Loop Until i>0                                

73、60;      Loop Until i=1 11.下面的程序段的運行結(jié)果為多少？ D        Private Sub Command1_Click( )          For i=1 to 5               n=0     

74、0;         For j=i to 5                 n=n+1               Next j          Next i  &

75、#160;       Print n        End Sub (A) 10           (B) 5          (C) 15          (D) 1 12.要分配存放如下矩陣的數(shù)據(jù)，

76、    C     數(shù)組聲明語句能實現(xiàn)（不浪費空間）。 1.1        2.2  3.3 4.4        5.5  6.6 7.7  8.8  9.9  (A) Dim a(9) As Single   (B) Dim a(3,3) As Single   (C) Dim a(-1 to 1, -5 to

77、-3) As Single   (D) Dim a(-3 to -1, 5 to 7) As Integer 13.在窗體的通用聲明段自定義了數(shù)據(jù)類型Students，下列    A     定義方式是正確的。   (A) Private Type Students                    &#

78、160;         (B) Type Students            Name As Sting*10                          &

79、#160;            Name As Sting*10               Studno As Integer                    

80、                    Studno As Integer          End Type                    

81、                              End Students   (C) Type Students               

82、60;                         (D) Type Students           Name String*10           

83、0;                                Name As Sting*10           Studno Integer      

84、;                                        Studno As Integer         End Type

85、                                                  

86、     End Type 14.下面子過程說明合法的是  D      。   (A) Sub f1(ByVal n%( ) )                              

87、 (B) Sub f1(n%) As Integer   (C) Function f1%(f1%)                         (D) Function f1(ByVal n%) 15.下面過程運行后顯示的結(jié)果是    C     。   

88、;    Private Sub F1(m%, ByVal m%)          n=n Mod 10          m=m10        End Sub          Private Sub Command1_Click( )    

89、0;     Dim x%, y%          x=12: y=34          Call F1(x, y)          Print x, y        End Sub   (A) 2  34     

90、60;    (B) 12  34                   (C) 2  3               (D) 12  3 16.下列控件中，沒有Caption屬性的是   &

91、#160; D    。   (A) 框架           (B) 列表框                  (C) 復選框           (D) 單選按鈕 17.在用菜單編輯器設

92、計菜單時，必須輸入的項有     B    。   (A) 快捷鍵        (B) 標題                      (C) 索引       

93、60;       (D) 名稱 18.以下正確的語句是   D      。   (A) CommonDialog1.Filter=All Files|*.*|Pictures(*.Bmp)|(*.Bmp)   (B) CommonDialog1.Filter=”All Files”|”*.*”|”Pictures(*.Bmp)”|”(*.Bmp)”   (C) CommonDialog1.Filter=”All Files|*.*|

94、Pictures(*.Bmp)|(*.Bmp)”   (D) CommonDialog1.Filter=All Files|*.*|Pictures(*.Bmp)|(*.Bmp) 19.如果Form1是啟動窗體，并且Form1的Load事件過程中有語句Form2.Show，則程序啟動后    D    。 (A) 發(fā)生一個運行時錯誤   (B) 發(fā)生一個編譯錯誤   (C) 在所有的初始化代碼運行后Form1是活動窗體   (D) 在所有的初始化代碼運行后Form2是活動窗體 20.按存儲信息的

95、形式分類，文件可以分為     B    。 (A) 順序文件和隨機文件                                (B) ASCII文件和二進制文件   (C) 程序文件和數(shù)據(jù)文件  &#

96、160;                             (D) 磁盤文件和打印文件 21.下面關(guān)于隨機文件的描述不正確的是    B     。 (A) 每條記錄的長度必須相同 (B) 一個文件中記錄號不必唯一 (C) 可通過編程對文件中的

97、某條記錄方便地修改 (D) 文件的組織結(jié)構(gòu)比順序文件復雜 22.為了建立一個隨機文件，其中每一天記錄由多個不同數(shù)據(jù)類型的數(shù)據(jù)項組成，應使用    C     。 (A) 記錄類型                   (B) 數(shù)字          &

98、#160;    (C) 字符串類型                  (D) 變體類型 23.當使用Line方法畫直線后，當前坐標在。C (A) (0, 0)              (B) 直線起點     (C) 直線終點 

99、;             (D) 容器的中心 24.命令按鈕、單選按鈕、復選框上都有Picture屬性，可以在控件上顯示圖片，但需要通過屬性    B     來控制 (A) Appearance                 

100、0;     (B) Style   (C) DisabledPicture                    (D) DownPicture 25.設置ADO數(shù)據(jù)控件RecordSource屬性為數(shù)據(jù)庫中的單個表名，則CommandType屬性需設置為    B     。 (A)

101、adCmdText                       (B) adCmdTable (C) adCmdStoreProc                   (D) adCmdUnknown

102、 二、填空題 1對文本框的ScrollBars屬性設置為2（有垂直滾動條），但沒有垂直滾動條顯示，是因為沒有將  MultiLine       屬性設置為True。 2對命令按鈕的Picture屬性裝入.bmp圖形文件后，選項按鈕上并沒有顯示所需的圖形，原因是沒有將   Style      屬性設置為1（Graphical）。 3Int(-3.5)、Int(3.5)、Fix(-3.5)、Fix(3.5)、Round(-3.5)、Round(3.5)的值

103、分別為    4     、    3     、     -3    、    3     、     -4    、    4     。 4若定義一維數(shù)組為：Dim a(N

104、to M)，則該數(shù)組的元素為  M-N+1       個。 5按如下要求書寫函數(shù)過程定義的首語句，即Function MyF(a as int,b(n)as int)         定義語句，要求為：形參有兩個a為整型，b為一位整型數(shù)組，函數(shù)過程名為MyF，函數(shù)返回值為邏輯型。 6滾動條產(chǎn)生Change事件是因為    Value    值改變了。 7如果要每隔15s產(chǎn)生一個計時器事

105、件，則Interval屬性應設置為    15000     。 8在VB中，除了可以指定某個窗體作為啟動對象之外，還可以指定  Main子過程    作為啟動對象。 9用Show方法顯示自定義對話框時，如果Show方法后帶   vbModal    參數(shù)就將窗體作為模式對話框顯示。 10容器的實際可用高度和寬度由   右      和  

106、0;  上    屬性確定。 11使用Circle方法正向采用     逆    時針方向。 12啟動窗體時，為了初始化窗體中的各控件，可選作窗體的_load_事件。 13結(jié)構(gòu)化程序設計中，三種基本結(jié)構(gòu)是_分支結(jié)構(gòu)_、_順序結(jié)構(gòu)_和循環(huán)結(jié)構(gòu)。 三、編程應用題 1.程序閱讀 (1)Private Sub Command1_Click()   Dim x() As Integer   Dim n%, i%   n = 10   ReDim x(n -

107、 1)   x(0) = 1   x(1) = 1   For i = 2 To n - 1    x(i) = x(i - 1) + x(i - 2)   Next i   For i = 0 To n - 1     Print x(i),     If (i + 1) Mod 5 = 0 Then Print   Next End Sub  輸出結(jié)果： 1        

108、1        2        3 8        13       21       34 (2) Public Function f(m%, n%)          Do While m&

109、lt; >n               Do While m> n: m=m-n: Loop               Do While m< n: n=n-m: Loop          Loop     

110、;     f=m        End Function        Private Command1_Click( )          Print f(24, 18)        End Sub 輸出結(jié)果：6 (3)        Public x

111、as Integer        Private Sub Fomr_Click( )          Dim x as Integer          x=10          print x=;x        End Sub 輸出結(jié)果: x=10 2.補充程

112、序 (1)以下是冒泡法排序的程序，要求將數(shù)組里的數(shù)按升序排列，將其補充完整。        Private Sub Command1_Click()    Dim a(), iMin%, n%, i%, j%, t%    a = Array(8, 6, 9, 3, 2, 7)    n =    ubound(a)        ' 獲得數(shù)組的下標上界  &

113、#160; For i = 0 To n - 1                    For j = 0 To  n-i-1               If   a(j)>a(i)      

114、0;     Then          t = a(j):   a(j) = a(j + 1):   a(j + 1) = t         End If      Next j    Next i    For i = 0 To n Print a(i); Next i E

115、nd Sub (2) 用遞歸的方法求n! Private Sub Command1_Click() Print "fac(4)=" fac(4) End Sub   Public Function    fac   As Integer  If n = 1 Then     fac = 1  Else           Fac=fac*n   &

116、#160;         End If End Function VB程序設計試題及答案（三）一、單選題1. Visual Basic是一種面向?qū)ο蟮目梢暬绦蛟O計語言，采取了    A     的編程機制。(A) 事件驅(qū)動                  

117、0;                  (B) 按過程順序執(zhí)行(C) 從主程序開始執(zhí)行                       (D) 按模塊順序執(zhí)行2. 若要使標簽控件顯示時不覆蓋其背景內(nèi)容，要對

118、0; D  屬性進行設置。   (A) Backcolor                      (B) BorderStyle   (C) Forecolor              

119、;        (D) Backstyle3. 在Visual Basic中最基本的對象是   C      ，它是應用程序的基石，是其他控件的容器。(A) 文本框                        

120、60;                (B) 命令按鈕(C) 窗體                                 

121、;       (D) 標簽     4. 要判斷在文本框是否按下Enter鍵，應在文本框的   D  事件中判斷。   (A) Change                       (B)KeyDown 

122、  (C) Click                         (D)KeyPress5. 數(shù)學表達式3x<l0在VB中的邏輯表達式為     D    。   (A) 3<=x<10    &

123、#160;                                  (B) 3<=x AND x>10   (C) x>=3 Or x<10      &#

124、160;                         (D) x>=3 AND x<106. Rnd函數(shù)不可能為下列     B   值。   (A) 0         &

125、#160;   (B) 1                  (C) 0.1234          (D) 0.00057. 賦值語句:a=123+Mid("123456"，3，2)執(zhí)行后，a變量中的值是   D      。&

126、#160;  (A) "12334"            (B) 123             (C) 12334             (D) 1578. 對于語句If x=l Then y=l，下列說法正確的是

127、    C     。   (A) x=l和y=l均為賦值語句   (B) x=l和y=l均為關(guān)系表達式   (C) x=l為關(guān)系表達式，y=l為賦值語句   (D) x=l為賦值語句，y=l為關(guān)系表達式9. 下面程序段表示求兩個數(shù)中的大數(shù)，    D     不正確。   (A) Max=IIf(x>y，x，y)   &

128、#160;            (B) If x>y Then Max=x Else Max=y   (C) Max=x                            (D) Ify&

129、gt;=x Then Max=y      If y>=x Then Max=y                    Max=x10.當在文本框中輸入“ABCD”4個字符時，窗體上顯示的是   C      。      

130、 Private Sub Text1_Change( )         Print Text1;       End Sub(A) ABCD        (B) A           (C) AABABCABCD       (D)

131、A                                  B                 &#

132、160;                                               AB   

133、;                               C                    &#

134、160;                                           ABC      

135、0;                           D                        &

136、#160;                                       ABCD11.下列哪個程序段不能分別正確顯示1！、2！、3！、4！的值      

137、 B      。  (A) For i=1 to 4                                     (B) For i=1 to 4 

138、;         n=1                                          

139、          For j=1 to i          For j=1 to I                            

140、60;              n=1              n=n*j                      

141、0;                           n=n*j          Next j              &

142、#160;                                         Next j         

143、; Print n                                                Print n&

144、#160;       Next I                                          

145、      Next i  (C) n=1                                          &#

146、160;     (D) n=1        For j=1 to4                                   

147、      j=1             n=n*j                                 

148、           Do While j<=4           Print n                           

149、60;                          n=n*j        Next j               &#

150、160;                                            Print n     

151、                                                  

152、                      j=j+1                            

153、                                      Loop12.如下數(shù)組聲明語句，則數(shù)組a包含元素的個數(shù)有    A     。 &#

154、160;     Dim a(3, -2 to 2, 5)  (A) 120              (B) 75            (C) 60            (D) 1313.以下程

155、序的輸出結(jié)果是   D      。       Dim a       a=Array(1, 2, 3, 4, 5, 6, 7)       For i=Lbound(a) to Ubound(a)         a(i)=a(i)*a(i)       Next i       Print a(i)  (A) 49