‘壹’ 甯鎴戝仛涓媀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
看运行结果吧