『壹』 甯鎴戝仛涓媀B鑰冭瘯鍗峰瓙鍟
涓銆佸～絀洪
1.Visual Basic璇璦鏄浠ョ粨鏋勫寲Basic璇璦涓哄熀紜錛屼互(浜嬩歡)椹卞姩涓鴻繍琛屾満鍒躲
2.鑻ヨ佸皢紿椾綋Form1闅愯棌璧鋒潵錛岃懼彲璋冪敤鍏舵柟娉(Hide)鏉ュ疄鐜幫紝鍏蜂綋璋冪敤鏍煎紡涓猴細(Form1.Hide)
3.鏁版嵁鎺т歡鏈韜涓嶅叿鏈夋暟鎹鏄劇ず鑳藉姏錛岃佹樉紺哄伐浣滆〃鐨勬暟鎹錛岄渶鍊熷姪(treeview)鎺т歡鏉ュ疄鐜般
4.Visual Basic瀵硅薄涓昏佸垎涓(鍐呴儴鎺т歡)鍜(ActiveX鎺т歡)涓ゅぇ綾匯
5.鍦╒isual Basic涓鑻ヨ佽╂煇瀵硅薄鑾峰彇鐒︾偣錛屽垯鍙閫氳繃(Setfocus)鏂規硶鏉ュ疄鐜般
6.鏄劇ず蹇鎹瘋彍鍗曠殑鏂規硶鏄(PopupMenu)銆
7.璋冭瘯搴旂敤紼嬪簭鏃訛紝鍏跺勪簬(break)妯″紡銆
8.Visual Basic涓鑻ヨ佷駭鐢熶互娑堟伅妗嗭紝鍙鐢(msgbox)鍑芥暟鏉ュ疄鐜般
浜屻佸崟閫
1.鑻ヨ佸嵏闄ょ獥浣擄紝鍒欏疄鐜扮殑璇鍙ヤ負___ D.unload
2.鑻ヨ佷嬌鐢ㄥ懡浠ら挳澶辨晥錛屽垯鍙璁劇疆_B.enabled __灞炴т負Flase鏉ュ疄鐜般
3.璁劇疆鎴栬繑鍥炴枃鏈妗嗕腑鐨勬枃鏈錛屽彲閫氳繃鏂囨湰妗嗗硅薄鐨刜B.text __灞炴ф潵瀹炵幇銆
4.璁劇疆瀹氭椂鍣ㄦ帶浠剁殑瀹氭椂鏃墮棿錛屽彲閫氳繃A.interval ___灞炴ф潵璁劇疆銆
5.鍖呭惈Activex鎺т歡鐨勬枃浠剁殑鎵╁睍鍚嶆槸_C..ocx __銆
6.涓嬪垪鍝涓鍏抽敭瀛楀畾涔夌殑鍙橀噺鍙浠ョ敱鍏朵粬妯″潡璁塊棶_ C.public __
7.鍥懼儚妗嗘垨鍥劇墖妗嗕腑鏄劇ず鐨勫浘褰㈡枃浠訛紝鐢變粬浠鐨刜B.picture __灞炴у煎喅瀹氥
8.鍒涘緩宸ュ叿鏍忎箣鍓嶏紝搴旈変腑銆栭儴浠躲楀硅瘽妗嗕腑鐨刜_C.microsoft windows common control 6.0 _澶嶉夋嗘墠鑳藉湪宸ュ叿綆變腑娣誨姞鐩稿簲鐨勬帶浠舵寜閽銆
9.Visual Basic涓鍙閫氳繃_C.circle __鏂規硶鐢誨渾銆
10.鐢ㄤ笅闈㈣鍙ュ畾涔夌殑鏁扮粍鐨勫厓緔犱釜鏁版槸_ D.9__
Dmi M (-5 to 3) AS integer
涓夈佸氶
1.褰撶敤鎴峰湪紿椾綋涓婂崟鍑婚紶鏍囨椂錛岃Е鍙戠殑浜嬩歡A.click B.mousedown C.mouseup
2.鍦ㄨ繍琛屾椂錛岃嫢瑕佷互紼嬪簭浠ｇ爜鐨勬柟寮忚皟鏁寸獥浣撶殑澶у皬錛屽垯鏀瑰彉涓嬪垪灞炴ф垨浜嬩歡涓鐨勪唬鐮佸彲瀹炵幇鐨勬湁_B.width _C.height _
3.褰撶獥浣撹鍚鍔錛屽皢浼氬彂鐢熺殑浜嬩歡A.load B.gotfocus C.paint D.initialize
4.涓嬪垪鎺т歡涓嶅叿鏈塼ext灞炴х殑鏄 B.鏍囩綺C.鍥劇墖妗哶_
5.涓嬪垪鍙橀噺鍚嶆ｇ『鐨勬湁A.count C.banna2 ___
鍥涖佸垽鏂棰
1.鎵鏈夌殑瀵硅薄閮藉叿鏈塩aption灞炴у拰name灞炴с傦紙閿欙級
2.鍦╒B搴旂敤紼嬪簭涔嬪栧垹闄ゅ伐紼嬩腑鐨勪竴涓鏂囦歡鏃訛紝涓嶈兘鏇存柊姝ゅ伐紼嬫枃浠躲傦紙瀵癸級
3.涓涓搴旂敤紼嬪簭鍙鑳芥湁涓涓猰di紿椾綋銆傦紙閿欙級
4.鍦ㄨ捐℃甸氳繃鐢ㄥ硅瘽妗嗘帶浠剁殑澶у皬涓嶈兘鏀瑰彉錛岀敤鎴蜂篃鏃犳硶鎸囧畾瀵硅瘽妗嗗湪灞忓箷涓婄殑鏄劇ず浣嶇疆銆傦紙瀵癸級
5.鏁版嵁搴撲腑鐨勫仴蹇呴』鏄鍞涓鐨勩傦紙瀵癸級
浜斻佺畝絳旈橈細
浠庝功涓婃壘錛岀暐
鍏銆佺紪紼嬮橈細
1.奼1鍒100鍐呮墍鏈夎兘琚3鏁撮櫎鐨勬暟銆
dim i as integer
for i=1 to 100
if i mod 3=0 then print i;
next i
print
2.闅忔満鐢熸垚10涓50浠ュ唴鐨勬暣鏁幫紝騫舵寜閫掑為『搴忔帓搴忋
dim i as integer 錛孉(9) as integer,T as integer
for i=0 to 9
randomize
a(i)=int(rnd*50)
next i
for i=0 to 8
for j=i+1 to 9
if a(i)>a(j) then
T=a(i):a(i)=a(j):a(j)=T
end if
next j
next i
for i=0 to 9
print a(i);
next i
璇存槑錛氬彲鑳芥湁涓鍒棰樹笌絳旀堜笉絎︼紝浣犳渶鍚庡ソ濂界湅鐪嬩功錛岀『璁や竴涓嬶紝涓嶈佷竴鍛崇収鎼銆
『貳』 vb試題，幫忙做下，謝謝
我隨便做的，僅供參考哈
判斷題
1.相對於UPD協議而言，TCP協議是一種無連接的協議。
錯誤 TCP協議當然是有連接的啦
2.如果希望得到本地計算機的IP地址，可以使用Winsock控制項的LocalIP屬性。
正確
3.採用ADO模型時，當使用Open方法打開一個記錄集後，與ADOrs.Fields（」學號」）等效的語句是ADOrs(「學號」)。
錯誤 好像沒有這種寫法，但是可以直接寫 ADOrs！學號
4.VB應用程序中與資料庫通信的主要機制稱為資料庫引擎。
錯誤 這個不太確定，感覺是不對的，好像Access或者SqlServer這種才叫資料庫引擎吧
5.假設ADOcn為一個Connection對象，那麼在VB程序中聲明ADOcn的語句是Dim ADOcn As Connection。
錯誤 應該是Public ADOcn As ADODB.Connection
6.Err對象中，用來表示錯誤描述的屬性是Description。
正確
7.ADO模型中一般可通過Connection對象的Execute方法執行增加、刪除、修改SQL語句。
正確
8.Winsock控制項主要用來編制TCP/IP或UDP協議的通話程序。
正確
9.使用ADO模型時，可通過ActiveConnection屬性建立Recordset和Connection對象的連接。
正確
10.Winsock控制項的BytesReceived屬性返回接收到的數據，通常使用SendData方法來獲取這些數據。
錯誤 接收數據得用GetData方法
單選題
1.VB程序中設置斷點的按鍵是（ ）。 F5鍵F6鍵F9鍵F10鍵
F9
2.當Winsock控制項處於關閉狀態時，其State屬性的值是（ ）。 1026
0
3.ADOrs為RecordSet對象，從Table1獲取所有記錄的語句是（ ）。
ADOrs.New 「Select * From Table1」
ADOrs.Open 「Select * From Table1」
ADOrs.Execute 「Select * From Table1」
ADOrs.Select 「Select * From Table1」
ADOrs.Open 「Select * From Table1」
4.VB中將變數x1聲明為Excel應用程序對象的方法是（ ）。
Dim x1 As Excel.Application
Dim x1 As Excel.Workbook
Dim x1 As Excel.Worksheet
Dim x1 As Excel.Worksheets
Dim x1 As Excel.Application
5.一旦數據到達，將首先觸發Winsock控制項的（ ）。 DataArrival事件ConnectionRequest事件DataSend事件DataGet事件
DataArrival事件
6.VB程序通常不會產生錯誤提示的是（ ）。 編譯錯誤 實時錯誤 運行時錯誤 邏輯錯誤
邏輯錯誤
7.DAO、RDO和ADO三種資料庫對象中採用OLE DB訪問資料庫的是（ ）。 DAORDOADO以上都不是
ADO
8.在VB中，Access資料庫屬於（ ）。 本地資料庫 網路資料庫 外部資料庫 遠程資料庫
本地資料庫
9.ADO對象模型含有七種對象，其中用於建立一個和數據源的連接的對象是（ ）。 Command Connection Recordset Field
Connection
10.Winsock控制項的LocalPort屬性的作用是（ ）。 僅返回所有埠 僅設置所有埠 返回或設置所用埠 返回或設置IP地址
返回或設置所用埠
11.當使用SendData將數據發送到主機後時，將觸發的Winsock控制項的是（ ）。 SendProgress MouseDown Click KeyPress
SendProgress
12.要發送數據，通常使用Winsock控制項的（ ）。 SendData方法 Listen方法 Accept方法 GetData方法
SendData方法
13.ADO對象模型含有七種對象，其中代表資料庫表中的一整套記錄或執行一條命令而得到的結果的對象是（ ）。 Command Connection Recordset Field
Recordset
14.On Error Go To ErrLB語句中，ErrLB的含義是（ ）。 行標識符 Sub過程名 Function過程名 錯誤號
行標識符
15.在VB程序中逐語句調試的鍵是（）。 F8鍵 F9鍵 CtrlF8鍵 CtrlF9鍵
F8鍵
『叄』 鍏充簬VB鑰冭瘯鐨勯夋嫨棰樼洰
1. 涓庝紶緇熺殑紼嬪簭璁捐¤璦鐩告瘮錛孷isual Basic鏈紿佸嚭鐨勭壒鐐規槸 C
2. 鍦ㄨ捐￠樁孌碉紝褰撳弻鍑葷獥浣撲笂鐨勬煇涓鎺т歡鏃訛紝鎵鎵撳紑鐨勭獥鍙ｆ槸D
3. 瀵硅薄鏄疍
4. 浠ヤ笅鍙欒堪姝ｇ『鐨勬槸 A
5. 濡傛灉瑕佸皢紿椾綋涓鐨勬煇涓鍛戒護鎸夐挳璁劇疆鎴愭棤鏁堢姸鎬侊紝搴旇ヨ劇疆鍛戒護鎸夐挳鐨勫摢涓涓灞炴 C
6. 浠庨敭鐩樹笂杈撳叆涓や釜瀛楃︿覆錛屽垎鍒淇濆瓨鍦ㄥ彉閲弒tr1T鍜宻tr2涓銆傜『瀹氱浜屼釜瀛楃︿覆鍦ㄧ涓涓瀛楃︿覆涓璧峰嬩綅緗鐨勫嚱鏁版槸 D
7.琛ㄨ揪寮(-1)*Sgn(-100+Int(Rnd*100))鐨勫兼槸 A
8. 鏈夊備笅浜嬩歡榪囩▼錛欰
9.鍙浠ュ悓鏃跺垹闄ゅ瓧絎︿覆鍓嶅煎拰灝鵑儴絀烘牸鐨勫嚱鏁版槸 C
10.涓嬪垪紼嬪簭孌電殑鎵ц岀粨鏋滀負 D
11.濡備笅鏁扮粍澹版槑璇鍙ワ紝姝ｇ『鐨勬槸B
12. 鍗曞嚮涓嬈″懡浠ゆ寜閽鍚庯紝涓嬪垪紼嬪簭鐨勬墽琛岀粨鏋滄槸 C
13.琛ㄧず婊氬姩鏉℃帶浠跺彇鍊艱寖鍥存渶澶у肩殑灞炴ф槸A
14.璁劇疆鍛戒護鎸夐挳鐨勫睘鎬ф椂錛屽彧鏈夊皢浣曞睘鎬ц劇疆涓1錛孭icture灞炴ф墠鏈夋晥錛屽惁鍒欐棤鏁? A
15. 瑕佽劇疆鏍囩炬嗘槸鍚︽湁杈規嗭紝搴旇劇疆鐨勫睘鎬ф槸 C
閫塂
榪斿洖 Variant (Long)錛屾寚瀹氫竴瀛楃︿覆鍦ㄥ彟涓瀛楃︿覆涓鏈鍏堝嚭鐜扮殑浣嶇疆銆
璇娉
InStr([start, ]string1, string2[, compare])
InStr 鍑芥暟鐨勮娉曞叿鏈変笅闈㈢殑鍙傛暟錛
閮ㄥ垎 璇存槑
start 鍙閫夊弬鏁般備負鏁板艱〃杈懼紡錛岃劇疆姣忔℃悳緔㈢殑璧風偣銆傚傛灉鐪佺暐錛屽皢浠庣涓涓瀛楃︾殑浣嶇疆寮濮嬨傚傛灉 start 鍖呭惈 Null錛屽皢鍙戠敓閿欒銆傚傛灉鎸囧畾浜 compare 鍙傛暟錛屽垯涓瀹氳佹湁 start 鍙傛暟銆
string1 蹇呰佸弬鏁般傛帴鍙楁悳緔㈢殑瀛楃︿覆琛ㄨ揪寮忋
string2 蹇呰佸弬鏁般傝鎼滅儲鐨勫瓧絎︿覆琛ㄨ揪寮忋
Compare 鍙閫夊弬鏁般傛寚瀹氬瓧絎︿覆姣旇緝銆傚傛灉 compare 鏄 Null錛屽皢鍙戠敓閿欒銆傚傛灉鐪佺暐 compare錛孫ption Compare 鐨勮劇疆灝嗗喅瀹氭瘮杈冪殑綾誨瀷銆
璁劇疆
compare 鍙傛暟璁劇疆涓猴細
甯告暟 鍊 鎻忚堪
vbUseCompareOption -1 浣跨敤Option Compare 璇鍙ヨ劇疆鎵ц屼竴涓姣旇緝銆
vbBinaryCompare 0 鎵ц屼竴涓浜岃繘鍒舵瘮杈冦
vbTextCompare 1 鎵ц屼竴涓鎸夌収鍘熸枃鐨勬瘮杈冦
vbDatabaseCompare 2 浠呴傜敤浜嶮icrosoft Access錛屾墽琛屼竴涓鍩轟簬鏁版嵁搴撲腑淇℃伅鐨勬瘮杈冦
榪斿洖鍊
濡傛灉 InStr榪斿洖
string1 涓洪浂闀垮害 0
string1 涓 Null Null
string2 涓洪浂闀垮害 Start
string2 涓 Null Null
string2 鎵句笉鍒 0
鍦 string1 涓鎵懼埌string2 鎵懼埌鐨勪綅緗
start > string2 0
璇存槑
InStrB 鍑芥暟浣滅敤浜庡寘鍚鍦ㄥ瓧絎︿覆涓鐨勫瓧鑺傛暟鎹銆傛墍浠 InStrB 榪斿洖鐨勬槸瀛楄妭浣嶇疆錛岃屼笉鏄瀛楃︿綅緗銆
InStr 鍑芥暟紺轟緥
鏈紺轟緥浣跨敤 InStr 鍑芥暟鏉ユ煡鎵炬煇瀛楃︿覆鍦ㄥ彟涓涓瀛楃︿覆涓棣栨″嚭鐜扮殑浣嶇疆銆
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' 琚鎼滅儲鐨勫瓧絎︿覆銆
SearchChar = "P" ' 瑕佹煡鎵懼瓧絎︿覆 "P"銆
' 浠庣鍥涗釜瀛楃﹀紑濮嬶紝浠ユ枃鏈姣旇緝鐨勬柟寮忔壘璧楓傝繑鍥炲間負 6錛堝皬鍐 p錛夈
' 灝忓啓 p 鍜屽ぇ鍐 P 鍦ㄦ枃鏈姣旇緝涓嬫槸涓鏍風殑銆
MyPos = Instr(4, SearchString, SearchChar, 1)
' 浠庣涓涓瀛楃﹀紑浣匡紝浠ヤ簩榪涘埗姣旇緝鐨勬柟寮忔壘璧楓傝繑鍥炲間負 9錛堝ぇ鍐 P錛夈
' 灝忓啓 p 鍜屽ぇ鍐 P 鍦ㄤ簩榪涘埗姣旇緝涓嬫槸涓嶄竴鏍風殑銆
MyPos = Instr(1, SearchString, SearchChar, 0)
' 緙虹渷鐨勬瘮瀵規柟寮忎負浜岃繘鍒舵瘮杈冿紙鏈鍚庝竴涓鍙傛暟鍙鐪佺暐錛夈
MyPos = Instr(SearchString, SearchChar) ' 榪斿洖 9銆
MyPos = Instr(1, SearchString, "W") ' 榪斿洖 0銆
『肆』 VB編程「求1到1000以內所有奇數之和」（do while 結構）
先把代碼發出來，等會在評論中給你解釋吧。復制粘貼以下代碼：
Option Explicit
Private Sub Command1_Click()
Dim i As Long
Dim s As Long
s = 0
i = 0
Do While i < 1000
i = i + 1
If i Mod 2 = 1 Then
s = s + i
End If
Loop
Print "計算1至1000之間的奇數之和為："; s
End Sub
看運行結果吧