21.設有如下程序：

　　Option Base 0

　　Private Sub Form_Click()

　　Dim a

　　Dim i As Integer

　　a=Array(1，2，3，4，5，6，7，8，9)

　　For i=0 To 3

　　Print a(5-i);

　　Next

　　End Sub

　　程序運行后，單擊窗體，則在窗體上顯示的是( )。

　　A.4 3 2 1

　　B.5 4 3 2

　　C.6 5 4 3

　　D.7 6 5 4

　　22.為了暫時關閉計時器，應把該計時器的某個屬性設置為False，這個屬性是( )。

　　A.Visible

　　B.Timer

　　C.Enabled

　　D.Interval

　　23.下列說法正確的是( )。

　　A.任何時候都可以使用標準工具欄的“菜單編輯器”按鈕打開菜單編輯器

　　B.只有當代碼窗口為當前活動窗口時，才能打開菜單編輯器

　　C.只有當某個窗體為當前活動窗體時，才能打開菜單編輯器

　　D.任何時候都可以使用“工具”菜單下的“菜單編輯器”命令，打開菜單編輯器

　　24.假定一個工程由一個窗體文件Form1和兩個標準模塊文件Model1及Model2 組成。

　　Model1代碼如下：

　　Public X As Integer

　　Public Y As Integer

　　Sub S1()

　　x=1

　　S2

　　End Sub

　　Sub S2()

　　y=10

　　Form1.Show

　　End Sub

　　Model2的代碼如下：

　　Sub Main()

　　S1

　　End Sub

　　其中Sub Main被設置為啟動過程。程序運行后，各模塊的執行順序是( )。

　　A.Form1→Model1→Model2

　　B.Model1→Model2→Form1

　　C.Model2→Model1→Form1

　　D.Model2→Form1→Model1

　　25.在窗體上有一個命令按鈕，然后編寫如下事件過程：

　　Private Sub Command1Click()

　　Dim a(5)As String

　　For i=1，To 5

　　a(i)=Chr(Asc("A")+(i-1))

　　Next i

　　For Each b In a

　　Print b;

　　Next

　　End Sub

　　程序運行后，單擊命令按鈕，輸出結果是( )。

　　A.ABCDE

　　B.1 2 3 4 5

　　C.abcde

　　D.出錯信息

　　26.設a=2，b=3，c=4，d=5，下列表達式的值是( )。

　　Not a<=c Or 4*C=b^2 And b<>a+C

　　A.-1

　　B.1

　　C.True

　　D.False

　　27.窗體上有文本框Text1和一個菜單，菜單標題、名稱見表，結構見圖。要求程序執行時單擊“保存”菜單項，則把其標題顯示在Text1文本框中。下面可實現此功能的事件過程是( )。

　　A.Private Sub save Click()

　　Text1.Text=file.save.Caption

　　End Sub

　　B.Private Sub save Click()

　　Text1.Text=save.Caption

　　End Sub

　　C.Private Sub file Click()

　　Text1.Text=file.save.Caption

　　End Sub

　　D.Private Sub file Click()

　　Text1.Text=save.Caption

　　End Sub

　　28.在窗體上有兩個名稱分別為Text1、Text2的文本框，一個名稱為Command1的命令按鈕，運行后的窗體外觀如圖所示：

　　設有如下的類型和變量聲明：

　　Private Type Person

　　name As STRING*8

　　major As String*20

　　End Type

　　Dim P As Person

　　設文本框中的數據已正確地賦值給Person類型的變量P，當點擊“保存”按鈕時，能夠

　　正確地把變量中的數據寫入隨機文件Test2.dat中的程序段是( )。

　　A.Open"C：\Test2.dat"For Output As#1

　　Put#1，1，p

　　Close#1

　　B.0pen"c：\Test2.dat"For Random As#1

　　Get#1，1，P

　　Close#1

　　C.Open”C：\Test2.dat”For Random As#1 Len—Len(p)

　　Put#1，1，P

　　Close#1

　　D.Open"C：\Test2.dat"For Random As#1 Len=Len(p)

　　Get#1，1，P

　　Close#1

　　29.以下敘述中錯誤的是( )。

　　A.一個工程中可以包含多個窗體文件

　　B.在一個窗體文件中用Private定義的通用過程能被其他窗體調用

　　C.在設計Visual Basic程序時，窗體、標準模塊、類模塊等需要分別保存為不同類型的磁盤文件

　　D.全局變量必須在標準模塊中定義

　　30.Sub過程與Function過程最根本的區別是( )。

　　A.Sub過程可以用Call語句直接使用過程名調用，而Function過程不可以

　　B.Function過程可以有形參，Sub過程不可以

　　C.Sub過程不能返回值，而Function過程能返回值

　　D.兩種過程參數的傳遞方式不同

　　相關推薦：

　　2014年全國計算機二級VB上機考試試題匯總

　　考試吧考后首發2014年3月計算機等考真題及答案通知

　　考試吧推薦：2014年3月計算機二級考前沖刺備考專題