一、單項選擇題（每小題2分，共30分）
1．字尾為.bas的檔案表示（ ）。
a．工程檔案 b．窗體檔案
c．窗體二進位制資料檔案 d．標準類模組檔案
2．visual basic是一種物件導向的程式語言，所採用的程式設計機制是（ ）。
a．從主程式開始執行 b．按過程順序執行
c．按模組順序執行 d．事件驅動
3．有程式**如下：
= "你好"
則text1，text ，和"你好"分別代表（ ）。
a．物件，值，屬性 b．物件，屬性，值
c．物件，方法，屬性 d．屬性，物件，值
4.以下敘述中錯誤的是（ ）。
a．乙個工程中可以包含多個窗體檔案
b．在設計visual basic程式時，窗體、標準模組、類模組等需要分別儲存為不同型別的檔案
c．在乙個窗體檔案中用private定義的通用過程能被其它窗體呼叫
d．全域性變數必須在標準模組中定義
5．將資料項「china」新增到列表框（list1中成為第一項，應使用的語句是（ ）
a．"china" b．"1,china"
c．"china",0 d．"china",1
6．在vb中，下列各項合法的變數名是（ ）。
a．integer b．ab-c
c．2abc d． a_bc
7．下列控制項中不能響應click事件的是（ ）。
a．textbox b．timer c．label d．listbox
8．不屬於vb資料庫引擎的是（ ）
a．odbc b． jet引擎
c．bde d．ole db
9．確定乙個控制項在窗體上位置的屬性是（ ）
a ．top或left b．top和left
c．width或height d．width和height
10．如果希望以模態方式顯示窗體form1，下列正確的語句是（ ）
a． 0 b． 1
c． d．以下都不正確
11．改變驅動器列表框的drive屬性值，將啟用（ ）事件。
a．keydown b．keyup
c．scoll d． change
12．如果建立了命令按鈕陣列控制項，那麼該命令按鈕的click事件的引數是（ ）
a．tag b．caption
c．index d．沒有引數
13.在下列選項中，不能將影象裝入**框和影象框的是（ ）
a．在介面設計時，通過picture屬性裝入
b．在介面設計時，手工在影象框和**框中繪製圖形
c．在介面設計時，利用剪貼簿把影象貼上上
d．在程式執行期間，用loadpicture函式把圖形檔案裝入
14． 在vb程式中逐語句除錯的鍵是（ ）。
a．f8鍵b．f9鍵
c．ctrlf8鍵 d．ctrlf9鍵
15．當winsock控制項處於偵聽狀態時，其state屬性的值是（ ）
a．0 b．1
c．2 d．3
一、單項選擇題（每小題2分，共30分）
12．c 13．b
二、填空題（每小題2分，共20分）
1．欲設定定時器的時間間隔為2秒，則屬性interval的值為 。
2．表示式17/3-2^3*7 mod 6的值是 。
3．在visual basic語言中有三種形式的迴圈結構。其中，若迴圈的次數可以適先確定，可使用for×××next迴圈迴圈；若要求先判斷迴圈進行的條件，可使用迴圈。
4．為了在執行時把當前路徑下的圖形檔案裝入**框p1，所使用的語句為 。
5. 將**框的autosize屬性設定成時，可使**框根據**調整大小。
6．winsock控制項主要用來編制基於tcp/ip或協議的網路應用程式。如果希望得到本地計算機的 ip位址，可以使用winsock控制項的屬性。
7．在控制項陣列中，所有元素的屬性均相同，陣列中的每個元素由屬性指定。
8．設某個程式中要用到乙個二維陣列，要求陣列名為r，型別為整型，第一維下標從-2到2，第二維下標從0到4，則相應陣列宣告語句為 。
9．閏年的條件是：年號（y）能被4整除，但不能被100整除；或者年號能被400整除。表示該條件的邏輯表示式是 。
10．若窗體的左上角座標為（-250，250），右下角座標為（300，0），則x軸的正向向 ，y軸的正向向 。
二、填空題（每空1分，共15分）
1．2000
2．03．for×××next迴圈 do×××loop迴圈
4．p1. picture = loadprcture("")
5．true
6. udp localip
7．name index
r(-2to 2,0 to 4) as integer
9. y mod 4=0 and y mod 100<>0 or y mod 400=0
10．右上
三、閱讀程式題（共25分）
閱讀下列程式並寫出程式執行結果
1．(6分)
private sub form_click()
dim x as integer
static y as integer
x = x + 4
y = y + 6
"x="; x, "y="; y
end sub
寫出程式執行時連續單擊三次窗體後，form1上的輸出結果。
2．(6分)
private sub form_click()
dim i as integer, k as integer
k = 1
for i = 1 to 4
if i > 3 then
k = k + 4
exit for
else
k = k + 3
end if
next i
print i, k
end sub
寫出程式執行時單擊窗體後，form1上的輸出結果。
3. (6分)
private sub command1_click()
dim s as double
dim i as integer
s = 6
i = 2
do while i < 7
i = i + 4
s = s + i
loop
= send sub
寫出程式執行後，單擊command1按鈕，檔案框text1的輸出結果是：
4. (7分)
function f(a as integer)
static c
b = b + 3
c = c + 3
f = a + b + c
end function
private sub command1_click()
dim a as integer
a = 5
for i = 1 to 4
print f(a)
next i
end sub
寫出程式執行時，單擊命令按鈕在窗體上的輸出結果。
三、閱讀程式題（每小題5分，共20分）
1.x=4 y=6
x=4 y=12
x=4 y=18
2.4 14
3． 22
4．11
1417
20四、完善程式題（共10分）
已知存在一名為「學生」的sql server資料庫，其中的「students」資料表用來儲存學生的基本情況資訊，包括學號、姓名、籍貫、性別。請編寫乙個簡單的應用程式，向students表中新增學生記錄。程式的基本邏輯是：
當窗體被載入時，程式聯接sql server資料庫；當點選「增加」按鈕時，首先查詢學號是否重複，如果不重複則向students表中新增學生記錄。其執行介面如下圖所示。
圖1程式如下，請補充完整。
』宣告物件變數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] "
Visual Basic程序設計
一 程式分析與完善題 1 下列程式段的執行結果為 a x 5 y 20 if not x 0 then x y 3 else y x 3 print x y y x end if a 3 3 b 5 8 c 3 3 d 25 25 2 下列程式段的執行結果是 a a 0 b 0 for i 1 to...
Visual Basic迴圈結構程式設計
所謂迴圈結構程式就是指對同一程式段進行若干次的重複執行，被重複執行的語句組稱為迴圈體。在程式中的迴圈有兩種 一種為無條件迴圈，它是無休止地重複執行某一程式段 一種為有條件迴圈，能夠滿足特定條件就重複執行某一程式段。visual basic提供多種迴圈語句以實現迴圈程式結構。1 do while.lo...
C語言程序設計
1.有以下程式 main 執行後輸出結果是 5,6 解析函式strlen 用於計算字串的長度，所給的字串s中，n 是轉義字元，代表乙個 換行 符，表示乙個反斜槓字元 所以字串s的長度為5 sizeof 函式是用來計算字串所佔記憶體的位元組數，5個字元在記憶體中佔5個位元組，由於c規定，在每乙個字串末...