【VB开源代码栏目提醒】：网学会员为需要VB开源代码的朋友们搜集整理了vb程序设计教程 第三版 龚沛曾 课后答案1 - 大众科技相关资料，希望对各位网友有所帮助!

涔犻涓涔犻浜1.瀵硅薄镌囩幇瀹炰笘鐣屼腑镄勫疄浣撱傛疮涓璞℃湁镊繁镄勭壒寰灞炴銆佽涓鏂规硶鍜屽彂鐢熷湪璇ュ璞′笂镄勬椿锷浜嬩欢銆绫绘槸瀵瑰悓涓绉嶅璞＄殑板嗗悎涓庢娊璞°傜被鍖呭惈镓鍒涘缓瀵硅薄镄勫睘镐ф暟鎹紝浠ュ强瀵硅繖浜涙暟鎹繘琛屾搷浣灭殑鏂规硶銆效皝瑁呭拰闅愯棌鏄被镄勯吨瑕佺壒镐э紝灏嗘暟鎹粨鏋勫拰瀵规暟鎹殑鎿崭綔灏佽鍦ㄤ竴璧凤紝绫荤殑鍐呴儴瀹炵幇缁呜妭瀵圭敤鎴锋潵璇存槸阃忔槑镄勩VB 宸ュ叿绠变腑镄勫彲瑙嗗浘镙囨槸 VB 绯荤粺璁捐濂界殑镙囧嗳鎺т欢绫汇傞氲绷灏嗘带浠剁被瀹炰緥鍖栵紝寰楀埌鐪熸镄勬带浠跺璞° 效湪绐椾綋涓婄敾涓涓带浠讹紝灏卞皢绫昏浆鎹负瀵硅薄锛屽垱寤轰简涓涓带浠跺璞°VB 涓父鐢ㄧ殑瀵硅薄鏄带浠躲傛澶栵紝VB 杩樻彁渚涗简绯荤粺瀵硅薄銆傜獥浣撴槸涓壒渚嬶紝瀹冩棦鏄被涔熸槸瀵硅薄銆效綋鍚戜竴涓伐绋嬫坊锷犱竴涓柊绐椾綋镞讹紝瀹炶川灏辩敱绐椾綋绫诲垱寤轰简涓涓獥浣揿璞°瀵硅薄镄勪笁瑕佺礌锛氩睘镐с佷簨浠跺拰鏂规硶銆灞炴э细瀛樻斁瀵硅薄镄勬暟鎹鍐冲畾瀵硅薄澶栬鍙婂姛鑳瀵硅薄灞炴х殑璁剧疆鏂规硶锛氩湪璁捐阒舵锛屽埄鐢ㄥ睘镐х獥鍙ｇ洿鎺ヨ缃睘镐у 碱绂绋嫔簭杩愯镞讹紝阃氲绷璇彞瀵硅薄鍚灞炴у悕灞炴у笺傝嫢灞炴у彧鑳藉湪璁捐阒舵璁剧疆锛屽湪绋嫔簭杩愯阒舵涓嶅彲鏀瑰彉锛岀О涓哄彧璇诲睘镐с 浜嬩欢锛氩彂鐢熷湪瀵硅薄涓婄殑浜嬫儏銆效悓涓浜嬩欢锛屽涓嶅悓镄勫璞★紝浼氩紩鍙戜笉鍚岀殑鍙嶅簲銆浜嬩欢杩囩▼锛氩簲鐢ㄧ▼搴忓鐞嗕簨浠剁殑姝ラ銆效簲鐢ㄧ▼搴忚璁＄殑涓昏宸ヤ綔灏辨槸涓哄璞＄紪鍐欎簨浠惰绷绋嬬殑浠ｇ爜銆鏂规硶锛氶溃鍚戝璞＄殑绋嫔簭璁捐璇█锛屼负绋嫔簭璁捐浜哄憳鎻愪緵浜嗕竴绉岖壒娈婄殑杩囩▼鍜屽嚱鏁般傛柟娉曟槸闱一悜瀵硅薄镄勶紝璋幂敤镞朵竴瀹氲镌囨槑瀵硅薄銆2.绐椾綋鍜屾带浠跺叿链夌殑鍩烘湰灞炴р1 Name 灞炴э细鍚岖О 镓鍒涘缓镄勫璞〃悕绉鍦ㄧ▼搴忎腑寮旷敤銆2 Caption 灞炴э细镙囬 璇ュ睘镐у喅瀹氢简瀵硅薄涓婃樉绀虹殑鍐呭銆3 Height 銆乄 idth 銆乀 op 鍜孡 eft 灞炴 鍐冲畾瀵硅薄镄勫ぇ灏忓拰浣岖疆銆4 Enabled 灞炴э细瀵硅薄鏄惁鍏佽鎿崭綔5 Visible 灞炴э细瀵硅薄鏄惁鍙6 Font 灞炴х粍锛氭枃链殑澶栬 FontName 瀛椾綋銆丗 ontSize 澶у皬 FontBold 绮椾綋銆丗 ontItalic 鏂滀綋 FontStrikethru 鍒犻櫎绾 FontUnderline 涓嫔垝绾7 ForeColor 灞炴э细鍓嶆櫙棰滆壊8 BackColor 灞炴э细鑳屾櫙棰滆壊9 MousePointer 灞炴э细榧犳爣镌囬拡绫诲瀷 璁剧疆鍊艰寖锲锝5 锛岀敱绯荤粺镌囧畾 銆傝嫢涓9 锛岀敱鐢ㄦ埛鎻愪緵镄勫浘褰二枃浠跺畾涔夐紶镙囨寚阍埚舰钟躲 10 MouseIcon 灞炴э细鍦∕ousePointer 灞炴у间负 99 镞讹紝瀛樻斁镊畾涔夌殑榧犳爣锲炬爣鏂囦欢锛ico 鎴cur 锛夈效浘镙囧簱鍦℅raphics 鐩綍涓嬨3.绐椾綋镄勪簨浠讹细 Load 浜嬩欢鏄湪绐椾綋琚鍏ュ伐浣滃尯镞惰Е鍙戠殑浜嬩欢銆效綋搴旗敤绋嫔簭鍚姩锛岃嚜锷ㄦ墽琛岃浜嬩欢锛岃浜嬩欢阃氩父鐢ㄦ潵鍦ㄥ惎锷ㄥ簲鐢ㄧ▼搴忔椂瀵瑰睘镐у拰鍙橀噺杩涜鍒濆鍖栥 绐椾綋镄勬柟娉锛锛埘 rint 鏂规硶鐢ㄦ潵鏄剧ず鏂囨湰鍐呭锛屾牸寮忥细瀵硅薄.print 琛ㄨ揪寮锛锛塁 ls 鏂规硶娓呴櫎杩愯镞跺湪绐椾綋鎴栧浘褰二涓骇鐢熺殑鏂囨湰鎴栧浘褰 Cls 鏂规硶涓嶈兘娓呴櫎绐椾綋鍦ㄨ璁℃椂镄勬枃链拰锲惧舰銆镙煎纺锛歔瀵硅薄.cls锛锛塎 ove 鏂规硶鍙Щ锷ㄧ獥浣撴垨鎺т欢锛屽苟鍙敼鍙桦叾澶у皬銆璇硶镙煎纺濡备笅锛瀵硅薄.Move 宸竟璺濈涓婅竟璺濈瀹藉害楂桦害4.镙囩浣灭敤锛氱敤浜庢樉绀烘枃链杈揿嚭淇℃伅锛屼笉鑳戒綔涓鸿緭鍏ヤ俊鎭殑鐣岄溃銆效叾鍐呭鍙兘阃氲绷 Caption 灞炴ц缃垨淇敼锛屼笉鑳界洿鎺ョ紪杈戙5.鏂囨湰妗嗘槸涓涓枃链紪杈戝尯鍩燂紝鍙互鍦ㄨ鍖哄烟杈揿叆銆佺紪杈戙 佷慨鏀瑰拰鏄剧ず姝ｆ枃鍐呭銆效湪 VB 涓瓧绗昵搴互瀛椾负鍗曚綅锛屼篃灏辨槸涓 涓タ鏂囧瓧绗笌涓涓眽瀛楅兘鏄竴涓瓧锛岄昵搴负 1 銆阅嶈灞炴1 Text 鏄剧ず鎴栬緭鍏ョ殑姝ｆ枃鍐呭銆2 Maxlength 璁剧疆鏂囨湰妗嗗彲杈揿叆镄勬枃瀛楁渶澶ч昵搴 傞粯璁ゅ间负 0 锛岃〃绀哄彲浠ヨ緭鍏ヤ换镒忛昵瀛楃涓层3 MultiLine 澶氲灞炴璁剧疆涓篢 rue 镞讹紝鏂囨湰妗嗗彲浠ヨ緭鍏ユ垨鏄剧ず澶氲姝ｆ枃锛屽悓镞跺叿链夋枃瀛楀鐞嗗櫒镄勮嚜锷ㄦ崲琛屽姛鑳斤紝镌塃 nter 阌彲鎻掑叆涓绌鸿銆4 ScrollBars 婊氩姩鏉〃睘镐 0-None 镞犳粴锷ㄦ浔 1-Horizontal 姘村钩婊氩姩鏉 2-Vertical 鍨傜洿婊氩姩鏉 3-Both 鍚屾椂锷犳按骞冲拰鍨傜洿婊氩姩鏉娉ㄦ剰锛氩綋 MultiLine 涓篢 rue 镞讹紝 ScrollBars 镓嶆湁鏁5 PassWordChar 璁剧疆鏄剧ず鏂囨湰镄勬浛浠ｇ銆备緥濡傦紝褰撹缃负钬钬濓紝鍒椤湪鏂囨湰妗呜緭鍏ョ殑鍐呭鍧囦互钬钬濇樉绀猴紝钥屽瓨鍌ㄧ殑鍊兼槸鐢ㄦ埛杈揿叆镄勫师鏂囥备竴鑸敤浜庤缃彛浠ょ殑杈揿叆銆褰揗 ultiLine 涓篢 rue 镞讹紝璇ュ睘镐т笉璧蜂綔鐢紝瀵嗙爜涓嶅厑璁稿琛屻 6 Locked 镌囧畾鏂囨湰鎺т欢鏄惁鍙缂栬緫锛岄粯璁ゅ 间负 False鍙紪杈锛屽綋璁剧疆涓篢 rue 镞讹紝鏂囨湰鎺т欢鐩稿綋浜庢爣绛炬带浠剁殑浣灭敤銆娉ㄦ剰锛歀 ocked 涓嶦 nabled 镄勫尯鍒7鏂囨湰鍐呭杩涜阃夋嫨鎿崭綔镄勪笁涓睘镐SelStart 阃夊畾镄勬鏂囧紑濮嬩綅缃SelLength 阃夊畾镄勬鏂囬昵搴SelText 阃夊畾镄勬鏂囧唴瀹杩涓睘镐т簰鐩稿叧鑱渚嫔璁剧疆 SelStart 銆丼 elLength 鍚庯紝 SelText 镊姩瀛樻斁镌囧畾镄勬枃链娉ㄦ剰锛氩睘镐х獥鍙ｄ腑娌℃湁杩欎笁涓睘镐э紝鍙兘鍦ㄧ▼搴忎唬镰佷腑浣跨敤銆6.鏂囨湰妗嗙殑浜嬩欢锛1 Change 浜嬩欢锛氩綋 Text 灞炴у煎彂鐢熸敼鍙樻椂寮曞彂璇ヤ簨浠2 KeyPress 浜嬩欢锛氭寜涓嫔苟涓旈喷鏀鹃敭鐩树笂镄勪竴涓敭镞讹紝寮曞彂铹偣镓鍦ㄦ带浠剁殑 KeyPress 浜嬩欢锛屾墍镌夐敭镄勫煎瓨鏀惧湪鍙傛暟KeyAscii 涓效锲炶溅镄勫垽鏂 KeyAscii137.鏂囨湰妗嗘渶链夌敤镄勬柟娉曟槸 SetFocus 锛屾妸鍏夋爣绉诲埌镌囧畾镄勬枃链涓8.锻戒护镌夐挳 Picture 灞炴э细镌夐挳鍙樉绀哄浘鐗囨枃浠 .bmp 鍜Ico锛屽綋Style 涓镞舵湁鏁堛10. 鍚姩绐椾綋镞跺皢锻戒护镌夐挳瀹氢綅鍦ㄧ獥浣扑腑澶殑浠ｇ爜 Private Sub Form_Load Command1.Left Form1.ScaleWidth / 2 - Command1.Width / 2 Command1.Top Form1.ScaleHeight / 2 - Command1.Height / 2 End Sub11 锛巚 b 锲剧墖鏂囦欢鍦C:Program FilesMicrosoft Visual StudioCommonGraphics鏂囦欢澶广 瀹夎 VB 镞跺彲阃夋嫨鏄惁瀹夎杩欎簺锲剧墖鏂囦欢銆涔犻涓1. 鍚堟硶甯搁噺锛1 Double2 阌栾3 Double4 Double5 阌栾6 Integer7 String8 String9 Date10 Double11 阌栾锛堟眽瀛楀瓧绗级12Integer鍏繘鍒13 阌栾锛埚叓杩涘埗镞犳暟镰锛14 Integer15 Boolean16 阌栾17 阌栾锛埚崄鍏繘鍒舵棤鏁扮爜 g 锛18 Single璇存槑锛氭诞镣瑰瀷鍙橀噺榛樿涓箧 ouble 绫诲瀷钥岄潪 Single 銆2. 鍚堟硶鍙橀噺鍚嶏细1 鈭2 鈭3 璇细鏁板瓧寮澶4 璇细鍚┖镙5 璇细鍏抽敭瀛6 鈭7 璇细鍏抽敭瀛8 璇细链夋嫭鍙9 鈭10 鈭11 鈭12 鈭氾纸姹夊瓧瀛楃鍙綔涓哄彉阅忓悕锛屼絾涓嶅父鐢紝涓旀鍚岖О鏄撹瑙ｏ级鍙橀噺锻藉悕瑙勫垯瑙丳.41-42 銆瀛楁瘝锛堟眽瀛楋级寮澶达紝瀛楁瘝锛堟眽瀛楋级銆佹暟瀛椼佷笅鍒掔嚎缁勬垚锛岄昵搴负 1-255 涓瓧绗绂鍏抽敭瀛椾笉鍙綔涓哄彉阅忓悕锛屼絾鍙湪鍙橀噺鍚崭腑宓屽叆鍏抽敭瀛楋绂涓嶅尯鍒嗗ぇ灏忓启銆甯搁噺銆佹暟缁勩佺被鍨嬨佸嚱鏁般佽绷绋嬨佸璞〃懡鍚嶈鍒欎笌姝ょ浉鍚屻效父阅忓悕阃氩父鍏ㄧ敤澶у启銆3. 鍐橵 B 琛ㄨ揪寮1 Absx y z 52 1 x y 63 10 x Sqr3 y / x y4 -b Sqrb 2 - 4 a c / 2 a5 1 / 1 / r1 1 / r2 1 / r36 Sin45 3.14159 / 180 Exp10 Log10 / Sqrx y 14. 镙规嵁鏉′欢鍐栾〃杈惧纺1 闅忔満浜х敓澶у启瀛楁瘝 ChrIntRnd AscquotLquot - AscquotCquot 1 AscquotCquot2 100200鍐呯殑闅忔満鏁 IntRnd 101 1003 镣xy浣崭簬绗竴鎴栫涓夎薄闄 x gt 0 And y gt 0 Or x lt 0 And y lt 0 鎴 x y gt 04 x 鏄鎴镄勬暣鏁板 x Mod 5 0 Or Intx / 7 x / 75 灏嗕袱浣嶆暣鏁皒镄勪釜浣崭笌鍗佷綅瀵规崲 x 10 x Mod 10 106 锲涜垗浜斿叆鍙栦袱浣嶅皬鏁 Roundx 27 瀛楃鍙橀噺 C 鏄瓧姣嶅瓧绗纸涓嶅尯鍒嗗ぇ灏忓启锛夆斺斿嗳纭湴璇存槸锛氩瓧绗彉阅廋镄勭涓涓瓧绗槸瀛楁瘝 C gt quotAquot And C lt quotZquot Or C gt quotaquot And C lt quotzquot鎴 UCaseC gt quotAquot And UCaseC lt quotZquot鎴 LCaseC gt quotaquot And LCaseC lt quotzquot8 瀛楃鍙橀噺 S 绗涓瓧绗捣鍙涓瓧绗 MidS 5 69 10 铌锛0 10 lt x And x lt 2010 x 锛寉镊冲皯链変竴涓皬浜巣 x lt z Or y lt z11x 锛寉閮藉ぇ浜巣 x gt z And y gt z5. 鍐栾〃杈惧纺镄勫1 188 钬斺旀敞镒忚繍绠楃殑浼桦厛绾ч『搴忥紝浠ュ强鏁撮櫎杩愮畻钬浅钬濈殑璁＄畻2 200100 钬斺璁＄畻 100 quot100quot镞讹紝鐢变簬涓や釜鎿崭綔鏁扮被鍨嬩笉鍚岋紝鍦ㄥ彲鑳界殑鎯呭喌涓奶嚜锷ㄩ噰鐢ㄧ簿搴缉楂樼殑绫诲瀷锛屽嵆鎶婂瓧绗瀷杞崲涓烘暟鍊煎瀷锛00 100 寰楀埌 200 锛涚劧鍚庤繘琛屽瓧绗覆杩炴帴杩愮畻 200 amp 100 锛屽啀镊姩灏嗕袱涓暟鍊艰浆鎹负瀛楃涓诧紝寰00100 銆3 68.56 钬斺斿湪锲涜垗浜斿叆鍑芥暟浜х敓涔嫔墠锛岃繖灏辨槸锲涜垗浜斿叆镄勮绠楁柟娉4 876554 钬斺斿厛杩涜瀛楃涓茬殑钬钬濊繍绠楋紝鍐嶈浆鎹二垚鏁板笺效湪鍙橀噺鍚嶅拰鍑芥暟鍚嶅悗鍙姞涓婄被鍨嬬锛屼互寮鸿皟鍏剁被鍨嬶紝浣嗕笉鏄繀椤荤殑銆5 2000-2-296 66 锛嶴 hell 鍑芥暟璋幂敤i Shellquotmspaint.exequot 1 鍚姩鐢诲浘i ShellquotC:Program FilesMicrosoft OfficeOFFICE11winword.exequot 1 鍚姩Word璇存槑锛气灭敾锲锯濇槸 Windows 链韩鎻愪緵镄勭▼搴忥紝鍙互鐪佺暐璺缎銆8. 绛旓细鍗旷簿搴诞镣瑰瀷绗锛棰樼瓟妗埚湪鏁欐潗涓垒銆涔犻锲绗锛锛锛棰樼瓟妗埚湪鏁欐潗涓垒銆2. 璧嫔艰鍙ョ殑阌栾锛锛0x 涓嶈兘锅氩彉阅忓悕銆 涓婃満楠岃愈缁撴灉锛歏 B 灏0 璇嗗埆涓鸿鍙凤紝 x Sinx y 鏄负鍙橀噺 x璧嫔笺傛晠镞犺娉曢敊璇锛锛塖 qr 鍑芥暟镄勫弬鏁颁负璐熸暟銆 涓婃満楠岃愈缁撴灉锛气沧棤鏁堢殑杩囩▼璋幂敤鎴栧弬鏁扳锛锛夎祴鍊煎佛宸竟涓嶆槸鍙橀噺鍚嶃 涓婃満楠岃愈缁撴灉锛气灭己灏戝瓙绋嫔簭銆佸嚱鏁版垨灞炴р锛锛夐櫎鏁颁负 0 涓婃満楠岃愈缁撴灉锛气沧孩鍑衡濄4. 绛旀鐣璇存槑锛氩皬鏁颁綅鍙互浣跨敤锲涜垗浜斿叆鍑芥暟 Round 鎴栬緭鍑烘牸寮忓嚱鏁癋ormat 銆备緥濡俣 oundx 2鍜孎 ormatx 钬.00 钬鍧囧彲浣跨粨鏋滃彧淇濈暀涓や綅灏忔暟銆备絾濡傛灉锲涜垗浜斿叆鍚庤杩涜鏁板 艰繍绠楋紝鍒欎娇鐢≥ound 鍑芥暟锛屼緥濡俩Roundx2Roundy2銆傝孎 ormat 鍑芥暟阃氩父鍙敤浜庤緭鍑烘牸寮忚缃6 锛庢寚鍑洪敊璇锛锛夆溾墺钬濆簲鏀逛负钬钬濓紝鍓嶈呮槸涓枃瀛楃锛屼笉鍏锋湁杩愮畻锷熻兘銆锛锛夆0ltxlt20 钬濆簲鏀逛负钬0ltx And xlt20 钬濓紝鍚垯杩愯缁撴灉阌栾銆7 锛庡启鏉′欢璇彞锛锛Dim c As Stringc InputBoxquotcquotIf Midc 3 1 quotCquot Then MsgBox quotYesquotElse MsgBox quotNoquotEnd If锛锛 浣跨敤 If 璇彞Dim x As Single y As Singlex ValInputBoxquotxquotIf x gt 20 Then y x 2 3 x 2ElseIf x gt 10 Then y Sqr3 x - 2ElseIf x gt 0 Then y 1 / x AbsxEnd IfPrint quotyquot y 浣跨敤 Select Case 璇彞Dim x As Single y As Singlex ValInputBoxquotxquotSelect Case x Case Is gt 20 y x 2 3 x 2 Case Is gt 10 y Sqr3 x - 2 Case Is gt 0 y 1 / x AbsxEnd SelectPrint quotyquot y锛锛 浣跨敤 If 璇彞Dim x As Single y As Single z As Single Max As Singlex ValInputBoxquotxquoty ValInputBoxquotyquotz ValInputBoxquotzquotMax xIf y gt Max Then Max yIf z gt Max Then Max zPrint quotMaxquot Max 浣跨敤 IIF 鍑芥暟x ValInputBoxquotxquoty ValInputBoxquotyquotz ValInputBoxquotzquotMax IIfx gt y x yMax IIfz gt Max z MaxPrint quotMaxquot Max9. 璁＄畻寰幆娆℃暟锛锛6锛锛9锛锛锛锛夋寰幆鐩磋呖婧一嚭10. 40 鍙疯鍙ユ墽琛4 娆★绂绗0 鍙疯鍙ユ墽琛2 娆★绂 镓ц绗0 鍙疯鍙ヨ緭鍑虹殑缁撴灉鏄细 13 锛锛璇存槑锛氲绋嫔簭涓哄祵濂楀惊鐜紝鍏朵腑澶栧惊鐜敱 j 鍊煎彉鍖栵纸 1 锛锛锛0锛夋带鍒舵墽琛娆★紝褰搄鍊间负 13 镞剁粨鏉熷惊鐜绂鍐呭惊鐜敱 k 鍊煎彉鍖栵纸 6锛锛锛夋带鍒舵墽琛娆★紝褰构鍊间负 0 镞剁粨鏉熷惊鐜傜 40 琛屾槸澶栧惊鐜殑寰幆浣掳紝鏁呮墽琛娆★绂绗0 琛屾槸鍐呭惊鐜殑寰幆浣掳紝鏁呮墽琛312娆°11. 鍙互瀹氢竴涓缉澶х殑寰幆娆℃暟锛屽湪寰幆浣扑腑镙规嵁鏉′欢鐢¨xitFor 阃鍑恒 浣呜繖绉嶆儏鍐甸氩父鐢―o While 寰幆鎺у埗銆12. 缂栫▼锛埚苟闱炲敮涓姝ｇ‘绛旀锛锛锛Dim i As Integer s As IntegerFor i 1 To 10 s s i 1 2 i 1Next iPrint quotsquot s锛锛Dim i As Integer n3 As Integer n7 As IntegerFor i 1 To 100 If i Mod 3 0 Then n3 n3 1 If Inti / 7 i / 7 Then n7 n7 1Next iPrint quot1-100 涓镄勫嶆暟链 n3 quot涓Print quot1-100 涓镄勫嶆暟链 n7 quot涓锛锛Dim s1 As String s2 As String i As Integers1 InputBoxquotInput Stringquots2 quotquotFor i 1 To Lens1 s2 Mids1 i 1 s2Next iPrint quot铡熷簭锛 s1Print quot鍙嶅簭锛 s2鎴For i Lens1 To 1 Step -1 s2 s2 Mids1 i 1Next i13. 杈揿嚭瀛楃涓测0100 钬濄傝绋嫔簭锷熻兘鏄皢鍗佽繘鍒舵暟杞寲涓轰簩杩涘埗銆璇存槑锛氲鐞呜В璇ョ▼搴忛渶瑕佷简瑙ｆ暟鍒惰浆鎹三殑璁＄畻鏂规硶锛堟湁鍏磋叮钥呭弬鐪嬬栌搴栌绉戚 ttp://baike.baidu.com/view/1426817.htm 锛夈8 鏄瓧绗0quot镄凙 SCII 镰并14. 杩愯镞惰緭鍑 22 484 璇ョ▼搴忓姛鑳芥槸姹倄鍜寉链澶у叕绾暟鍜屾渶灏忓叕鍊嶆暟銆璇存槑锛氭绠楁硶绉颁负钬滆缑杞浉鍑忔硶钬濄效彲瀵圭収渚.17 镄勮缑杞浉闄わ纸杈楄浆姹备捆锛夋硶銆15 锛岳 50 锛00闂寸殑 20 涓殢链烘暟锛屾眰链澶у笺佹渶灏忓笺佸钩鍧囧笺Dim x As Integer sum As Integer aver As SingleDim n i max minRandomizemax 50: min 100: n 20For i 1 To n x IntRnd 51 50 List1.AddItem x sum sum x If x gt max Then max x If x lt min Then min xNext iaver sum / nPrint quot链澶у碱细quot max quot链灏忓碱细quot min quot骞冲潎鍊碱细quot aver涔犻浜1. 镌囧畾鏁扮粍镄勯粯璁や笅鐣 Option Base 12 锛庡悎鐞嗙殑鏁扮粍澹版槑锛锛夐敊銆效畾涔夋暟缁勪笉鍙敤鍙橀噺锛堟暀鏉9 椤碉级銆锛锛夋纭傝鏁扮粍涓嬫爣涓-11 銆锛锛夐敊銆俈 B 涓暟缁勪笅镙囩敤鍦嗘嫭鍙枫锛锛夋纭备笁缁存暟缁勪笁涓笅镙囧垎鍒负 0-1 锛-1 锛-2 锛屽睿 12 涓厓绱犮锛锛夐敊璇傞潪锷ㄦ佹暟缁勶紝涓嶅彲阅嶅畾涔夈锛锛夐敊璇效姩镐佹暟缁勯吨瀹氢箟镞朵笉鍙敼鍙樻暟鎹被鍨嬨 锛锛夋纭备簩缁存暟缁勪袱涓笅镙囧垎鍒负 0-2 锛-3 锛屽睿 12 涓厓绱犮锛锛夎娉曢敊璇紝浜岀淮鏁扮粍瀹氢箟涓纺鍐欓楀佛钬斺斿彲鑳芥槸鍗板埛阌栾锛屽姞涓婃阃楀佛鍒欐纭3 锛庡綋寮旷敤鏁扮粍鍏幂礌镞朵笅镙囧煎皬浜庡畾涔夌殑链灏忎笅镙囷紝鎴栧ぇ浜庢渶澶т笅镙囨椂锛屼细鍙戠敓钬滀笅镙囱秺鐣屸濋敊璇4 锛庢暟缁勫悕锛歛 锛涙暟缁勭被鍨嬶细 Single 锛埚崟绮惧害娴偣鍨嬶级锛涚淮鏁帮细浜岀淮锛鍚勭淮镄勪笂涓嬬晫锛氱涓缁翠笅鐣岋纸链灏忎笅镙囷级涓 -1 锛屼笂鐣岋纸链澶т笅镙囷级涓锛绗簩缁翠笅鐣岋纸链灏忎笅镙囷级涓0 锛屼笂鐣岋纸链澶т笅镙囷级涓锛鏁扮粍镄勫ぇ灏忥细 4 琛鍒楀睿 16 涓厓绱浠ョ烦阒电殑镙煎纺杈揿嚭浜岀淮鏁扮粍锛For i -1 To 2 For j 0 To 3 Print ai j Next j PrintNext i鎴栧启鎴愭洿锷犻氱敤镄勪唬镰佸舰寮忥细For i LBounda 1 To UBounda 1 For j LBounda 2 To UBounda 2 Print Tabj 8 ai j Next j PrintNext i6 锛庝竴缁村瓧绗暟缁Dim a1 To 20 As StringPrivate Sub Command1_Click 1闅忔満浜х敓瀛楃涓 Dim i As Integer j As Integer n As Integer c As String 1 Randomize For i 1 To 20 ai quotquot 灏嗙 i 涓厓绱犳竻绌 n IntRnd 10 1 浜х敓110镄勯殢链烘暟 For j 1 To n ai涓湁 n 涓瓧绗 c ChrIntRnd 26 97 闅忔満浜х敓瀛楁瘝 97 鏄瓧姣峚镄凙 SCII镰 ai ai c Next j Next iEnd SubPrivate Sub Command2_Click 2杈揿嚭瀛楃涓 Dim i As Integer For i 1 To 20 Print Tabi - 1 Mod 5 11 ai If i Mod 5 0 Then Print Next iEnd SubPrivate Sub Command3_Click 3链闀跨殑瀛楃涓 Dim i As Integer imax As Integer imax 1 For i 2 To 20 If Lenai gt Lenaimax Then imax i End If Next i Print quot链闀跨殑瀛楃涓诧细quot aimaxEnd Sub绗锛棰樼瓟妗埚湪鏁欐潗涓垒銆绗棰樷滆嚜瀹氢箟鍙橀噺钬濆惈涔変笉鏄庯紝鏆傛椂镞犳硶锲炵瓟銆绗锛0 棰 鏆傜暐涔犻鍏绗锛锛-8 棰樼瓟妗埚彲鍦ㄦ暀鏉愪腑镓惧埌銆3 锛庢寚鍑鸿绷绋奶鏄庝腑镄勯敊璇锛锛塖 ub 瀛愯绷绋嬩笉搴旇瀹氢箟绫诲瀷锛锛夊嚱鏁颁笌褰一纺鍙傛暟涓嶅簲璇ュ悓鍚锛锛夋暟缁勪綔涓哄舰寮忓弬鏁版椂锛屽簲浣跨敤浼犲湴鍧 鏂瑰纺锛屼笉鍙娇鐢ㄤ紶鍊碱纸 ByVal 锛锛锛夊舰寮忓弬鏁板簲璇ユ槸鍙橀噺鎴栨暟缁勫悕锛屼笉鍙互鏄竴涓暟缁勫厓绱4 锛庢寚鍑鸿皟鐢ㄨ绷绋奶鍙ョ殑阌栾锛锛夋棤璇硶阌栾锛屼絾锲犲舰鍙俿 um 镓瀵瑰簲镄勫疄鍙傛槸甯搁噺 3 锛屾晠璁＄畻缁撴灉镞犳硶浼犻掔粰涓昏皟绋嫔簭銆锛锛夊疄鍙效彉阅廲涓庡舰鍙俿 um 镄勭被鍨嬩笉涓镊淬锛锛夌被浼间簬锛锛夛紝褰一弬 sum 镓瀵瑰簲镄勫疄鍙傛槸琛ㄨ揪寮廰b 锛屾晠璁＄畻缁撴灉镞犳硶浼犻掔粰涓昏皟绋嫔簭銆锛锛夌被浼间簬锛锛夊拰锛锛夛紝褰一弬 sum 镓瀵瑰簲镄勫疄鍙傛槸琛ㄨ揪寮厂 qrc锛屾晠璁＄畻缁撴灉镞犳硶浼犻掔粰涓昏皟绋嫔簭銆效彟澶杝 rqa瀛桦湪璇硶阌栾锛堟嫾鍐欓敊锛夈锛锛変笌锛锛夌浉鍚岋紝瀹炲弬 c 涓庡舰鍙俿 um 镄勭被鍨嬩笉涓镊淬5 锛庤凯浠ｆ硶姹效钩鏂规牴锛锛夎嚜瀹氢箟鍑芥暟镄勫畾涔夊强璋幂敤Function FSqr1a As Single As Single Dim x0 As Single x As Single x a Do x0 x x x0 a / x0 / 2 Loop While Absx - x0 gt 0.00001 FSqr1 xEnd FunctionPrivate Sub Command1_Click Dim x y x ValInputBoxquotxquot If x gt 0 Then .