二级VISUAL BASIC机试真题2009年09月.doc

《二级VISUAL BASIC机试真题2009年09月.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、浜岀骇VISUALBASIC鏈鸿瘯鐪熼2009骞?9鏈?/p>1鍩烘湰鎿嶄綔棰?/b>  璇锋牴鎹互涓嬪悇涓皬棰樼殑瑕佹眰璁捐VisualBasic搴旂敤绋嬪簭(鍖呮嫭鐣岄潰鍜屼唬鐮?銆?br>1銆佸湪鍚嶇О涓篎orm1鐨勭獥浣撲笂鐢讳竴涓垪琛ㄦ锛屽叾鍚嶇О涓篖ist1锛岄€氳繃灞炴€х獥鍙ｅ悜鍒楄〃妗嗕腑杈撳叆9涓」鐩紝鍒嗗埆涓?0銆?0銆?0銆?0銆?0銆?0銆?0銆?0銆?0锛涚敾涓€涓枃鏈锛屽叾鍚嶇О涓篐scrol1锛孧in灞炴€у拰Max灞炴€у垎鍒负0鍜?00锛屽鍥炬墍绀猴紝缂栧啓閫傚綋鐨勪簨浠惰繃绋嬨€傜▼搴忚繍琛屽悗锛屽鏋滃崟鍑

2、诲垪琛ㄦ涓殑鏌愪釜椤圭洰鍐呭锛屽苟鎶婃粴鍔ㄦ潯鐨勬粴鍔ㄦ绉诲姩鍒扮浉搴旂殑浣嶇疆锛屽鍥炬墍绀恒€?br>  瑕佹眰锛氫笉寰椾娇鐢ㄤ换浣曞彉閲忋€?br>    2銆佸湪鍚嶇О涓篎orm1鐨勭獥浣撲腑鐢讳竴涓浘鍍忔锛屽悕绉颁负Image1锛屽叾楂樸€佸鍒嗗埆涓?800銆?500锛岄€氳繃灞炴€х獥鍙ｆ妸鑰冪敓鏂囦欢澶逛笅鐨勫浘鍍忔枃浠秙mile.bmp瑁呭叆鍥惧儚妗嗭紱鍐嶇敾涓€涓懡浠ゆ寜閽紝鍚嶇О涓篊md1锛屾爣棰樹负鈥滄斁澶р€濄€?br>  璇风紪鍐欓€傚綋浜嬩欢杩囩▼锛岀▼搴忚繍琛屽悗锛屽崟鍑烩€滄斁澶р€濇寜閽紝鍒欐妸鍥惧儚妗嗙殑楂樺害銆佸

3、搴﹀潎澧炲姞100锛屽悓鏃跺浘鍍忎篃闅忎箣鑷姩鏀惧ぇ銆?br>  娉ㄦ剰锛氱▼搴忎腑涓嶅緱浣跨敤浠讳綍鍙橀噺銆傜▼搴忚繍琛屾椂鐨勭晫闈㈠涓嬪浘鎵€绀恒€?br>  2绠€鍗曞簲鐢ㄩ1銆佸湪鑰冪敓鏂囦欢澶逛笅鏈変竴涓伐绋嬫枃浠秙jt3.vbp锛屽強鍏剁獥浣撴枃浠秙jt3.frm锛岀▼搴忚繍琛屾椂锛屽鏋滅敤榧犳爣宸﹂敭鎸変綇绐椾綋锛屽苟鍦ㄥ叾涓婄Щ鍔紝鍒欑獥浣撲笂鏄剧ず鈥滄偍鎸変笅浜嗛紶鏍囩殑宸﹂敭鈥濓紱濡傛灉鐢ㄩ紶鏍囩殑鍙抽敭鎸変綇绐椾綋锛屽苟鍦ㄥ叾涓婄Щ鍔紝鍒欐樉绀衡€滄偍鎸変笅浜嗛紶鏍囩殑鍙抽敭鈥濄€傜▼搴忚繍琛屾椂鐨勭獥浣撶晫闈㈠鍥炬墍绀恒€?br> 

4、   瑕佹眰锛氶鐩腑鎵€缁欑殑绋嬪簭涓嶅畬鏁达紝璇疯鎳傜▼搴忓悗灏嗗叾琛ュ厖瀹屾暣锛屼互鍘熸枃浠跺悕淇濆瓨銆?br>  璇曢婧愮▼搴忥細  1 PrivateSubFormMouseMove(ButtonAsInteger锛孲hiftAs Integer锛孹AsSingle锛孻AsSingle)  2 IfButton=?ThenPrint鈥滄偍鎸変笅浜嗛紶鏍囩殑宸﹂敭鈥?br>  3 IfButton=?ThenPrint鈥滄偍鎸変笅浜嗛紶鏍囩殑鍙抽敭鈥?br>  4 EndSub2銆佸湪鑰冪敓鏂囦欢澶逛笅鏈変竴涓伐绋嬫枃浠秙jt4.vbp锛屽強鍏剁獥浣撴枃浠

5、秙jt4.frm锛岀獥浣撲笂鏈変竴涓爣绛惧拰涓€涓枃鏈锛屾帶浠跺強鍏跺睘鎬у潎宸茶缃畬姣曘€傜幇浣跨敤KeyPress浜嬩欢缂栧啓涓€涓彛浠ょ▼搴忥紝绋嬪簭杩愯鍚庯紝鍦ㄦ枃鏈涓緭鍏ュ彛浠わ紝濡傛灉姝ｇ‘锛屽垯鏄剧ず鐩稿簲鐨勪俊鎭紝鍗曞嚮鈥滅‘瀹氣€濇寜閽悗锛屽皢鏄剧ず涓€琛屼俊鎭紱濡傛灉鍙ｄ护涓嶆纭紝鍒欒姹傞噸鏂拌緭浜恒€?娆¤緭鍏ョ殑鍙ｄ粖閮戒笉姝ｇ‘锛屽垯鍋滄杈撳叆锛屽苟缁撴潫绋嬪簭銆傜▼搴忚繍琛岀殑鐢婚潰濡傚浘鎵€绀恒€?br>    瑕佹眰锛氶鐩腑鎵€缁欑殑绋嬪簭涓嶅畬鍏紝璇疯鎳傜▼搴忓悗灏嗗叾琛ュ厖瀹屾暣锛屼互鍘熸枃浠

6、跺悕淇濆瓨銆?br>  璇曢婧愮▼搴忓涓嬶細  1PrivateSubFormLoad()  2Text1.Text=""  3Text1.FontSize=10  4Label1.FontSize=12  5Label1.FontBold=True  6Label1.Font0="闅朵功"  7Label1.Caption=鈥滆杈撳叆鍙ｄ护鈥︹€︹€?br>  8 EndSub  9 PrivateSubText1_KeyPress(KeyAsciiAsInteger)  10 StaticPWordAsString  11 StaticCounterAsInte

7、ger  12 StaticNumberftriesAsInteger  13 Numberftries=Numberftries+1  14 If?ThenEnd  15 Counter=Counter+1  16 PWord=PWord+?  17 KeyAscii=0  18 Text1.Text=String$(Counter锛?*")  19 IfLCase$(PWord)="abcd"Then  20 Text1.Text=""  21 PWord=0  22 MsgBox鈥滃彛浠ゆ纭紝缁х画鈥︹€︹€?br>