資源簡介

計算機等級考試二級VB模擬考試試卷(一)
班級 學號 姓名
說明：1．應將全部答案寫在答卷紙對應的題號處；否則作無效處理；
2．編程題應寫明題號，如答卷紙不夠，請寫在背面，不用添卷紙；
3．考試完后，試卷及答卷都應一并交回。不能將試卷帶出考場；
4．考試時間100分鐘。
一、計算機基礎題（共15分）
（一）單項選擇題（10分）
按對應的ASCII碼比較，正確的說法是（ ）
（A）a比b大 （B）a比A大 （C）9比D大 （D）a與A相等
以下不同數制轉換中，等式能成立的為（ ）
（A）1001110101B=4721O （B）10D=1010O
（C）241D=1100001B （D）13AH=314D
在微型計算機的下列各存儲部件中讀寫信息，讀寫速度最快的是（ ）。
（A）硬盤 （B）軟盤 （C）內存儲器 （D）光盤
在網絡方式中欲打開其它計算機中的文檔時，由地址的完整格式是（ ）
（A）\\計算機名\路徑名\文檔名 （B）文檔名\路徑名\計算機名
（C）\計算機名\路徑名\文檔名 （D）計算機名 路徑名 文檔名
在FrontPage2000中，若新建了一個有3個框架的網頁，并為每個框架新建了初始網頁，那么在保存該網頁時，將會產生（ ）個文件。
（A）1 （B）2 （C）3 （D）4
Word2000中，不能在標尺上完成的操作是（ ）
（A）設置頁邊距 （B）設置段間距 （C）首行縮進 （D）調節表格列寬
關于計算機網絡，下列說法正確的是（ ）
（A）在Internet上，每一個IP地址只能對應一個域名地址，兩者是一一對應的。
（B）計算機不但能夠共享的網上的數據資源和軟件資源，還可以共享硬件資源
（C）電子郵件發送成功后，若收件人還沒有接收郵件，該郵件將會自動退回給發件人。
（D）FTP 的含義是統一資源定位器
在Excel2000中，用戶做了“復制”操作后，可以進行“選擇性粘貼”，下列不能作為“選擇性粘貼”的項目的是（ ）
（A）公式 （B）批注 （C）格式 （D）行高
關于Windows2000下列說法正確的是（ ）
（A）刪除快捷方式，不會影響應用程序本身；而刪除應用程序，則會把關聯到它的所以快捷方式都一并刪除。
（B）若在“我的電腦”中搜索“a .txt”，就可以找出所有以a開頭的文本文件。
（C）資源管理器右窗格中的顯示方式有：大圖標、小圖標、列表、詳細資料和縮略圖
（D）若菜單太長，有時會把部分菜單項隱藏起來，這時菜單中就會出現符號“…”。
CPU中的運算器能同時處理的二進制數據的位數稱為計算機的（ ）
（A）字長 （B）字節 （C）主頻 （D）容量
（二）雙選題（5分）
下列哪種語言屬于計算機程序設計高級語言：（ ）
（A）Java （B）Linux （C）BASIC （D）匯編語言
下列內存空間的地址段中，那些表示的是2K的存儲空間：（ ）
（A）00H~7FFH （B）101H~300H （C）300H~5FFH （D）201H~0A00H
下列屬于Windows2000“控制面板”的項目有：（ ）
（A）網上鄰居 （B）自動更新 （C）區域選項 （D）輸入法
為了顯示與對話框有關的幫助信息，可利用（ ）
雙擊待求助項，出現“這是什么？” 菜單項，再選擇該菜單項
單擊“？”按鈕，再單擊待求助選項
右擊待求助選項，出現“這是什么？”菜單項，再選擇該菜單項
雙擊待求助選項，再右擊待求助選項
下列屬于OFFICE2000的組件的是：（ ）
（A）Notepad （B）OutLook （C）Intenet Explorer （D）Access
二、VB程序設計（共85分）
（一）判斷題（10分，每題1分）
1．在VB中，一個變量若沒有定義直接使用，系統默認該變量為非靜態局部變量。
2．設置窗體的FontSize屬性，可以改變窗體標題欄的字體大小。
3．若在“通用聲明”處加語句Option Explicit，則在定義數組時，必須注明下界和上界。
4．若變量N己定義的變量，并有確定的值，則執行定義數組語句Dim a(N) As Integer，程序不會出錯。
5．For 循環語句正常結束（即不是通過Exit For語句或強制中斷），退出循環后，其循環變量的值一定大于“終值”，并等于“終值”+“步長”。
6．有一組名為cmdOk的控件數組，他們是命令按鈕，則他們共用同一個Click事件。
7．如果在定義過程時，一個形參使用傳地址方式說明的，則調用過程時與之對應的實參有可能按地址方式傳遞，也有可能按數值方式傳遞。
8．執行了語句Unload Form1后，使Form1窗體不顯示，但不從內存中刪除窗體，可以引用Form1中的控件及各種屬性。
9．目錄列表框和文件列表框都有Path屬性，當改變它們的Path屬性時，都會觸發Change事件。
10．當焦點在文本框Text1中時，按下并釋放鍵盤上的向左方向鍵，則按先后順序觸發了Text1的KeyDown事件、KeyPress事件和KeyUp事件。
（二）、選擇題（20分，每題2分）
1．在VB中，下列表達式合法的是：（ ）
（A）|a| <= |b+2| （B）3/4*π*r*r*r
（C）x<=52．設Picture1.Scaleleft = -100，Picture1.Scaletop = 250, Picture1.Scalewidth = 500, Picture1.Scaleheight = - 500，則Picture1右上角的坐標是：（ ）
（A）(400, 250) （B）(400, -250) （C）(500, -500) （D）(-100, 250)
CommonDialog控件在使用（ ）方法之前，必須先設置Flags屬性，否則會發生錯誤。
（A）ShowOpen （B）ShowSave （C）ShowColor （D）ShowFont
4．在下列關于菜單的說法中，正確的是__________。
分隔符作為一個菜單項，與其他菜單項一樣，也可被用戶選擇
在程序執行時，如果菜單項的Enabled屬性為False，則該菜單項變成灰 色，不能被用戶選擇
運行時要顯示的菜單項，必需全部在設計狀態時用菜單編輯器設計好
除了Click事件之外，菜單項還能響應其它的如DblClick等事件
5．哪個程序段不能分別正確顯示1！、2！、3！、4！的值 。
（A）For i=1 To 4 （B）For i=1 To 4
n=1 For j=1 To i
For j=1 To i n=1
n=n*j n=n*j
Next j Next j
Print n Print n
Next i Next i
（C） n=1 （D） n=1：j=1
For j=1 To 4 Do While j<=4
n=n*j n=n*j
Print n Print n
Next j j=j+1
Loop
6．執行了下面的程序后，列表框中的數據項為__________。
Sub Form_Click()
Dim I As Integer
For I =1 to 6
List1.AddItem I
Next I
For I =0 to 2
List1.Removeltem I
Next I
End sub
（A） 1，5，6 （B） 2，4，6 （C） 4，5，6 （D） 1，3，5
7．下列敘述中，不正確的是（ ）
（A）在過程中用Dim定義的變量是局部變量，其他過程不可以訪問它
（B）在過程中用Static定義的變量是靜態變量，也是局部變量，其他過程不可以訪問它
（C）在“通用聲明”段中用Private定義的變量是窗體/模塊級變量，可被本模塊的任何過程訪問，其他模塊的過程不可以訪問它
（D）在“通用聲明”段中用Dim定義的變量是全局變量，可被本應用程序的任何過程訪問
8．要改變Label標簽中文本的顏色，應設置它的（ ）屬性。
（A）Color （B）ForeColor （C）BackColor （D）FontColor
9．下列那組語句可以實現在窗體上畫一個藍邊紅心的矩形：（ ）
FillStyle=0: FillColor=vbRed
Line (50, 50) - (100,300), vbBlue, BF
illStyle=0
Line(50, 50) - (100,300), vbBlue, vbRed, BF
（C）FillStyle=0: FillColor=vbRed
Line (50, 50) - (100,300), vbBlue, B
（D）FillStyle=0: FillColor=vbBlue
Line (50, 50) - (100,300), vbRed, B
10．求兩個數中的最大數，下列語句不正確的是__________。
Max = x
If y > x Then Max = y
If x > y Then Max = x Else Max = y
If x < y Then Max = y Else Max = x
If y > x Then Max = y
Max = x
（三）程序填空題（12分，每空2分）
1．窗體上只有一個命令按鈕，單擊命令按鈕，從鍵盤輸入一個字符串，將字符串中的字符按其ASCII碼值由小到大自左到右重新組合，并把重組后的字符串寫到文件C:\MyDir\Letter.txt中。
Private Sub Command1_Click()
Dim a() As String*1 , st As String , n As Integer
st=InputBox("輸入字符串：")
n=Len(st)
ReDim a(1 to n)
For i=1 to n
a(i)= ____（1）____
Next i
For i=1 to n-1
p=i
For j=i+1 to n
If ____（2）____ Then p=j
Next j
t = a(i) : a(i) = a(p) : a(p) = t
Next I
____（3）____
For i=1 to n-1
Print #1, a(i);
Next I
Close #1
End Sub
(1) (A) Left(st, i) (B) Mid(st, i, 1) (C) Right(st, i) (D) Asc(st, i)
(2) (A) a(j)Asc(a(p))
(C) a(i)(3) (A) fn="C:\MyDir\Letter.txt" For Output as #1
(B) fn="C:\MyDir\Letter.txt": Open "fn" For Output as #1
(C) Open "C:\MyDir\Letter.txt" For Input as #1
(D) fn="C:\MyDir\Letter.txt": Open "fn" For Append as #1
2．設有一個組合框（cbox）,其Style屬性設計為0,下面的程序是處理當用戶在其文本區輸入文本，按回車鍵后，如果組合框中沒有的該輸入的項目，則將其添加到組合框中。
Sub cbox_KeyPress(KeyAscii AsInetger)
Dim flag As Boolean
If KeyAscii=13 Then
Flag=False
For I=0 To cbox.ListCount-1
If (4) Then
Flag=True
Exit For
EndIf
Next i
If (5) Then
(6)
Else
Msgbox(“組合框中已有該項目”)
End If
End If
End Sub
(4) (A) cbox.Text=cbox.List(i) (B) (A) cbox.Text<>cbox.List(i)
(C) cbox.selected(i) (D) cbox.Text<>””
(5) (A) Flag (B) Not Flag
(C) I>cbox.ListCount (D) Flag=True
(6) (A) cbox.AddItem cbox.Text (B) cbox.AddItem cbox.list(i)
(C) cbox.AddItem (D) cbox.AddItem Text
（四）程序閱讀題（20分，每題4分）
1．程序1
Private Function ff(a As Integer) As Integer
Static c As Integer
Dim b As Integer
b = b + 1
c = c + 1
ff = a + b + c
End Function
Private Sub Form_Click()
Dim a As Integer, I As Integer
a = 2
For I = 1 To 3
Print ff(a);
Next I
End Sub
單擊窗體輸出的結果為：________。
2．程序2
Private Sub Form_click()
Dim idec As Integer, i As Integer
Dim iDecR(16) As Integer
Dim strDecR As String
idec = Val(InputBox("輸入數據idec= "))
i = 0
Do While idec <> 0
iDecR(i) = idec Mod 2
idec = idec \ 2
i = i + 1
Loop
strDecR = ""
i = i - 1
Do While i >= 0
strDecR = strDecR + Trim(str(iDecR(i)))
i = i - 1
Loop
Print strDecR
End Sub
程序運行時單擊窗體，由鍵盤輸入一個整數22，請寫出窗體上的輸出結果。
程序3
Private Sub Form_Click()
Dim a, i%, n%,t%
n=InputBox("Enter N= ")
a=array(1,2,3,4,5,6,7,8,9,10)
For i =1 To n\2
t=a(i) : a(i)=a(n-i+1) : a(n-i+1)=t
Next I
For i=0 to Ubound(a)
Print a(i);
Next I
Print
End Sub
程序運行后，兩次單擊窗體，分別輸入8和6 ，則輸出結果為：________。
4．程序4
Dim x As Integer, y As Integer, z As Integer
Private Sub Form_Click()
Dim x As Integer
x = 1: y = 2: z = 3
Call FunA(y)
z = FunB(x)
Print x, y, z
End Sub
Public Sub FunA(z As Integer)
x = x + z
z = x * z
End Sub
Public Function FunB(ByVal y As Integer) As Integer
y = z + 1
FunB = x + y
End Function
單擊窗體后，窗體上輸出的結果為：________。
5．程序5
Private Sub Text1_KeyPress(KeyAscii As Integer)
k% = KeyAscii
c$ = Chr(k)
If c >= “A” And c <= “Z” Then
k = k + 5
If k > Asc(“Z”) Then k = k – 26
ElseIf c >= “a” And c <= “z” Then
k = k + 5
If k > Asc(“z”) Then k = k – 26
End If
Text2.Text = Text2.Text + Chr(k)
End Sub
程序運行后，在文本框Text1輸入“rAb,X4y5”，文本框Text2中顯示的內容是什么？
（五）程序設計題（25分，題1為5分）
1．寫函數g(x)，求當-1≤x≤1時，，(精度為eps)，當x>1或x<-1時，g(x)=0。
Public Function g(x As Single，eps As Single) As Single
… ’ 在此處編寫代碼
End Function
2．編寫一程序，從鍵盤輸入50個實數，計算出平均值，將平均值和大于平均值的數寫入到順序文件a1.txt中。
3．設計一個倒計時的程序，要求：窗體（Form1）上有一個標簽（Label1），一個時鐘控件（Timer1）和一個按鈕（Command1）。單擊“設置”按鈕，用輸入對話框輸入要計時的秒數，開始倒計時。計時過程中，“設置”按鈕不可用。計時結束，顯示“時間到！”，“設置”按鈕又變成可用。計時開始、計時過程和時間到的界面分別如下圖所示。（假設，界面設計時，沒有在屬性窗口做任何設置）