微信搜一搜小程式迅鳥搜題助手，攢積分免費下載完整答案
關注公眾號迅鳥答題助手，更多精彩免費分享
Visual Basic程式設計期末試題
一、單項選擇題（每小題2分，共40分）
1．能夠改變標籤（Label）控制元件顯示標題的屬性是（ ）。
A．Name B．Caption C．Text D．Border
2．當一個工程中含有多個窗體時，其中的啟動窗體是（ ）。
A．啟動VB時建立的第一個窗體 B．第一個新增的窗體
C．在“工程屬性”對話方塊中指定的窗體 D．最後一個新增的窗體
3。當執行程式時，系統自動執行啟動窗體的（ ）事件。
A．Load B．Unload C．Click D．LostFocus
4．下列4項中合法的變數名是（ ）。
A．2xyz B．Integer
C．x-yz D．x_yz
5．表示式24 / 2 - 2 ^ 3 *4 / 4 Mod 5 3（ ）
A．12 B．16
C．20 D．32
6．要清除List列表框控制元件中的所有專案，可採用的方法是（ ）
A．Erase B．Clear
C．Click D．Delete
7．下列正確的賦值語句是（ ）
A．x+y=z B．2=x+y
C．z=x+y D．x=Integer+2
8．可透過下列何種屬性來設定或返回List列表框控制元件中當前選定專案的索引（ ）。
A．ListIndex B．ListCount C．ListText D．LisItem
9。若窗體Form1左上角的座標為（-250，300），右下角的座標為（350，-200），那麼X軸和Y軸的正方向是（ ）
A．向左和向上 B．向左和向下
C．向右和向下 D．向右和向上
10．如果僅需要得到當前系統時間，則可以使用哪個函式（ ）
A．Time
B．Year
C．Now
D．Date
11．數學關係8≤y
A、8
C、8
12．Dim A（-1 To 4， 5） As String定義的陣列包含的元素個數是（ ）
A．30 B．36
C．25 D．20
13．應用程式打包後，其包檔案的字尾是（ ）
A．。cab B．。exe
C．。ocx D．。vbp
14．能夠實現“窗體總在最前端”介面效果的API函式是（ ）
A．SetWindowPos B．SetWindowAPI
C．Private D．Public
15． 某窗體的Name屬性為MyFrm，則它的Load事件的過程名為（ ）
A
．
MyFrm_Load
B
．
Me_Load
C
．
Form1_Load
D
．
Form_Load
16．MsgBox函式的返回值的型別是（ ）
A．整型 B．字串
C．邏輯型 D．日期型
17． 以讀方式開啟D盤中的 Text。dat檔案，正確的語句是（ ）
A
．
open“D： ext。dat” For Output As # 1
B
．
open“ D： ext。dat” For Input As # 1
C
．
open“ D： ext。dat” For Input As
D
．
open“text。dat” For Random As # 1
18．在VB中，Access資料庫屬於（ ）
A．本地資料庫 B．外部資料庫
C．遠端資料庫 D．OLE資料庫
19．當Winsock控制元件處於關閉狀態時，其State屬性的值是（ ）
A．1 B．0
C．2 D．-1
20．字尾為。Vbp的檔案表示VB 的（ ）
A．類模組檔案 B．窗體檔案
C．工程檔案 D．標準類模組檔案
二、填空題（每小題1分，共15分）
1．用Line方法畫直線後，當前座標在 。
2。在VB中，要想獲得某個相關控制元件或語句的幫助資訊，一般可首先選中該控制元件或語句，然後按 鍵。
3．應用程式打包後，其包檔案的字尾為 。
4．如果要每隔10s產生一個Timer事件，則Interval屬性應設定為 。
5．每個應用程式都有開始執行的入口，在VB中將這種窗體稱為 。
6．控制元件陣列的名字由 屬性指定，而陣列中的每個元素由 屬性決定。
7．數學關係15≤x
8．以窗體Form1的中心為圓心，畫一個半徑為300的圓的語句是 。
9．假設ADOrs為一個Recordset物件，那麼從Table1表中獲取所有記錄的語句是
10． Vb應用程式與資料庫進行通訊的主要機制稱為 。
11．設某個程式中要用到一個二維陣列，要求陣列名為A，型別為字串型別，第一維下標從1到4，第二維下標從-1到4，則相應的陣列宣告語句為 。
12．Image控制元件的Stretch屬性設定為 時，影象框可自動改變大小以適應其中的圖形。
13．全域性變數在整個應用程式中有效，一般在模組程式碼編輯器的頂部用 語句宣告。
14．列表框中專案的序號是從 開始的。
15．Winsock控制元件主要用來編制 或 協議的通話程式。
三、閱讀程式題（每小題2分，共6分）
閱讀下列程式並寫出程式執行結果
1．
Private Sub Form_Click（）
Static a As Integer
Dim b As Integer
a = a+2
b = b+2
Text1=a
Text2=b
End Sub
寫出程式執行時連續單擊三次窗體後，文字框Text1和Text2顯示結果。
2．
Private Sub Form_Click（）
Static a As String
Dim b As String
a = a + “A”
b = b + “B”
Text1 = a
Text2 = b
End Sub
寫出程式執行時連續單擊三次窗體後，文字框Text1和Text2顯示結果。
3．
Private Sub Command1_Click（）
Dim n As Integer， y As Integer， x As Integer
a = 1
Do While a
n = n + 1
b = a + b
a = a * （a + 1）
Loop
Text1。Text = n
Text2。Text = a
Text3。Text = b
End Sub
寫出程式執行時單擊Command1後，檔案框Text1、 Text2和 Text3的輸出結果。
四、
完善程式題（每空1分，共19分）
1．列表框應用程式。要求從文字框中輸入姓名，然後按“新增”按鈕，把姓名新增到列表框中；當選擇列表框中某一項後，按“刪除”按鈕，則從列表框中刪除該項；當選擇列表框中某一項後，按“修改”按鈕，把列表框中選取的項送往文字框且“修改”按鈕變為“修改確認”。在文字框的內容修改好後，按“修改確認”按鈕，再把文字框中修改後的資訊送到列表框且“修改確認”按鈕變為“修改”。程式執行結果如圖1所示。
圖 1
程式如下，請補充完整。
Private Sub Form_Load（）
List1。AddItem “李敏”
List1。AddItem “張華”
List1。AddItem “呂曉燁”
List1。AddItem “趙巍”
List1。AddItem “袁莉”
List1。AddItem “王津”
List1。AddItem “何小渴”
List1。AddItem “崔寧”
List1。AddItem “何月”
End Sub
Private Sub Command1_Click（）
If Text1。Text “” Then
［1］
Text1。Text = “”
Else
MsgBox “請在文字框中輸入資訊！”
End If
End Sub
Private Sub Command2_Click（）
［2］
End Sub
Private Sub Command3_Click（）
If Command3。Caption = “修改”Then
Text1。Text = ［3］
Text1。SetFocus
Command1。Enabled = False
Command2。Enabled = False
Command3。Caption = ［4］
Else
［5］
Command1。Enabled = True
Command2。Enabled = True
Text1。Text = ［6］
Command3。Caption = “修改”
End If
End Sub
2．在窗體上建立一個驅動器列表框、目錄列表框、檔案列表框、圖片框、文字框。要求程式執行後，驅動器列表框Drive1的預設驅動器設定為D盤，選擇File1中所列的圖片檔案（*。bmp，*。gif和*。jpg），則相應的圖片顯示在圖片框Picture1中，檔案的路徑顯示在文字框中。程式執行結果如下圖所示。
程式如下，請補充完整。
Private Sub Form_Load（）
［1］
File1。Pattern = “*。bmp；*。gif；*。jpg”
End Sub
Private Sub Drive1_change（）
Dir1。Path = ［2］
［3］ = Drive1。Drive
End Sub
Private Sub Dir1_Change（）
［4］
Text1。Text = ［5］
End Sub
Private Sub File1_click（）
Picture1。 ［6］ = LoadPicture（File1。Path + “” + File1。FileName）
FileName = File1。Path + “” + File1。FileName
Text1。Text = ［7］
End Sub
3．已知存在一名為“學生”的SQL Server資料庫，其中的“students”資料表用來儲存學生的基本情況資訊，包括學號、姓名、籍貫、性別。請編寫一個簡單的應用程式，向students表中新增學生記錄。程式的基本邏輯是：當窗體被載入時，程式聯接SQL Server資料庫；當點選“增加”按鈕時，首先查詢學號是否重複，如果不重複則向students表中新增學生記錄。其執行介面如圖2所示。
圖2
程式如下，請補充完整。
‘宣告物件變數ADOcn，用於建立與資料庫的連線
Private ADOcn As Connection
Private Sub Form_Load（）
’連線SQL Server資料庫
Dim strDB As String
strDB = “Provider=SQLOLEDB；LSF；User ID=sa；Password=；Database = ［1］ ”
If ADOcn Is Nothing Then
Set ADOcn =［2］
［3］
End If
End Sub
Private Sub Command1_Click（）
‘增加學生記錄
Dim strSQL As String
Dim ADOrs As ［4］
［5］
ADOrs。Open “Select 學號 From Students Where 學號=”+” ‘ “+Text1+” ‘ “
If Not ADOrs。EOF Then
MsgBox “你輸入的學號已存在，不能新增加！”
Else
StrSQL=”Insert Into students （學號，姓名，，籍貫， 性別）
StrSQL=strSQL+Values（”+” ‘ “+text1+” ‘ ， ‘ “+text2+” ‘，’ “+text3+” ‘，’ “+text4+” ‘）”
［6］
MsgBox “新增成功，請繼續！”
End If
Private Sub Command2_Click（）
Unload Me
End Sub
五、編寫程式題（每小題10分，共20分）
1。編寫一程式，要求單擊“開始”按鈕（Command1），在列表框（List1）中輸出1~100之間偶數，單擊清除按鈕（Command2），清除文字框中的全部內容。程式執行結果如下圖所示。
2．編寫一個攝氏溫度與華氏溫度之間轉換的程式，程式執行介面如下圖所示：
圖1