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

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

1、浜岀骇VISUALBASIC鏈鸿瘯鐪熼2007骞?9鏈?/p>1鍩烘湰鎿嶄綔棰?/b>  璇锋牴鎹互涓嬪悇涓皬棰樼殑瑕佹眰璁捐VisualBasic搴旂敤绋嬪簭(鍖呮嫭鐣岄潰鍜屼唬鐮?銆?br>1銆佸湪鍚嶇О涓篎orm1鐨勭獥浣撲笂鐢讳竴涓枃鏈锛屽叾鍚嶇О涓篢ext1锛岀劧鍚庨€氳繃灞炴€х獥鍙ｈ缃獥浣撳拰鏂囨湰妗嗙殑灞炴€э紝瀹炵幇濡備笅鍔熻兘锛?br>  (a)鍦ㄦ枃鏈涓彲浠ユ樉绀哄琛屾枃鏈紱  (b)鍦ㄦ枃鏈涓樉绀哄瀭鐩存粴鍔ㄦ潯锛?br>  (C)鏂囨湰妗嗕腑鏄剧ず鐨勫垵濮嬩俊鎭负鈥滃叏鍥借绠楁満绛夌骇鑰冭瘯鈥濓紱  (

2、d)鏂囨湰妗嗕腑鏄剧ず鐨勫瓧浣撲负涓夊彿銆佽鍒欍€侀粦浣擄紱  (e)绐椾綋鐨勬爣棰樹负鈥滆缃枃鏈睘鎬р€濄€?br>  瀹屾垚璁剧疆鍚庣殑绐椾綋濡備笅鍥炬墍绀恒€?br>    瑕佹眰锛氫笉缂栧啓浠讳綍浠ｇ爜銆?br>2銆佸湪绐椾綋涓婄敾涓や釜鏂囨湰妗嗭紝鍚嶇О涓篢ext1锛孴ext2銆備娇寰楀湪杩愯鏃讹紝濡傛灉鍦═ext1涓瘡杈撳叆涓€涓瓧绗︼紝鍒欐樉绀轰竴涓€?鈥濓紝鍚屾椂鍦═ext2涓樉绀鸿緭鍏ョ殑鍐呭銆?br>  绋嬪簭杩愯鏃剁殑鐣岄潰濡備笅鍥炬墍绀恒€?br>  2绠€鍗曞簲鐢ㄩ1銆佸湪鍚嶇О涓篎orm1鐨勭獥浣撲笂鐢诲嚭濡傚浘鎵

3、€绀虹殑涓夎褰€?br>  涓嬭〃缁欏嚭浜嗙洿绾縇ine1銆丩ine2鐨勫潗鏍囧€硷紝璇锋寜姝よ〃鐢籐ine1銆丩ine2锛屽苟鐢诲嚭鐩寸嚎Line3锛屼粠鑰岀粍鎴愬鍥炬墍绀虹殑涓夎褰€?br>               琛↙ine1銆丩ine2鐨勫潗鏍囧€?TABLEclass=extable_cborder=0cellSpacing=0align=center>鍚嶇ОX1Y1X2Y2Line160016001600600Line2600160026001600  2銆佸湪鑰冪敓鏂囦欢澶逛笅鏈変竴涓伐绋嬫枃浠禩507.vbp锛屽叾绐椾綋涓婃湁涓€涓

4、枃鏈锛屽悕绉颁负Text1锛涜繕鏈変竴涓懡浠ゆ寜閽紝鍚嶇О涓篊1锛屾爣棰樹负鈥滆绠椻€濓紝濡傚浘鎵€绀恒€傛湁涓€涓嚱鏁癷sprime()鍙互鍦ㄧ▼搴忎腑鐩存帴璋冪敤锛屽叾鍔熻兘鏄垽鏂弬鏁癮鏄惁涓虹礌鏁帮紝濡傛灉鏄礌鏁帮紝鍒欒繑鍥濼rue锛屽惁鍒欒繑鍥濬alse銆傝缂栧啓閫傚綋鐨勪簨浠惰繃绋嬶紝浣垮緱鍦ㄨ繍琛屾椂锛屽崟鍑烩€滆绠椻€濇寜閽紝鍒欐壘鍑哄皬浜?000鐨勬渶澶х礌鏁帮紝骞舵樉绀哄湪Text1涓€?br>  娉ㄦ剰锛氳€冪敓涓嶅緱淇敼isprime()鍑芥暟杩囩▼鍜屾帶浠剁殑灞炴€с€?br>  璇曢婧愮▼搴忥細  1Pri

5、vateFunctionisprime(aAsInteger)AsBoolean  2DimflagAsBoolean  3flag=True  4b%=2  5DoWhileb%锛?Int(a/2)Andflag  6IfInt(a/b%)=a/b%Then  7flag=False  8Else  9b%=b%+1  10EndIf  11Loop  12isprime=flag  13EndFunction  3缁煎悎搴旂敤棰?/b>1銆佸湪鍚嶇О涓篎orm1鐨勭獥浣撲腑鐢讳笁涓懡浠ゆ寜閽?鍚嶇О鍒嗗埆涓篊ommand1銆丆ommand2鍜孋ommand3锛

6、屾爣棰樺垎鍒负鈥滄樉绀衡€濄€佲€滅粺璁♀€濆拰鈥滀繚瀛樷€?锛岀劧鍚庣敾涓€涓枃鏈(鍚嶇О涓篢ext1锛孧ultiLine灞炴€ц缃负True锛孲crolIBars灞炴€ц涓?)锛屽涓嬪浘鎵€绀恒€?br>    绋嬪簭杩愯鍚庯紝濡傛灉鍗曞嚮鈥滄樉绀衡€濓紝鍒欒鍏ョ▼搴忎腑鐨勬枃鏈紝骞跺湪鏂囨湰妗嗕腑鏄剧ず鍑烘潵锛屽涓嬪浘鎵€绀恒€?br>  濡傛灉鍗曞嚮鈥滅粺璁♀€濓紝鍒欑粺璁℃枃鏈涓瑼SC鈪＄爜澶т簬绛変簬70鑰屽皬浜庣瓑浜?00鐨勫瓧绗︾殑涓暟锛屽苟鎶婄粨鏋滃湪鏂囨湰妗嗕腑鏄剧ず鍑烘潵锛屽涓嬪浘鎵€绀恒€?br>  濡傛灉鍗曞

7、嚮鈥滀繚瀛樷€濇寜閽紝鍒欐妸缁熻缁撴灉瀛樺埌鏂囦欢涓€?br>  娉ㄦ剰锛氱粨鏉熺▼搴忓墠蹇呴』鐢ㄢ€滀繚瀛樷€濇寜閽皢缁熻缁撴灉淇濆瓨鍒版枃浠朵腑锛屽惁鍒欐病鏈夋垚缁┿€傛渶鍚庡繀椤荤敤鍘熸枃浠跺悕瀛樼洏銆?br>  绛旀:1鍩烘湰鎿嶄綔棰?/b>1銆佺涓€姝ワ細鍚姩VisualBasic锛屾柊寤轰竴涓伐绋嬫枃浠躲€?br>  绗簩姝ワ細鍗曞嚮宸ュ叿绠变笂鐨勨€滄枃鏈鈥濇帶浠讹紝鍦ㄧ獥浣撲笂鐢讳竴涓枃鏈锛屽皢鍏禢ame灞炴€ц缃负Text1锛孴ext灞炴€ц缃负鈥滅▼搴忚璁♀€濓紝Font灞炴€т腑璁剧疆瀛椾綋涓洪粦浣擄