{"id":7274,"date":"2023-11-19T19:38:45","date_gmt":"2023-11-19T11:38:45","guid":{"rendered":"http:\/\/www.aiersheng.cc\/?p=7274"},"modified":"2024-01-02T10:53:35","modified_gmt":"2024-01-02T02:53:35","slug":"vb%e7%ac%94%e8%ae%b0","status":"publish","type":"post","link":"https:\/\/www.aiersheng.cc\/?p=7274","title":{"rendered":"VB\u7b14\u8bb0"},"content":{"rendered":"<h1>VB\u7b14\u8bb0<\/h1>\n<p>\u25b2 VB\u7a0b\u5e8f\u8bbe\u8ba1\u6b65\u9aa4\uff1a<\/p>\n<p>\u00a0\u00a0\u00a0\u00a01 \u65b0\u5efa\u5de5\u7a0b<\/p>\n<p>2\u00a0\u8bbe\u8ba1\u754c\u9762<\/p>\n<p>3\u00a0\u8bbe\u7f6e\u5c5e\u6027<\/p>\n<p>4\u7f16\u5199\u4ee3\u7801<\/p>\n<p>5\u00a0\u8fd0\u884c\u8c03\u8bd5<\/p>\n<p>6\u00a0\u4fdd\u5b58\u3001\u751f\u6210<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 VB\u5de5\u7a0b\u7684\u76f8\u5173\u6587\u4ef6<\/p>\n<p>\u00a0\u00a0.frm \u00a0\u00a0\u00a0\u7a97\u4f53\u6587\u4ef6<\/p>\n<p>\u00a0\u00a0.vbp \u00a0\u00a0\u00a0\u5de5\u7a0b\u6587\u4ef6<\/p>\n<p>.vbw \u00a0\u00a0\u00a0\u5de5\u4f5c\u533a\u6587\u4ef6<\/p>\n<p>\u00a0\u00a0.frx \u00a0\u00a0\u00a0\u00a0\u6570\u636e\u6587\u4ef6<\/p>\n<p>\u00a0\u00a0.bas \u00a0\u00a0\u00a0\u00a0\u6807\u51c6\u6a21\u5757\u6587\u4ef6<\/p>\n<p>\u00a0\u00a0.cls \u00a0\u00a0\u00a0\u00a0\u7c7b\u6a21\u5757\u6587\u4ef6<\/p>\n<p>\u00a0\u00a0.vbg \u00a0\u00a0\u00a0\u5de5\u7a0b\u7ec4\u6587\u4ef6<\/p>\n<p>\u00a0\u00a0.res \u00a0\u00a0\u00a0\u8d44\u6e90\u6587\u4ef6<\/p>\n<p>\u203b\u6ce8\u610f\uff1a\u4e00\u4e2aVB\u5de5\u7a0b\u5fc5\u987b\u5305\u542b\u7a97\u4f53\u6587\u4ef6(.frm) \u548c\u5de5\u7a0b\u6587\u4ef6(.vbp)\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u5982\u4f55\u5c06VB\u7a0b\u5e8f\u4fdd\u5b58\u5230\u53e6\u4e00\u4e2a\u4f4d\u7f6e<\/p>\n<p>\u00a0\u00a01\u3001*.frm\u53e6\u5b58\u4e3a\uff08\u53e6\u5b58\u7a97\u4f53\u6587\u4ef6\uff09<\/p>\n<p>\u00a0\u00a02\u3001\u6587\u4ef6\u2192\u5de5\u7a0b\u53e6\u5b58\u4e3a\uff08\u53e6\u5b58\u5de5\u7a0b\u6587\u4ef6\uff09<\/p>\n<p>\u203b\u6ce8\u610f\uff1a\u5fc5\u987b\u5148\u53e6\u5b58\u7a97\u4f53\u6587\u4ef6\u518d\u53e6\u5b58\u5de5\u7a0b\u6587\u4ef6\uff0c\u5426\u5219\u4fdd\u5b58\u540e\u6253\u5f00vbp\u5de5\u7a0b\u6587\u4ef6\u4f1a\u63d0\u793a\u201c\u627e\u4e0d\u5230\u8def\u5f84\u2026\u2026\u201d\u3002<\/p>\n<p>(\u5982\u679c\u62a5\u201c\u627e\u4e0d\u5230\u8def\u5f84\u2026\u2026\u201d\u9519\u8bef\uff0c\u53ef\u4ee5\u7528\u8bb0\u4e8b\u672c\u6253\u5f00vbp\u6587\u4ef6\uff0c\u5c06\u7b2c\u4e8c\u884c\u201cForm=\u201d\u540e\u9762\u7684\u8def\u5f84\u90e8\u5206\u53bb\u6389\u53ea\u7559\u6587\u4ef6\u540dForm=Form1.frm\u5c31\u53ef\u4ee5\u89e3\u51b3)<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u5982\u4f55\u6dfb\u52a0\u7a97\u4f53<\/p>\n<p>\u00a0\u00a0\uff08\u5de5\u7a0b\u8d44\u6e90\u7ba1\u7406\u5668\u4e2d\uff09\u53f3\u952e\u5355\u51fb\u5de5\u7a0b\u540d\u2192\u6dfb\u52a0\u2192\u6dfb\u52a0\u7a97\u4f53<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u5982\u4f55\u8bbe\u7f6e\u542f\u52a8\u5bf9\u8c61<\/p>\n<p>\u00a0\u00a0\u53f3\u952e\u5355\u51fb\u5de5\u7a0b\u540d\u2192\u5de5\u7a0b\u5c5e\u6027\u2192\u901a\u7528\u2192\u542f\u52a8\u5bf9\u8c61\u2192\u9009\u62e9\u542f\u52a8\u7a97\u4f53<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u7a97\u4f53\uff08Form\uff09\u7684\u5e38\u7528\u5c5e\u6027\u3001\u4e8b\u4ef6\u3001\u65b9\u6cd5<\/p>\n<p>&nbsp;<\/p>\n<p>1\u5e38\u7528\u5c5e\u6027<\/p>\n<p>Name \u00a0\u00a0\u00a0\u00a0 \u540d\u79f0<\/p>\n<p>BorderStyle \u00a0 \u8fb9\u6846\u7c7b\u578b(Fixed dialog\u4e0eFixed single\u7684\u533a\u522b\u662f\u524d\u8005\u4e0d\u53ef\u4ee5\u8bbe\u7f6e\u6700\u5927\u6700\u5c0f\u5316\u6309\u94ae)<\/p>\n<p>Caption \u00a0 \u6807\u9898<\/p>\n<p>Icon \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u56fe\u6807<\/p>\n<p>Left \u00a0 \u5de6\u8fb9\u8ddd<\/p>\n<p>Top \u4e0a\u8fb9\u8ddd<\/p>\n<p>Width \u00a0 \u5bf9\u8c61\u5bbd\u5ea6(\u7a97\u4f53\u8fd8\u6709\u4e2aScaleWidth\u5c5e\u6027\uff0c\u5176\u503c\u4e0d\u542b\u8fb9\u6846\u5c3a\u5bf8)<\/p>\n<p>Height \u00a0 \u5bf9\u8c61\u9ad8\u5ea6(\u7a97\u4f53\u8fd8\u6709\u4e2aScale\u00a0Height\u5c5e\u6027\uff0c\u5176\u503c\u4e0d\u542b\u8fb9\u6846\u5c3a\u5bf8)<\/p>\n<p>AutoRedraw \u00a0\u00a0\u00a0\u00a0 \u81ea\u52a8\u91cd\u7ed8<\/p>\n<p>Enabled \u00a0 \u5bf9\u8c61\u662f\u5426\u53ef\u7528 \uff08True \u662fFalse \u5426\uff09<\/p>\n<p>Visible \u00a0 \u63a7\u4ef6\u662f\u5426\u53ef\u89c1<\/p>\n<p>Picture \u00a0 \u56fe\u7247\u5c5e\u6027<\/p>\n<p>Font \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u5b57\u4f53 \u00a0<\/p>\n<p>FontName \u00a0\u00a0\u00a0 \u540d\u79f0<\/p>\n<p>FontSize \u00a0\u00a0\u00a0 \u5927\u5c0f<\/p>\n<p>FontBold \u00a0\u00a0\u00a0 \u52a0\u7c97<\/p>\n<p>FontItalic \u00a0\u00a0 \u503e\u659c<\/p>\n<p>FontStrikethru \u00a0\u00a0 \u5220\u9664\u7ebf<\/p>\n<p>FontUnderline \u00a0\u00a0 \u4e0b\u5212\u7ebf<\/p>\n<p>ForeColor \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u524d\u666f\u8272<\/p>\n<p>BackColor \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u80cc\u666f\u8272<\/p>\n<p>MaxButton \u662f\u5426\u663e\u793a\u6700\u5927\u5316\u6309\u94ae<\/p>\n<p>MinButton \u662f\u5426\u663e\u793a\u6700\u5c0f\u5316\u6309\u94ae<\/p>\n<p>WindowState \u7a97\u53e3\u72b6\u6001 \u00a00\uff1a\u6b63\u5e38 1\uff1a\u6700\u5c0f\u5316 2\uff1a\u6700\u5927\u5316<\/p>\n<p>&nbsp;<\/p>\n<p>\u203b\u6ce8\u610f\uff1aName\u5c5e\u6027\u53ea\u80fd\u901a\u8fc7\u5c5e\u6027\u7a97\u53e3\u4fee\u6539\uff0c\u4e0d\u80fd\u5728\u7a0b\u5e8f\u8fd0\u884c\u65f6\u901a\u8fc7\u4ee3\u7801\u4fee\u6539\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>2\u5e38\u7528\u4e8b\u4ef6\uff08\u9009\u62e9\u65b9\u6cd5\uff1a\u5728\u4ee3\u7801\u7a97\u53e3\u5de6\u8fb9\u4e0b\u62c9\u5217\u8868\u4e2d\u9009\u62e9\u8981\u64cd\u4f5c\u7684\u5bf9\u8c61\uff0c\u53f3\u8fb9\u4e0b\u62c9\u5217\u8868\u4e2d\u9009\u62e9\u76f8\u5e94\u7684\u4e8b\u4ef6\uff09<\/p>\n<p>Load \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u52a0\u8f7d(\u9ed8\u8ba4)<\/p>\n<p>Activate \u6fc0\u6d3b(\u6807\u5fd7\uff1a\u7a97\u4f53\u53ef\u89c1)<\/p>\n<p>ULoad \u00a0\u00a0\u00a0\u00a0\u5378\u8f7d<\/p>\n<p>MouseDown \u00a0\u00a0\u00a0\u00a0\u9f20\u6807\u6309\u4e0b(Button\u53c2\u6570\uff1a\u4e09\u952e\u9f20\u6807\uff1a0\u5de6\u952e 1\u53f3\u952e 2\u4e2d\u5efa \u4e24\u5065\u9f20\u6807\uff1a1\u5de6\u952e2 \u53f3\u952e)<\/p>\n<p>MouseUp \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u677e\u5f00\u9f20\u6807<\/p>\n<p>Click \u00a0\u00a0\u00a0\u00a0\u9f20\u6807\u5355\u51fb<\/p>\n<p>DblClick \u9f20\u6807\u53cc\u51fb<\/p>\n<p>GotFocus \u83b7\u5f97\u7126\u70b9<\/p>\n<p>LostFocus \u5931\u53bb\u7126\u70b9<\/p>\n<p>MouseMove \u00a0\u00a0\u00a0\u00a0\u9f20\u6807\u79fb\u52a8(\u53c2\u6570X\u3001Y\u8fd4\u56de\u9f20\u6807\u5750\u6807)<\/p>\n<p>KeyDown \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u952e\u76d8\u5065\u6309\u4e0b(KeyCode\u53c2\u6570\u8fd4\u56de\u6309\u952e\u626b\u63cf\u7801\uff0c\u4e0d\u533a\u5206\u4e0a\u4e0b\u6863(\u6709\u4e0a\u4e0b\u6863\u7684\u7edf\u4e00\u8fd4\u56de\u4e0a\u6863\u5065\u5b57\u7b26\u626b\u63cf\u7801;\u00a0Shift\u53c2\u6570\u8fd4\u56de\u503c\uff1a1\u4ee3\u8868\u6309\u4e0bshift\u952e\uff0c2\u4ee3\u8868\u6309\u4e0b ctrl\u952e\uff0c4\u4ee3\u8868\u6309\u4e0balt\u952e\uff0c7\u4ee3\u8868\u540c\u65f6\u6309\u4e0b\u4e86\u4e09\u952e))<\/p>\n<p>KeyUp \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u952e\u76d8\u5065\u5f39\u8d77<\/p>\n<p>KeyPress \u6309\u952e\u65f6\u89e6\u53d1(KeyAscii\u53c2\u6570\u8fd4\u56de\u6240\u6309\u5065\u7684ASCII\u7801\u503c\uff1b\u5982\u679c\u5728KeyPress\u4e8b\u4ef6\u8fc7\u7a0b\u4e2d\u6267\u884cKeyAscii = 0\u8bed\u53e5\uff0c\u5219\u963b\u6b62\u8f93\u5165\u6309\u952e\u5b57\u7b26)<\/p>\n<p>DragOver \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u5728\u7a97\u4f53\u5185\u7528\u9f20\u6807\u62d6\u52a8\u5176\u4ed6\u63a7\u4ef6<\/p>\n<p>DragDrop \u5728\u7a97\u4f53\u5185\u7528\u9f20\u6807\u62d6\u52a8\u5176\u4ed6\u63a7\u4ef6\u540e\u91ca\u653e\u9f20\u6807<\/p>\n<p>&nbsp;<\/p>\n<p>\u203b\u6ce8\u610f\uff1a<\/p>\n<p>\u2460\u00a0\u9f20\u6807\u4e8b\u4ef6\u7684\u76f8\u5e94\u987a\u5e8f\uff1aMouseDown \u2192 MouseUp\u00a0\u2192 Click\u00a0\u2192 DblClick<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u6309\u952e\u4e8b\u4ef6\u7684\u76f8\u5e94\u987a\u5e8f\uff1aKeyDown \u2192 KeyPress\u00a0\u2192 KeyUp<\/p>\n<p>\u00a0\u00a0\u2461\u00a0Ctrl\u3001F1\u7b49\u975e\u5b57\u7b26\u5065\u53ea\u80fd\u901a\u8fc7KeyDown\u548cKeyUp\u4e8b\u4ef6\u6355\u83b7\u3002<\/p>\n<p>\u00a0\u00a0\u2462\u8981\u89e6\u53d1\u7a97\u4f53\u7684DragOver\u548cDragDrop\u4e8b\u4ef6\uff0c\u7a97\u4f53\u5185\u88ab\u62d6\u52a8\u7684\u63a7\u4ef6\u5176DragMode\u5c5e\u6027\u5fc5\u987b\u8bbe\u4e3a1(\u5373\u81ea\u52a8\u62d6\u52a8\u6a21\u5f0f)\uff0c\u6216\u8005\u5728\u5176MouseDown\u4e8b\u4ef6\u8fc7\u7a0b\u4e2d\u901a\u8fc7\u6267\u884cDrag\u65b9\u6cd5\u624b\u52a8\u542f\u52a8\u62d6\u52a8\uff0c\u5982\uff1aText1.Drag<\/p>\n<p>&nbsp;<\/p>\n<p>3\u5e38\u7528\u65b9\u6cd5<\/p>\n<p>Show \u663e\u793a<\/p>\n<p>Hide \u9690\u85cf<\/p>\n<p>Move \u79fb\u52a8\u63a7\u4ef6 \u00a0\u00a0\u00a0<\/p>\n<p>\u683c\u5f0f\uff1aObject.Move(Left As Single,[Top],[Width],[Height])<\/p>\n<p>\u00a0\u00a0\u4f8b\uff1a \u00a0Me.move \u00a06000,4000 \u00a0\u00a0\u00a0\u00a0&#8216;\u5c06\u7a97\u4f53\u79fb\u52a8\u5230\uff086000,4000\uff09\u70b9\u4f4d\u7f6e<\/p>\n<p>\u00a0\u00a0\u6ce8\uff1a\u5982\u679c\u7701\u7565Object(\u63a7\u4ef6\u540d\u79f0)\uff0c\u5219\u79fb\u52a8\u5f53\u524d\u5bf9\u8c61\u3002<\/p>\n<p>Print \u5728\u7a97\u4f53\u4e0a\u663e\u793a\u5b57\u7b26\u4e32\u548c\u8868\u8fbe\u5f0f\u7684\u503c<\/p>\n<p>Cls \u6e05\u9664Print\u65b9\u6cd5\u663e\u793a\u7684\u5185\u5bb9<\/p>\n<p>SetFocus \u8bbe\u7f6e\u7126\u70b9\uff08\u4f7f\u6210\u4e3a\u6d3b\u52a8\u7a97\u4f53)<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u6807\u7b7e(Lable)\u7684\u5e38\u7528\u5c5e\u6027\u3001\u4e8b\u4ef6\u3001\u65b9\u6cd5<\/p>\n<p>&nbsp;<\/p>\n<p>1\u5e38\u7528\u5c5e\u6027<\/p>\n<p>Caption \u6807\u9898<\/p>\n<p>Alignment \u00a0\u00a0\u00a0\u00a0 \u5bf9\u9f50\u65b9\u5f0f \uff080 \u5de6\u5bf9\u9f501 \u53f3\u5bf9\u9f502 \u4e2d\u95f4\u5bf9\u9f50\uff09<\/p>\n<p>AutoSize \u63a7\u4ef6\u5bf9\u8c61\u7684\u5927\u5c0f\u662f\u5426\u968f\u6807\u9898\u5185\u5bb9\u7684\u5927\u5c0f\u81ea\u52a8\u8c03\u6574<\/p>\n<p>BackStyle \u8bbe\u7f6e\u6807\u7b7e\u80cc\u666f\u662f\u5426\u900f\u660e: 0 \u900f\u660e1 \u4e0d\u900f\u660e<\/p>\n<p>BorderStyle \u00a0\u00a0\u00a0\u00a0\u00a0\u8fb9\u6846\u6837\u5f0f\uff1a0 \u65e0\u8fb9\u6846\u00a0\u00a01 \u56fa\u5b9a\u5355\u7ebf\u6846<\/p>\n<p>DragMode \u62d6\u52a8\u6a21\u5f0f \uff080 \u624b\u52a8 \u00a01 \u81ea\u52a8\uff09<\/p>\n<p>&nbsp;<\/p>\n<p>\u203b\u6ce8\u610f\uff1aBackStyle \u8bbe\u4e3a\u900f\u660e\u540eBackColor\u5c5e\u6027\u8bbe\u7f6e\u65e0\u6548\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>2 \u5e38\u7528\u4e8b\u4ef6<\/p>\n<p>Click \u00a0\u00a0\u00a0\u00a0\u9f20\u6807\u5355\u51fb(\u9ed8\u8ba4)<\/p>\n<p>DblClick \u9f20\u6807\u53cc\u51fb<\/p>\n<p>&nbsp;<\/p>\n<p>3 \u5e38\u7528\u65b9\u6cd5<\/p>\n<p>Drag \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u624b\u52a8\u62d6\u52a8<\/p>\n<p>\u4f8b\uff1aLabel1.Drag \u00a0\u00a01 \u2018\u5f00\u59cb\u62d6\u653e(1\u4e3aDrag\u65b9\u6cd5\u9ed8\u8ba4\u53c2\u6570\uff0c\u53ef\u7701\u7565)<\/p>\n<p>\u53c2\u6570\u8bf4\u660e\uff1a<\/p>\n<p>\u53c2\u6570\u5e38\u91cf \u503c \u542b\u4e49<\/p>\n<p>vbDragCancel 0 \u653e\u5f03\u62d6\u653e<\/p>\n<p>vbDragBeginDrag 1 \u5f00\u59cb\u62d6\u653e(\u9ed8\u8ba4)<\/p>\n<p>vbDragEndDrag 2 \u5b8c\u6210\u62d6\u653e<\/p>\n<p>&nbsp;<\/p>\n<p>\u203b\u6ce8\u610f\uff1a\u6807\u7b7e\u63a7\u4ef6\u4e0d\u80fd\u63a5\u6536\u7126\u70b9\uff0c\u56e0\u6b64\u5b83\u6ca1\u6709GotFocus\u3001LostFocus\u4e8b\u4ef6\u548cSetFocus\u65b9\u6cd5\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u6587\u672c\u6846(TextBox)\u7684\u5e38\u7528\u5c5e\u6027\u3001\u4e8b\u4ef6\u3001\u65b9\u6cd5<\/p>\n<p>&nbsp;<\/p>\n<p>1\u5e38\u7528\u5c5e\u6027<\/p>\n<p>Alignment \u5bf9\u9f50\u65b9\u5f0f \uff080 \u5de6\u5bf9\u9f501 \u53f3\u5bf9\u9f502 \u4e2d\u95f4\u5bf9\u9f50\uff09<\/p>\n<p>Locked \u662f\u5426\u5141\u8bb8\u7f16\u8f91\u3002\uff08\u8bbe\u4e3aFalse\u65f6\u80fd\u63a5\u6536\u7126\u70b9\u4f46\u662f\u4e0d\u80fd\u7f16\u8f91\uff09<\/p>\n<p>Text \u663e\u793a\u7684\u6587\u672c\u5185\u5bb9<\/p>\n<p>MaxLength \u00a0\u00a0 \u5141\u8bb8\u8f93\u5165\u7684\u6700\u5927\u5b57\u7b26\u6570(\u6700\u591a\u5141\u8bb8\u8f93\u516565535\u4e2a\u5b57\u7b26)<\/p>\n<p>MultiLine \u662f\u5426\u53ef\u4ee5\u8f93\u5165\u591a\u884c\u6587\u5b57\uff08\u82e5\u8be5\u5c5e\u6027\u4e3aFalse\u65f6,\u6587\u672c\u6846\u63a7\u4ef6\u5bf9\u8c61\u7684Alignment\u5c5e\u6027\u548cScrollBars\u5c5e\u6027\u65e0\u6548\uff09<\/p>\n<p>PasswordChar \u00a0\u00a0\u00a0\u8bbe\u7f6e\/\u8fd4\u56de\u63a7\u4ef6\u7684\u663e\u793a\u5b57\u7b26(\u5e38\u7528\u4e8e\u9690\u85cf\u5bc6\u7801)<\/p>\n<p>\u4f8b\uff1aText1.PasswordChar = &#8220;*&#8221; \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u5b57\u7b26\u4ee5&#8221;*&#8221;\u5f62\u5f0f\u663e\u793a<\/p>\n<p>Text1.PasswordChar = &#8220;&#8221; \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u53d6\u6d88\u9690\u85cf<\/p>\n<p>ScrollBars \u00a0\u00a0\u8bbe\u7f6e\u6eda\u52a8\u6761\u6a21\u5f0f\uff080 \u65e0\u6eda\u52a8\u67611 \u6c34\u5e73\u6eda\u52a8\u67612 \u5782\u76f4\u6eda\u52a8\u67613 \u6c34\u5e73\u548c\u5782\u76f4\u6eda\u52a8\u6761\uff09<\/p>\n<p>SelStart \u8bbe\u7f6e\u9009\u4e2d\u5b57\u7b26\u7684\u5f00\u59cb\u4f4d\u7f6e,\u7b2c\u4e00\u4e2a\u5b57\u7b26\u7684\u4f4d\u7f6e\u4e3a0\u3002<\/p>\n<p>SelLength \u8bbe\u7f6e\u9009\u62e9\u5b57\u7b26\u4e2a\u6570<\/p>\n<p>SelText \u8fd4\u56de\u9009\u4e2d\u6587\u672c<\/p>\n<p>&nbsp;<\/p>\n<p>\u203b\u6ce8\u610f\uff1a<\/p>\n<p>\u2460SelStart \u3001SelLength\u548cSelText\u53ea\u80fd\u901a\u8fc7\u7f16\u5199\u4ee3\u7801\u8bbe\u7f6e\u5c5e\u6027\u503c\u3002<br \/>\n\u2461\u901a\u8fc7\u8bbe\u7f6eSelStart\u3001SelLength\u6765\u9009\u4e2d\u6587\u672c\u65f6\uff0c\u6587\u672c\u6846\u5fc5\u987b\u83b7\u5f97\u7126\u70b9\u624d\u80fd\u663e\u793a\u9009\u4e2d\u6548\u679c\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>2\u5e38\u7528\u4e8b\u4ef6<\/p>\n<p>Change \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u5185\u5bb9\u6539\u53d8\u65f6\u89e6\u53d1(\u9ed8\u8ba4)<\/p>\n<p>Validate \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u6587\u672c\u6846\u5931\u53bb\u7126\u70b9\u524d\u89e6\u53d1<\/p>\n<p>KeyPress \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u7528\u6237\u6572\u51fb\u952e\u76d8\u65f6\u89e6\u53d1<\/p>\n<p>&nbsp;<\/p>\n<p>\u8bf4\u660e\uff1a<\/p>\n<p>(1) Validate\u4e8b\u4ef6\u65e9\u4e8eLostFocus\u4e8b\u4ef6\u89e6\u53d1\uff0c\u5e38\u7528\u4e8e\u6821\u9a8c\u8f93\u5165\u6570\u636e\u662f\u5426\u7b26\u5408\u8981\u6c42;(\u53c2\u89c1P65)\u3002\u53ea\u6709\u5728\u4e0b\u4e00\u4e2a\u5373\u5c06\u83b7\u5f97\u7126\u70b9\u7684\u63a7\u4ef6\u7684CausesValidation\u5c5e\u6027\u503c\u8bbe\u7f6e\u4e3aTrue\u65f6\uff0cValidate\u4e8b\u4ef6\u624d\u53d1\u751f\u3002<\/p>\n<p>(2)\u00a0\u5982\u679c\u5728KeyPress\u4e8b\u4ef6\u8fc7\u7a0b\u4e2d\u6267\u884cKeyAscii = 0\u8bed\u53e5\uff0c\u5219\u4f1a\u963b\u6b62\u8f93\u5165\u6309\u952e\u5b57\u7b26\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>3\u5e38\u7528\u65b9\u6cd5<\/p>\n<p>SetFocus \u83b7\u53d6\u8f93\u5165\u7126\u70b9<\/p>\n<p>4\u4e8b\u4ef6\u5e94\u7528\u4f8b\u5b50\uff1a<\/p>\n<p>(1)\u9650\u5236Text1\u6587\u672c\u6846\u5185\u5bb9\u53ea\u80fd\u662f\u6570\u5b57\u5b57\u7b26<\/p>\n<p>\u65b9\u6cd51\uff1aPrivate Sub Text1_Change()<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0For i = 1 To Len(Text1.Text)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0x = Asc(Mid(Text1.Text, i, 1))<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0If x &lt; 48 Or x &gt; 57 Then<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0MsgBox &#8220;\u8bf7\u8f93\u5165\u6570\u5b57&#8221;, , &#8220;\u8f93\u5165&#8221;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Text1.Text = &#8220;&#8221;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Text1.SetFocus<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Exit For<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0End If<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Next i<\/p>\n<p>End Sub<\/p>\n<p>\u65b9\u6cd52\uff1aPrivate Sub Text1_Change()<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0If Not IsNumeric(Text1.Text) Then<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0MsgBox &#8220;\u8bf7\u8f93\u5165\u6570\u5b57&#8221;, , &#8220;\u8f93\u5165&#8221;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Text1.Text = &#8220;&#8221;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Text1.SetFocus<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0End If<\/p>\n<p>End Sub<\/p>\n<p>(2)\u9650\u5236Text1\u6587\u672c\u6846\u53ea\u63a5\u6536\u6570\u5b57\u952e\u548c\u9000\u683c\u952e<\/p>\n<p>Private Sub Text1_KeyPress(KeyAscii As Integer)<\/p>\n<p>\u00a0\u00a0\u00a0 \u00a0If (KeyAscii &lt; 48 Or KeyAscii &gt; 57) And (KeyAscii &lt;&gt; 8) Then\u00a0\u00a0\u00a0\u00a0&#8216;\u9000\u683c\u952e\u7801\u503c\u4e3a8<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 KeyAscii = 0<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 End If<\/p>\n<p>End Sub<\/p>\n<p>(3)\u8bbe\u7f6e\u6587\u672c\u6846\u5185\u5bb9\u4e3a\u9009\u4e2d<\/p>\n<p>\u00a0Text1.SetFocus<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0Text1.SelStart = 0 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u8bbe\u7f6e\u9009\u4e2d\u5f00\u59cb\u4f4d\u7f6e<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0Text1.SelLength = Len(Text1.Text) \u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u6307\u5b9a\u9009\u4e2d\u957f\u5ea6<\/p>\n<p>\u203b\u8bf4\u660e\uff1a\u8bbe\u7f6eSelStart\u548cSelLength\u5c5e\u6027\u540e\uff0c\u00a0Text1.SelEext\u5c5e\u6027\u503c\u5373\u4e3a\u6587\u672c\u6846\u9009\u4e2d\u7684\u5b57\u7b26\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u6846\u67b6\u63a7\u4ef6(Frame)\u7684\u5e38\u7528\u5c5e\u6027\u3001\u4e8b\u4ef6\u3001\u65b9\u6cd5<\/p>\n<p>&nbsp;<\/p>\n<p>1 \u5e38\u7528\u5c5e\u6027<\/p>\n<p>Caption \u6807\u9898<\/p>\n<p>Enabled \u5bf9\u8c61\u662f\u5426\u53ef\u7528 \uff08True \u662fFalse \u5426\uff09<\/p>\n<p>Visible \u00a0\u63a7\u4ef6\u662f\u5426\u53ef\u89c1<\/p>\n<p>&nbsp;<\/p>\n<p>2 \u5e38\u7528\u4e8b\u4ef6<\/p>\n<p>DragOver \u5728\u6846\u67b6\u5185\u7528\u9f20\u6807\u62d6\u52a8\u5176\u4ed6\u63a7\u4ef6<\/p>\n<p>DragDrop \u5728\u6846\u67b6\u5185\u7528\u9f20\u6807\u62d6\u52a8\u5176\u4ed6\u63a7\u4ef6\u540e\u91ca\u653e\u9f20\u6807(\u9ed8\u8ba4)<\/p>\n<p>&nbsp;<\/p>\n<p>3 \u5e38\u7528\u65b9\u6cd5<\/p>\n<p>Move \u79fb\u52a8<\/p>\n<p>Drag \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u624b\u52a8\u62d6\u52a8<\/p>\n<p>&nbsp;<\/p>\n<p>\u203b\u6ce8\u610f\uff1a<\/p>\n<p>\u2460 \u5982\u679cEnagled \u4e3aFalse\uff0c\u5219\u6846\u67b6\u5185\u90e8\u7684\u6240\u6709\u63a7\u4ef6\u90fd\u4e0d\u53ef\u7528\u3002<br \/>\n\u2461\u00a0\u65e9\u4e8e\u6846\u67b6\u63a7\u4ef6\u521b\u5efa\u7684\u5176\u4ed6\u63a7\u4ef6\u5fc5\u987b\u901a\u8fc7\u526a\u5207\u3001\u7c98\u8d34\u7684\u65b9\u5f0f\u624d\u53ef\u4ee5\u653e\u5165\u5230\u6846\u67b6\u5185\u90e8\uff0c\u65e0\u6cd5\u76f4\u63a5\u62d6\u5165\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u547d\u4ee4\u6309\u94ae(CommandButton)\u7684\u5e38\u7528\u5c5e\u6027\u3001\u4e8b\u4ef6\u3001\u65b9\u6cd5<\/p>\n<p>&nbsp;<\/p>\n<p>1\u5e38\u7528\u5c5e\u6027<\/p>\n<p>Caption \u6807\u9898<\/p>\n<p>Style \u6837\u5f0f<\/p>\n<p>Picture \u80cc\u666f\u56fe\u6848<\/p>\n<p>Default \u8bbe\u5b9a\u662f\u5426\u4e3a\u9ed8\u8ba4\u7684\u786e\u5b9a\u6309\u94ae<\/p>\n<p>Cancel \u8bbe\u5b9a\u662f\u5426\u4e3a\u9ed8\u8ba4\u7684\u53d6\u6d88\u6309\u94ae<\/p>\n<p>ToolTipText \u00a0\u00a0\u00a0\u00a0\u00a0\u9f20\u6807\u60ac\u505c\u65f6\u7684\u63d0\u793a\u6587\u672c<\/p>\n<p>&nbsp;<\/p>\n<p>\u203b\u6ce8\u610f\uff1a<\/p>\n<p>\u2460 Style\u5c5e\u6027\u8bbe\u4e3aGraphical(\u56fe\u5f62)\u65f6\u901a\u8fc7Picture\u5c5e\u6027\u8bbe\u7f6e\u80cc\u666f\u8272\u624d\u6709\u6548\u3002<br \/>\n\u2461 Default\u5c5e\u6027\u503c\u4e3aTrue\u65f6\u7528\u6237\u6309\u4e0bEnter\u952e,\u5c31\u76f8\u5f53\u5355\u51fb\u8be5\u6309\u94ae\uff1bCancel\u5c5e\u6027\u503c\u4e3aTrue\u65f6\u6309\u4e0b\u201cEsc\u201d\u952e\u76f8\u5f53\u5355\u51fb\u8be5\u6309\u94ae\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>2\u5e38\u7528\u4e8b\u4ef6<\/p>\n<p>Click \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u5355\u51fb(\u9ed8\u8ba4)<\/p>\n<p>\u203b\u6ce8\u610f\uff1a\u547d\u4ee4\u6309\u94ae\u4e0d\u652f\u6301DblClic\u9f20\u6807\u53cc\u51fb\u4e8b\u4ef6\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>3 \u5e38\u7528\u65b9\u6cd5<\/p>\n<p>Drag \u624b\u52a8\u62d6\u52a8<\/p>\n<p>Move \u79fb\u52a8<\/p>\n<p>SetFocus \u8bbe\u7f6e\u7126\u70b9<\/p>\n<p>&nbsp;<\/p>\n<p>4\u8bbe\u7f6e\u6309\u94ae\u7684\u5feb\u6377\u952e(\u8fd0\u884c\u65f6\u6309Alt+\u8bbe\u5b9a\u7684\u5feb\u6377\u5b57\u6bcd)<\/p>\n<p>\u00a0\u00a0\u683c\u5f0f\uff1a\u9898 + &amp; + \u5feb\u6377\u5b57\u6bcd(\u4e00\u822c\u7528\u5927\u5199) \u00a0\u00a0\u00a0\u00a0<\/p>\n<p>\u00a0\u00a0\u4f8b\uff1a \u9000\u51fa&amp;E \u00a0\u00a0\u00a0\u00a0&#8216;\u6309\u5feb\u6377\u5efaAlt+E \u76f8\u5f53\u4e0e\u5355\u51fb\u201c\u9000\u51fa\u201d\u6309\u94ae<\/p>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u65f6\u949f\u63a7\u4ef6(Timer)\u7684\u5e38\u7528\u5c5e\u6027\u3001\u4e8b\u4ef6\u3001\u65b9\u6cd5<\/p>\n<p>&nbsp;<\/p>\n<p>1\u5e38\u7528\u5c5e\u6027<\/p>\n<p>Enabled \u00a0\u5bf9\u8c61\u662f\u5426\u53ef\u7528 \uff08True \u662fFalse \u5426\uff09<\/p>\n<p>Interval \u83b7\u5f97\u6216\u8bbe\u7f6e\u4e24\u6b21\u8c03\u7528Timer\u63a7\u4ef6\u7684Timer\u4e8b\u4ef6\u95f4\u9694\u7684\u6beb\u79d2\u6570\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>2\u5e38\u7528\u4e8b\u4ef6<\/p>\n<p>Timer \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u6309\u8bbe\u5b9a\u7684\u65f6\u95f4\u95f4\u9694\u81ea\u52a8\u89e6\u53d1\u7684Timer\u4e8b\u4ef6(\u9ed8\u8ba4)<\/p>\n<p>&nbsp;<\/p>\n<p>\u203b\u6ce8\u610f\uff1a\u65f6\u949f\u63a7\u4ef6\u6ca1\u6709\u9884\u5b9a\u4e49\u7684\u65b9\u6cd5\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u6c34\u5e73\u6eda\u52a8\u6761\u63a7\u4ef6(HScrollBar)\u548c\u5782\u76f4\u6eda\u52a8\u6761\u63a7\u4ef6(VScrollBar)\u7684\u5e38\u7528\u5c5e\u6027\u3001\u4e8b\u4ef6<\/p>\n<p>&nbsp;<\/p>\n<p>1\u5e38\u7528\u5c5e\u6027<\/p>\n<p>Value \u8bbe\u7f6e\u6216\u8fd4\u56de\u6ed1\u5757\u5f53\u524d\u4f4d\u7f6e\u503c<\/p>\n<p>Max \u00a0 \u5b9a\u4e49Value\u5c5e\u6027\u503c\u7684\u6700\u5927\u503c<\/p>\n<p>Min \u00a0 \u5b9a\u4e49Value\u5c5e\u6027\u503c\u7684\u6700\u5c0f\u503c<\/p>\n<p>LargeChange \u8bbe\u7f6e\u5355\u51fb\u6eda\u52a8\u6761\u4e2d\u95f4\u533a\u57df\u65f6\u6ed1\u5757\u79fb\u52a8\u7684\u8ddd\u79bb\uff08\u503c\uff09\u3002<\/p>\n<p>SmallChange \u8bbe\u7f6e\u5355\u51fb\u6eda\u52a8\u6761\u4e24\u7aef\u7bad\u5934\u65f6\u6ed1\u5757\u79fb\u52a8\u7684\u8ddd\u79bb\uff08\u503c\uff09\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>2\u5e38\u7528\u4e8b\u4ef6<\/p>\n<p>Change \u5f53Value\u503c\u53d1\u751f\u53d8\u5316\u65f6\u89e6\u53d1\u8be5\u4e8b\u4ef6(\u9ed8\u8ba4)<\/p>\n<p>Scroll \u62d6\u52a8\u6ed1\u5757\u65f6\u89e6\u53d1\u8be5\u4e8b\u4ef6<\/p>\n<p>&nbsp;<\/p>\n<p>3 \u5e38\u7528\u65b9\u6cd5<\/p>\n<p>Drag \u624b\u52a8\u62d6\u52a8<\/p>\n<p>Move \u79fb\u52a8<\/p>\n<p>SetFocus \u8bbe\u7f6e\u7126\u70b9<\/p>\n<p>&nbsp;<\/p>\n<p>\u203b\u6ce8\u610f\uff1a<\/p>\n<p>\u2460 \u5728\u62d6\u52a8\u6ed1\u5757\u91ca\u653e\u9f20\u6807\u3001\u5355\u51fb\u6ed1\u5757\u4e24\u4fa7\u533a\u57df\u3001\u5355\u51fb\u7bad\u5934\uff0c\u6216\u8005\u901a\u8fc7\u4ee3\u7801\u4fee\u6539\u4e86Value\u5c5e\u6027\u503c\uff0c\u5bfc\u81f4Value\u5c5e\u6027\u503c\u53d1\u751f\u53d8\u5316\uff0c\u90fd\u4f1a\u89e6\u53d1Change\u4e8b\u4ef6\u3002<\/p>\n<p>\u2461 \u5728\u62d6\u52a8\u6ed1\u5757\u65f6\uff0cValue\u5c5e\u6027\u503c\u4e0d\u4f1a\u53d1\u751f\u53d8\u5316\uff0c\u53ea\u6709\u5728\u62d6\u52a8\u540e\u91ca\u653e\u9f20\u6807\uff0c Value\u5c5e\u6027\u503c\u624d\u53d8\u5316\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u5355\u9009\u94ae\u63a7\u4ef6(OptionButton)\u7684\u5e38\u7528\u5c5e\u6027\u3001\u4e8b\u4ef6<\/p>\n<p>&nbsp;<\/p>\n<p>1\u5e38\u7528\u5c5e\u6027<\/p>\n<p>Style \u8bbe\u7f6e\u5bf9\u8c61\u7684\u5916\u89c2\u5f62\u5f0f \u00a0\u00a0\u00a00\uff1a\u6807\u51c6 \u00a0\u00a01\uff1a\u56fe\u5f62\u754c\u9762<\/p>\n<p>Value \u83b7\u5f97\u6216\u8bbe\u7f6e\u5355\u9009\u94ae\u5904\u5728\u4ec0\u4e48\u72b6\u6001\u3002 \u00a0\u00a0\u00a0False\uff1a \u672a\u9009\u4e2d \u00a0\u00a0\u00a0\u00a0True\uff1a\u9009\u4e2d<\/p>\n<p>&nbsp;<\/p>\n<p>2\u5e38\u7528\u4e8b\u4ef6<\/p>\n<p>Click \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u5355\u51fb(\u9ed8\u8ba4)<\/p>\n<p>&nbsp;<\/p>\n<p>3 \u5e38\u7528\u65b9\u6cd5<\/p>\n<p>Drag \u624b\u52a8\u62d6\u52a8<\/p>\n<p>Move \u79fb\u52a8<\/p>\n<p>SetFocus \u8bbe\u7f6e\u7126\u70b9 \u00a0(&#8216;\u5355\u9009\u6309\u94ae\u83b7\u5f97\u7126\u70b9\u7b49\u540c\u4e8e\u88ab\u9009\u4e2d)<\/p>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u590d\u9009\u6846\u63a7\u4ef6(CheckBox)\u7684\u5e38\u7528\u5c5e\u6027\u3001\u4e8b\u4ef6\u3001\u65b9\u6cd5<\/p>\n<p>&nbsp;<\/p>\n<p>1\u5e38\u7528\u5c5e\u6027<\/p>\n<p>Style \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u8bbe\u7f6e\u5bf9\u8c61\u7684\u5916\u89c2\u5f62\u5f0f \u00a0\u00a0\u00a00\uff1a\u6807\u51c6 \u00a0\u00a01\uff1a\u56fe\u5f62\u754c\u9762<\/p>\n<p>Value \u83b7\u5f97\u6216\u8bbe\u7f6e\u5355\u9009\u94ae\u5904\u5728\u4ec0\u4e48\u72b6\u6001\u3002 \u00a0\u00a0\u00a00\uff1a \u672a\u9009\u4e2d \u00a01\uff1a\u9009\u4e2d \u00a0\u00a02\uff1a \u9009\u4e2d\u5e76\u7f6e\u7070<\/p>\n<p>&nbsp;<\/p>\n<p>2\u5e38\u7528\u4e8b\u4ef6<\/p>\n<p>Click \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u5355\u51fb(\u9ed8\u8ba4)<\/p>\n<p>&nbsp;<\/p>\n<p>3 \u5e38\u7528\u65b9\u6cd5<\/p>\n<p>Drag \u624b\u52a8\u62d6\u52a8<\/p>\n<p>Move \u79fb\u52a8<\/p>\n<p>SetFocus \u8bbe\u7f6e\u7126\u70b9 (\u590d\u9009\u6846\u83b7\u5f97\u7126\u70b9\u5e76\u4e0d\u7b49\u540c\u4e8e\u88ab\u9009\u4e2d)<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u5217\u8868\u6846\u63a7\u4ef6(ListBox)\u3001\u7ec4\u5408\u6846\u63a7\u4ef6(ComboBox)\u7684\u5e38\u7528\u5c5e\u6027\u3001\u4e8b\u4ef6\u3001\u65b9\u6cd5<\/p>\n<p>&nbsp;<\/p>\n<p>1\u5e38\u7528\u5c5e\u6027<\/p>\n<p>List \u9879\u76ee\u5217\u8868(\u6570\u7ec4)<\/p>\n<p>ListCount \u8fd4\u56de\u5217\u8868\u6846\u4e2d\u9879\u76ee\u7684\u6570\u76ee\u3002\uff08\u53ea\u8bfb\uff09<\/p>\n<p>ListIndex \u8bbe\u7f6e\u6216\u8fd4\u56de\u63a7\u4ef6\u4e2d\u5f53\u524d\u9009\u4e2d\u9879\u76ee\u7684\u7d22\u5f15(\u672a\u9009\u4e2d\u65f6\u503c\u4e3a-1)<\/p>\n<p>Style \u6837\u5f0f<\/p>\n<p>\u5217\u8868\u6846\u6837\u5f0f\uff1a 0 Standard(\u6807\u51c6) \u00a01 Checkbox(\u590d\u9009\u6846\u6837\u5f0f:\u5f00\u5934\u5e26\u4e2a\u65b9\u6846)<\/p>\n<p>\u7ec4\u5408\u6846\u6837\u5f0f\uff1a 0 \u4e0b\u62c9\u5f0f\u7ec4\u5408\u6846(\u9ed8\u8ba4) \u00a01 \u7b80\u5355\u5f0f\u7ec4\u5408\u6846 \u00a0\u00a02 \u4e0b\u62c9\u5217\u8868\u6846<\/p>\n<p>Text \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u5f53\u524d\u9009\u4e2d\u9879\u7684\u5185\u5bb9<\/p>\n<p>MultiSelect \u00a0\u00a0\u00a0\u00a0\u00a0\u662f\u5426\u53ef\u4ee5\u591a\u9009(\u7ec4\u5408\u6846\u6ca1\u6709\u8be5\u5c5e\u6027)<\/p>\n<p>Selected \u8fd4\u56de\u5143\u7d20\u5bf9\u5e94\u7684\u5217\u8868\u6846\u9879\u662f\u5426\u88ab\u9009\u4e2d\u7684\u903b\u8f91\u6570\u7ec4(\u7ec4\u5408\u6846\u6ca1\u6709\u8be5\u5c5e\u6027)<\/p>\n<p>2\u5e38\u7528\u4e8b\u4ef6<\/p>\n<p>Click \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u5355\u51fb(\u5217\u8868\u6846\u9ed8\u8ba4\u4e8b\u4ef6)<\/p>\n<p>Change \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u5728\u4e0a\u65b9\u6587\u672c\u6846\u4e2d\u624b\u52a8\u8f93\u5165,\u4f7f\u5185\u5bb9\u53d1\u751f\u53d8\u5316\u65f6\u89e6\u53d1(\u7ec4\u5408\u6846\u9ed8\u8ba4\u4e8b\u4ef6)<\/p>\n<p>\u6ce8\u610f:\u7ec4\u5408\u6846\u8fdb\u884c\u9879\u7684\u9009\u62e9\u64cd\u4f5c\u4e00\u822c\u5728\u5355\u51fb\u4e8b\u4ef6\u8fc7\u7a0b\u5185\u8fdb\u884c\u5904\u7406.<\/p>\n<p>3\u5e38\u7528\u65b9\u6cd5<\/p>\n<p>AddItem \u6dfb\u52a0\u5217\u8868\u9879(\u53c2\u6570\u662f\u4ee3\u8868\u5217\u8868\u9879\u5185\u5bb9\u7684\u5b57\u7b26\u4e32\u578b\u6570\u636e,\u8fd8\u53ef\u4ee5\u8ddf\u4e00\u4e2a\u4ee3\u8868\u63d2\u5165\u4f4d\u7f6e\u7684\u6574\u5f62\u53ef\u9009\u53c2\u6570)<\/p>\n<p>\u4f8b\uff1aList1.AddItem &#8220;\u6e38\u6cf3&#8221;\u00a0, 3 \u00a0\u00a0\u00a0\u00a0&#8216;3\u662f\u4ee3\u8868\u63d2\u5165\u4f4d\u7f6e \u00a0<\/p>\n<p>RemoveItem \u5220\u9664\u5217\u8868\u9879(\u53c2\u6570\u662f\u4ee3\u8868\u5217\u8868\u9879\u4f4d\u7f6e\u7684\u6574\u5f62\u6570\u636e)<\/p>\n<p>\u4f8b\uff1aList1.RemoveItem \u00a03 &#8216;\u5220\u9664\u7b2c3\u9879<\/p>\n<p>Clear \u6e05\u9664\u6240\u6709\u5217\u8868\u9879<\/p>\n<p>\u4f8b\uff1aList1.\u00a0Clear<\/p>\n<p>&nbsp;<\/p>\n<p>4\u00a0\u5e94\u7528\u4e3e\u4f8b<\/p>\n<p>(1)\u5217\u8868\u6846\u3001\u7ec4\u5408\u6846\u7684\u53d6\u6d88\u9009\u4e2d<\/p>\n<p>\u2460\u5217\u8868\u6846\u53d6\u6d88\u9009\u4e2d<\/p>\n<p>\u00a0\u00a0A \u5355\u9009\u7684\u53d6\u6d88<\/p>\n<p>List1.ListIndex=-1<\/p>\n<p>\u00a0\u00a0B \u591a\u9009(MultiSelect\u5c5e\u6027\u4e3aTrue)\u7684\u53d6\u6d88<\/p>\n<p>For \u00a0i = 0 To List1.ListCount &#8211; 1<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0If List1.Selected( i ) = True \u00a0Then \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;Selected\u4e3a\u903b\u8f91\u6570\u7ec4<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0List1.Selected( i ) = False<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0End If<\/p>\n<p>Next i<\/p>\n<p>\u2461\u7ec4\u5408\u6846\u7684\u53d6\u6d88\u9009\u4e2d<\/p>\n<p>\u65b9\u6cd51 \u00a0Combo1.ListIndex=-1<\/p>\n<p>\u65b9\u6cd52 \u00a0Combo1.Text=\u00a0&#8220;&#8221;<\/p>\n<p>(2)\u5217\u8868\u6846\u3001\u7ec4\u5408\u6846\u7684\u5220\u9664\u9009\u4e2d<\/p>\n<p>\u2460\u5217\u8868\u6846\u5220\u9664\u9009\u4e2d<\/p>\n<p>\u00a0\u00a0A \u5355\u9009\u7684\u5220\u9664<\/p>\n<p>List1.RemoveItem \u00a0List1.ListIndex<\/p>\n<p>\u00a0\u00a0B \u591a\u9009(MultiSelect\u5c5e\u6027\u4e3aTrue)\u7684\u5220\u9664<\/p>\n<p>For \u00a0i = \u00a0List1.ListCount \u2013 1 \u00a0To \u00a00 \u00a0Step \u00a0-1 \u00a0\u00a0&#8216;\u5fc5\u987b\u4ece\u5927\u5230\u5c0f\u5faa\u73af<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0If List1.Selected( i ) = True \u00a0Then<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0List1.RemoveItem \u00a0i<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0End If<\/p>\n<p>Next i<\/p>\n<p>\u2461\u7ec4\u5408\u6846\u7684\u5220\u9664\u9009\u4e2d<\/p>\n<p>Combo1. RemoveItem \u00a0Combo1.ListIndex<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u63a7\u4ef6\u6570\u7ec4<\/p>\n<p>&nbsp;<\/p>\n<p>1\u3001\u4ec0\u4e48\u662f\u63a7\u4ef6\u6570\u7ec4<\/p>\n<p>\u63a7\u4ef6\u6570\u7ec4\u662f\u7531\u4e00\u7ec4\u76f8\u540c\u7c7b\u578b\u7684\u63a7\u4ef6\u7ec4\u6210\u7684\u63a7\u4ef6\u7ec4\u3002<\/p>\n<p>\u63a7\u4ef6\u6570\u7ec4\u4e2d\u7684\u63a7\u4ef6\u79f0\u4e3a\u63a7\u4ef6\u6570\u7ec4\u5143\u7d20\uff0c\u6240\u6709\u63a7\u4ef6\u6570\u7ec4\u5143\u7d20\u5171\u4eab\u76f8\u540c\u7684\u4e8b\u4ef6\u8fc7\u7a0b\u3002<\/p>\n<p>2\u3001\u7ec4\u6210\u63a7\u4ef6\u6570\u7ec4\u7684\u6761\u4ef6<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u540d\u79f0\u5fc5\u987b\u76f8\u540c<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u7c7b\u578b\u5fc5\u987b\u76f8\u540c<\/p>\n<p>3\u3001\u63a7\u4ef6\u6570\u7ec4\u5143\u7d20\u7684\u547d\u540d\uff1a<\/p>\n<p>\u540d\u79f0(\u7d22\u5f15\u503c) \u00a0\u00a0\u00a0\u00a0<\/p>\n<p>\u4f8b\uff1a \u00a0Command1(0) \u00a0\u00a0\u00a0&#8216;\u8fd9\u91cc\u7684\u7d22\u5f15\u503c\u5373\u63a7\u4ef6\u6570\u7ec4\u4e8b\u4ef6\u8fc7\u7a0b\u4e2d\u7684Index\u53c2\u6570<\/p>\n<p>4\u3001\u63a7\u4ef6\u6570\u7ec4\u7684\u521b\u5efa\u65b9\u6cd5<\/p>\n<p>\u65b9\u6cd51\uff1a \u00a0\u901a\u8fc7\u7ed9\u63a7\u4ef6\u91cd\u547d\u540d\u7684\u65b9\u5f0f\u521b\u5efa<\/p>\n<p>\u65b9\u6cd52\uff1a \u00a0\u901a\u8fc7\u590d\u5236\u7c98\u8d34\u7684\u65b9\u5f0f\u521b\u5efa<\/p>\n<p>\u203b\u6ce8\uff1a\u4ee5\u4e0a\u4e24\u79cd\u65b9\u6cd5\u90fd\u4f1a\u81ea\u52a8\u8bbe\u7f6e\u7d22\u5f15\u503c\uff08\u5373Index\u5c5e\u6027\uff09<\/p>\n<p>5\u3001\u63a7\u4ef6\u6570\u7ec4\u7684\u53d6\u6d88\u6b65\u9aa4<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0(1)\u5c06\u540d\u79f0\uff08Name\u5c5e\u6027\uff09\u6539\u4e3a\u4e0d\u540c\u7684\u503c<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0(2)\u628a\u7d22\u5f15\u503c\uff08Index\u5c5e\u6027\uff09\u6e05\u7a7a<\/p>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u5750\u6807\u7cfb(P168)<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a01.\u5206\u7c7b \u5c4f\u5e55\u5750\u6807\u7cfb\uff1a \u5c4f\u5e55\u5de6\u4e0a\u89d2\u4e3a\u539f\u70b9(0,0)<\/p>\n<p>\u7a97\u4f53\u5750\u6807\u7cfb\uff1a \u7a97\u4f53\u5de6\u4e0a\u89d2\u4e3a\u539f\u70b9(0,0)<\/p>\n<p>\u81ea\u5b9a\u4e49\u5750\u6807\u7cfb\uff1a \u53ef\u4ee5\u81ea\u5b9a\u4e49\u5de6\u4e0a\u89d2\u5750\u6807<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a02.\u5ea6\u91cf\u5355\u4f4d\uff1a\u7f07(Twip)\u3001\u50cf\u7d20\u3001\u78c5\u3001\u82f1\u5bf8<\/p>\n<p>\u00a0\u00a0\u00a0\u8bf4\u660e\uff1aVB\u9ed8\u8ba4\u7684\u5ea6\u91cf\u5355\u4f4d\u662f\u7f07\uff1b\u66f4\u6539\u5355\u4f4d\u7531Scalemode\u5c5e\u6027\u51b3\u5b9a\u3002 \u00a0<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a01\u82f1\u5bf8=1440\u7f07<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a01\u5398\u7c73=567\u7f07<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a01\u78c5=20\u7f07<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a03.\u5982\u4f55\u8bbe\u7f6e\u81ea\u5b9a\u4e49\u5750\u6807\u7cfb<\/p>\n<p>\u00a0\u00a0\u00a0\u65b9\u6cd51\uff1a\u7528\u5bb9\u5668\u5bf9\u8c61\u7684Scale\u65b9\u6cd5\u6765\u5b9a\u4e49\u3002<\/p>\n<p>\u683c\u5f0f\uff1a<\/p>\n<p>Object.Scale\uff08x1\uff0cy1\uff09-\uff08x2,y2\uff09 \u00a0\u00a0&#8216;\uff08x1\uff0cy1\uff09\u4e3a\u5de6\u4e0a\u89d2\u5750\u6807\uff0c\uff08x2,y2\uff09\u4e3a\u53f3\u4e0b\u89d2\u5750\u6807<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u4f8b\uff1a<\/p>\n<p>Picture1.Scale\uff08100,50\uff09-\uff08400,300\uff09<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u65b9\u6cd52\uff1a\u8bbe\u7f6e\u5bb9\u5668\u5bf9\u8c61\u7684ScaleLeft\u3001ScaleTop\u3001ScaleWidth\u548cScaleHeight\u5c5e\u6027<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u4f8b\uff1a<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Picture1.ScaleLeft=100<\/p>\n<p>Picture1.ScaleTop=100<\/p>\n<p>Picture1.ScaleWidth=300<\/p>\n<p>Picture1.ScaleHeight=200<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u56fe\u7247\u6846\u63a7\u4ef6(PictureBox)\u7684\u5e38\u7528\u5c5e\u6027\u3001\u4e8b\u4ef6\u3001\u65b9\u6cd5(P170)<\/p>\n<p>&nbsp;<\/p>\n<p>1 \u5e38\u7528\u5c5e\u6027<\/p>\n<p>Picture \u8bbe\u7f6e\u548c\u6e05\u9664\u56fe\u50cf<\/p>\n<p>AutoRedraw \u00a0\u00a0\u00a0 \u662f\u5426\u91cd\u7ed8\uff08\u8be5\u5c5e\u6027\u503c\u8bbe\u4e3aTrue\u65f6\uff0c\u8fd8\u539f\u6700\u5c0f\u5316\u7a97\u4f53\u65f6\u80fd\u91cd\u7ed8\u5185\u5bb9\uff09<\/p>\n<p>AutoSize \u662f\u5426\u81ea\u52a8\u8c03\u6574\u5927\u5c0f\uff08\u8be5\u5c5e\u6027\u503c\u8bbe\u4e3aTrue\u65f6\uff0c\u56fe\u7247\u6846\u4f1a\u6839\u636e\u56fe\u50cf\u5927\u5c0f\u81ea\u52a8\u7f29\u653e\uff09<\/p>\n<p>DrawMode \u8bbe\u7f6e\u7ebf\u6761\u989c\u8272\u7684\u4ea7\u751f\u65b9\u5f0f\uff0c\u9ed8\u8ba4\u503c\u662f13\uff0c\u7528\u524d\u666f\u8272\u753b\u7ebf\uff08P171\u8868\uff09<\/p>\n<p>DrawStyle \u8bbe\u7f6e\u7ebf\u6761\u7c7b\u578b\uff08P172\u8868\uff09<\/p>\n<p>\u6837\u5f0f\uff1a 0-\u5b9e\u7ebf(\u9ed8\u8ba4) 1-\u65ad\u7ebf 2-\u70b9\u7ebf \u00a03-\u65ad\u70b9\u7ec4\u5408\u7ebf 4-\u65ad\u70b9\u7ec4\u5408\u7ebf \u00a05-\u900f\u660e\u7ebf \u00a06-\u5185\u90e8\u5b9e\u7ebf \u00a0<\/p>\n<p>DrawWidth \u8bbe\u7f6e\u7ebf\u6761\u5bbd\u5ea6<\/p>\n<p>FillColor \u8bbe\u7f6e\u586b\u5145\u989c\u8272<\/p>\n<p>FillStyle \u8bbe\u7f6e\u586b\u5145\u65b9\u5f0f\uff08P172\u8868\uff09( \u586b\u5145\u6837\u5f0f\u4e2d\u7684\u7ebf\u6761\u989c\u8272\u7531FillColor\u5c5e\u6027\u51b3\u5b9a )<\/p>\n<p>\u6837\u5f0f\uff1a 0-\u5b9e\u5fc3 1-\u7a7a\u5fc3\uff08\u9ed8\u8ba4\uff092-\u6c34\u5e73\u7ebf \u00a03-\u5782\u76f4\u7ebf 4-\u5411\u53f3\u5bf9\u89d2\u7ebf \u00a0<\/p>\n<p>5-\u5411\u5de6\u5bf9\u89d2\u7ebf \u00a06-\u5341\u5b57\u4ea4\u53c9\u7ebf \u00a07-\u5bf9\u89d2\u4ea4\u53c9\u7ebf<\/p>\n<p>CurrentX<\/p>\n<p>CurrentY \u8bbe\u7f6e\u6216\u8fd4\u56de\u4e0b\u4e00\u6b21\u7ed8\u56fe\u7684\u8d77\u70b9\u5750\u6807\uff08\u8bbe\u8ba1\u65f6\u4e0d\u53ef\u7528\uff09<\/p>\n<p>2 \u5e38\u7528\u4e8b\u4ef6<\/p>\n<p>Click \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u5355\u51fb(\u9ed8\u8ba4)<\/p>\n<p>&nbsp;<\/p>\n<p>3 \u5e38\u7528\u65b9\u6cd5<\/p>\n<p>Scale\u00a0\u00a0\u00a0\u81ea\u5b9a\u4e49\u5750\u6807\u7cfb<\/p>\n<p>\u683c\u5f0f\uff1aScale \uff08x1,y1) \u2013\u00a0(x2,y2)<\/p>\n<p>\u4f8b\uff1a\u00a0\u00a0Picture1.Scale (-300, -200)-(300, 200)\u00a0<\/p>\n<p>\u8bf4\u660e\uff1ax1\uff0cy1\u5b9a\u4e49\u539f\u70b9\u5728\u65b0\u5750\u6807\u7cfb\u4e2d\u7684\u5750\u6807\u503c\uff0cx2\uff0cy2\u5b9a\u4e49\u53f3\u4e0b\u89d2\u5728\u65b0\u4f5c\u5f0a\u7cfb\u4e2d\u7684\u5750\u6807\u503c\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>Pset \u753b\u70b9<\/p>\n<p>\u683c\u5f0f\uff1aPSet[Step] (x,y)[,\u989c\u8272] \u00a0\u00a0\u00a0\u00a0&#8216;\u989c\u8272\u6307\u7ebf\u6761\u989c\u8272\uff0c\u989c\u8272\u8868\u793a\u65b9\u6cd5\u53c2\u89c1P39 \u00a0\u00a0<\/p>\n<p>\u4f8b\uff1aPicture1.PSet (1000, 1000)<\/p>\n<p>&nbsp;<\/p>\n<p>Line \u753b\u76f4\u7ebf\u548c\u77e9\u5f62<\/p>\n<p>\u683c\u5f0f\uff1aLine[Step] [(x1,y1)]-(x2,y2)[,\u989c\u8272][,B[F]] \u00a0<\/p>\n<p>\u4f8b\uff1a \u00a0Picture1.Line (0, 0)-(100, 100), vbGreen \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u753b\u7ebf<\/p>\n<p>&nbsp;<\/p>\n<p>Rem \u753b\u77e9\u5f62\u5fc5\u987b\u5e26\u4e0a\u7ebf\u6761\u989c\u8272\u53c2\u6570<\/p>\n<p>Picture1.Line (-300, -200)-(-100, -100), , B \u00a0 &#8216;\u753b\u77e9\u5f62(\u4e0d\u6307\u5b9a\u7ebf\u6761\u8272\u5219\u7531ForeColor\u5c5e\u6027\u51b3\u5b9a)<\/p>\n<p>Picture1.Line (-300, 200)-(-100, 100), vbGreen, B \u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u753b\u77e9\u5f62 (\u6307\u5b9a\u7ebf\u6761\u989c\u8272vbGreen-\u7eff\u8272)<\/p>\n<p>Picture1.Line (100, 100)-(300, 200), vbGreen, BF \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u753b\u77e9\u5f62 (BF\u5ffd\u7565FillColor\u7531\u7ebf\u6761\u8272\u586b\u5145)<\/p>\n<p>&nbsp;<\/p>\n<p>Circle \u00a0 \u753b\u5706\u3001\u692d\u5706\u3001\u5706\u5f27\u53ca\u6247\u5f62<\/p>\n<p>\u683c\u5f0f\uff1aCircle[Step] (x,y),\u534a\u5f84[,\u989c\u8272][,\u8d77\u59cb\u89d2][,\u7ec8\u6b62\u89d2][,\u957f\u77ed\u8f74\u6bd4\u7387] \u00a0\u00a0\u00a0\u00a0<\/p>\n<p>\u8bf4\u660e\uff1a \u2460(x,y)\u4e3a\u5706\u5fc3\u5750\u6807<\/p>\n<p>\u2461\u8d77\u59cb\u89d2\u3001\u7ec8\u6b62\u89d2\u6309\u9006\u65f6\u9488\u65b9\u5411<\/p>\n<p>\u2462\u8d77\u59cb\u89d2\u3001\u7ec8\u6b62\u89d2\u7684\u503c\u662f\u5f27\u5ea6\u503c<\/p>\n<p>\u8ba1\u7b97\u516c\u5f0f\uff1a \u00a0\u5f27\u5ea6=\u89d2\u5ea6 * PI \/ 180 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;PI\u4e3a\u81ea\u5b9a\u4e49\u5e38\u91cf\uff08Const PI=3.1415926\uff09<\/p>\n<p>\u89d2\u5ea6=\u5f27\u5ea6 * 180 \/PI<\/p>\n<p>\u2463\u8d77\u59cb\u89d2\u3001\u7ec8\u6b62\u89d2\u524d\u9762\u52a0\u8d1f\u53f7\u65f6\u753b\u7684\u662f\u6247\u5f62<\/p>\n<p>\u2464\u957f\u77ed\u8f74\u6bd4\u7387\uff0c\u503c1\u4e3a\u6b63\u5706\u3001\u5c0f\u4e8e1\u4e3a\u6c34\u5e73\u692d\u5706\u3001\u5927\u4e8e1\u4e3a\u5782\u76f4\u692d\u5706,\u6309\u503c\u4f38\u7f29<\/p>\n<p>\u4f8b\uff1a Picture1.Circle (0, 0), 100, vbBlack \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u753b\u5706<\/p>\n<p>Picture1.Circle (200, -100), 100, vbBlack, , , 0.9 \u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u753b\u692d\u5706<\/p>\n<p>Picture1.Circle (0, 0), 200, vbYellow, 135 * 3.14 \/ 180, 225 * 3.14 \/ 180 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u753b\u5706\u5f27<\/p>\n<p>Picture1.Circle (0, 0), 150, vbMagenta, -135 * 3.14 \/ 180, -225 * 3.14 \/ 180 \u00a0\u00a0\u00a0\u00a0&#8216;\u753b\u6247\u5f62<\/p>\n<p>Print \u6253\u5370\u6587\u672c(\u6ce8\u610f\uff1a\u5728\u4ee3\u7801\u7a97\u53e3\u8f93\u5165\u65f6\u8be5\u65b9\u6cd5\u4e0d\u4f1a\u6709\u81ea\u52a8\u63d0\u793a)<\/p>\n<p>Point \u8fd4\u56de\u6307\u5b9a\u70b9\u7684\u989c\u8272\uff08\u8fd4\u56de\u503c\u7c7b\u578b\u4e3aLong\uff09<\/p>\n<p>Cls \u6e05\u9664\u7ed8\u5236\u7684\u56fe\u5f62\u548c\u6587\u672c\uff08\u6e05\u9664\u4e4b\u540e\uff0cCurrentX\u548cCurrentY\u503c\u6062\u590d\u4e3a0\uff09<\/p>\n<p>ZOrder \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u8bbe\u7f6e\u63a7\u4ef6\u7684\u53e0\u653e\u987a\u5e8f\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;ZOrder\u00a00\u00a0\u79fb\u5230\u9876\u5c42 \uff0cZOrder 1 \u79fb\u5230\u5e95\u5c42\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u56fe\u50cf\u63a7\u4ef6(Image)\u7684\u5e38\u7528\u5c5e\u6027\u3001\u4e8b\u4ef6\u3001\u65b9\u6cd5(P174)<\/p>\n<p>&nbsp;<\/p>\n<p>1 \u5e38\u7528\u5c5e\u6027<\/p>\n<p>Picture \u8bbe\u7f6e\u548c\u6e05\u9664\u56fe\u50cf<\/p>\n<p>Stretch \u8c03\u6574\u5927\u5c0f\u7684\u65b9\u5f0f \u00a0\u00a0\u503c\u4e3aTure\u662f\u6839\u636e\u6846\u7684\u5927\u5c0f\u8c03\u6574\u56fe\u50cf\u5927\u5c0f\uff0c \u503c\u4e3aFalse\u662f\u6839\u636e\u56fe\u50cf\u5927\u5c0f\u8c03\u6574\u6846\u7684\u5927\u5c0f\u3002<\/p>\n<p>2\u5e38\u7528\u4e8b\u4ef6<\/p>\n<p>Click \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u5355\u51fb(\u9ed8\u8ba4)<\/p>\n<p>3 \u5e38\u7528\u65b9\u6cd5<\/p>\n<p>ZOrder \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u8bbe\u7f6e\u63a7\u4ef6\u7684\u53e0\u653e\u987a\u5e8f\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;ZOrder\u00a00\u00a0\u79fb\u5230\u9876\u5c42 \uff0cZOrder 1 \u79fb\u5230\u5e95\u5c42\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>\u203b \u7ed9\u56fe\u7247\u6846\/\u56fe\u50cf\u6846\u63a7\u4ef6\u8bbe\u7f6e\u56fe\u7247(Picture\u5c5e\u6027)\u7684\u4e24\u79cd\u65b9\u6cd5(\u4ee5\u56fe\u7247\u6846\u4e3a\u4f8b\uff0c\u56fe\u50cf\u6846\u540c\u7406)<\/p>\n<p>1 \u00a0\u901a\u8fc7Picture\u5c5e\u6027\u680f\u8bbe\u7f6e<\/p>\n<p>2 \u00a0\u901a\u8fc7\u4ee3\u7801\u8bbe\u7f6e\uff08\u4f7f\u7528LoadPicture\u51fd\u6570\uff09\uff08P170\u4f8b\uff09<\/p>\n<p>\u4f8b\uff1a<\/p>\n<p>Picture1.Picture = LoadPicture(&#8220;D:\\\u82b1\u6735.jpg&#8221;) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u52a0\u8f7d\u56fe\u7247(\u7edd\u5bf9\u8def\u5f84)<\/p>\n<p>Picture1.Picture = LoadPicture(App.Path \u00a0&amp;\u00a0\u00a0&#8220;\\ &#8221;\u00a0\u00a0&amp;\u00a0\u00a0&#8220;\\\u98ce\u666f.jpg&#8221;) \u00a0\u00a0\u00a0&#8216;\u52a0\u8f7d\u56fe\u7247(\u7edd\u5bf9\u8def\u5f84)<\/p>\n<p>Picture1.Picture = LoadPicture(&#8220;\u98ce\u666f.jpg&#8221;) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u52a0\u8f7d\u56fe\u7247(\u76f8\u5bf9\u8def\u5f84\uff0c\u56fe\u7247\u5728\u7a0b\u5e8f\u5f53\u524d\u76ee\u5f55\u4e0b)<\/p>\n<p>Picture1.Picture = LoadPicture \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0&#8216;\u6e05\u9664\u56fe\u7247(\u4e0d\u5e26\u53c2\u6570)<\/p>\n<p>\u8bf4\u660e\uff1a1 App.Path\u4ee3\u8868\u5f53\u524d\u5e94\u7528\u7a0b\u5e8f\u6240\u5728\u76ee\u5f55\uff1b<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a02 \u5982\u679c\u7528App.Path\u62fc\u63a5\u56fe\u7247\u8def\u5f84\u5b57\u7b26\u4e32\uff0c\u5219\u5728App.Path\u548c\u56fe\u7247\u6587\u4ef6\u540d\u4e4b\u95f4\u5fc5\u987b\u52a0\u4e00\u4e2a\u4ee3\u8868\u76ee\u5f55\u5206\u9694\u7b26\u7684\u53cd\u659c\u6760&#8221;\\ &#8220;\uff1b<\/p>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u5f62\u72b6\u63a7\u4ef6\uff08Shape\uff09\u7684\u5e38\u7528\u5c5e\u6027<\/p>\n<p>&nbsp;<\/p>\n<p>Shape \u8fd4\u56de\u6216\u8bbe\u7f6e\u5f62\u72b6 \u00a0\u00a0\u00a0\u6837\u5f0f\uff1a 0-\u77e9\u5f62 1-\u6b63\u65b9\u5f622-\u692d\u5706 \u00a03-\u5706 4-\u5706\u89d2\u77e9\u5f62 \u00a05-\u5706\u89d2\u6b63\u65b9\u5f62<\/p>\n<p>BorderColor \u8fb9\u6846\u989c\u8272<\/p>\n<p>BorderWidth \u8fb9\u6846\u5bbd\u5ea6<\/p>\n<p>BorderStyle \u8fb9\u6846\u6837\u5f0f \u00a0\u00a0\u00a0\uff08\u6ce8\u610f\u4e0e\u56fe\u7247\u6846\u63a7\u4ef6\u7684DrawStyle\u6837\u5f0f\u503c\u7684\u533a\u522b\uff09<\/p>\n<p>\u6837\u5f0f\uff1a \u00a00-\u900f\u660e\u7ebf1-\u5b9e\u7ebf\uff08\u9ed8\u8ba4\uff092-\u65ad\u7ebf \u00a03-\u70b9\u7ebf 4-\u65ad\u70b9\u7ec4\u5408\u7ebf \u00a05-\u65ad\u70b9\u7ec4\u5408\u7ebf \u00a06-\u5185\u90e8\u5b9e\u7ebf<\/p>\n<p>FillColor \u586b\u5145\u989c\u8272<\/p>\n<p>FillStyle \u586b\u5145\u6837\u5f0f\uff08\u4e0e\u56fe\u7247\u6846\u7684FillStyle\u8bbe\u7f6e\u503c\u76f8\u540c\uff09<\/p>\n<p>DrawMode \u7ebf\u6761\u989c\u8272\u4ea7\u751f\u65b9\u5f0f\uff08\u4e0e\u56fe\u7247\u6846\u7684DrawMode\u8bbe\u7f6e\u503c\u76f8\u540c\uff09<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u7ebf\u5f62\u63a7\u4ef6\uff08Line\uff09\u7684\u5e38\u7528\u5c5e\u6027<\/p>\n<p>X1 \u8d77\u70b9\u6a2a\u5750\u6807<\/p>\n<p>Y1 \u8d77\u70b9\u7eb5\u5750\u6807<\/p>\n<p>X2 \u7ec8\u70b9\u6a2a\u5750\u6807<\/p>\n<p>Y2 \u7ec8\u70b9\u7eb5\u5750\u6807<\/p>\n<p>\u203b\u6ce8\u610f<\/p>\n<p>\u2460 \u5f62\u72b6\u63a7\u4ef6\u548c\u7ebf\u5f62\u63a7\u4ef6\u90fd\u4e0d\u652f\u6301\u4efb\u4f55\u4e8b\u4ef6\uff01<\/p>\n<p>\u2461 \u5982\u679c\u5148\u753b\u56fe\u5f62\u63a7\u4ef6\uff0c\u540e\u753b\u56fe\u7247\u6846\u63a7\u4ef6\uff0c\u8fd9\u65f6\u8981\u628a\u56fe\u5f62\u63a7\u4ef6\u88c5\u5165\u56fe\u7247\u6846\u5bb9\u5668\uff0c\u5fc5\u987b\u7528\u526a\u5207\u7c98\u8d34\u7684\u65b9\u5f0f\u800c\u4e0d\u80fd\u76f4\u63a5\u62d6\u5165\u3002<\/p>\n<p>\u2462 \u5982\u679c\u5c06\u7a97\u4f53\u4f5c\u4e3a\u56fe\u5f62\u63a7\u4ef6\u7684\u5bb9\u5668\uff0c\u5fc5\u987b\u5c06\u7a97\u4f53\u7684ScaleWidth\u548cScaleHeight\u5c5e\u6027\u503c\u8bbe\u4e3a\u7a97\u4f53\u7684\u5bbd\u5ea6\u548c\u9ad8\u5ea6\u503c\uff08\u5373\u81ea\u5b9a\u4e49\u5750\u6807\u7cfb\uff09\uff0c\u5426\u5219\u56fe\u5f62\u63a7\u4ef6\u65e0\u6cd5\u51c6\u786e\u5b9a\u4f4d\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u9a71\u52a8\u5668\u4e0b\u62c9\u5217\u8868\u6846\u63a7\u4ef6(DriveListBox)\u7684\u5e38\u7528\u5c5e\u6027\u3001\u4e8b\u4ef6\u3001\u65b9\u6cd5(P186)<\/p>\n<p>1 \u5e38\u7528\u5c5e\u6027<\/p>\n<p>Drive \u8fd0\u884c\u65f6\u8fd4\u56de\u6216\u8bbe\u7f6e\u6240\u9009\u5b9a\u7684\u9a71\u52a8\u5668\u540d\u79f0<\/p>\n<p>List \u9a71\u52a8\u5668\u5217\u8868(\u6570\u7ec4)<\/p>\n<p>ListCount \u8fd4\u56de\u9a71\u52a8\u5668\u6570\u76ee\u3002<\/p>\n<p>ListIndex \u8bbe\u7f6e\u6216\u8fd4\u56de\u5f53\u524d\u9009\u4e2d\u9a71\u52a8\u5668\u7684\u7d22\u5f15<\/p>\n<p>2\u5e38\u7528\u4e8b\u4ef6<\/p>\n<p>Change \u6bcf\u6b21\u91cd\u65b0\u8bbe\u7f6eDrive\u5c5e\u6027\u90fd\u4f1a\u5f15\u53d1Change\u4e8b\u4ef6<\/p>\n<p>\u4f8b\uff1aPrivate Sub Drive1_Change()<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Dir1.Path = Drive1.Drive \u00a0\u00a0\u00a0&#8216;\u5c06\u9a71\u52a8\u5668\u5217\u8868\u6846\u7684\u9a71\u52a8\u5668\u53f7\u8d4b\u7ed9\u76ee\u5f55\u5217\u8868\u6846<\/p>\n<p>End Sub<\/p>\n<p>3\u5e38\u7528\u65b9\u6cd5<\/p>\n<p>ReFresh \u5237\u65b0<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u76ee\u5f55\u5217\u8868\u6846\u63a7\u4ef6(DirListBox)\u7684\u5e38\u7528\u5c5e\u6027\u3001\u4e8b\u4ef6\u3001\u65b9\u6cd5<\/p>\n<p>&nbsp;<\/p>\n<p>1\u5e38\u7528\u5c5e\u6027<\/p>\n<p>Path \u8fd0\u884c\u65f6\u8fd4\u56de\u6216\u8bbe\u7f6e\u5f53\u524d\u8def\u5f84<\/p>\n<p>List \u5f53\u524d\u9a71\u52a8\u5668\u4e0b\u5b50\u76ee\u5f55\u5217\u8868(\u6570\u7ec4)<\/p>\n<p>\u00a0\u00a0\u00a0 \u8bf4\u660e\uff1a List\uff08-2\uff09 \u8fd4\u56de\u4e0a\u7ea7\u76ee\u5f55<\/p>\n<p>List\uff08-1\uff09 \u8fd4\u56de\u5f53\u524d\u76ee\u5f55<\/p>\n<p>List\uff080\uff09 \u8fd4\u56de\u5f53\u524d\u76ee\u5f55\u4e0b\u7b2c\u4e00\u4e2a\u5b50\u76ee\u5f55<\/p>\n<p>List\uff081\uff09 \u8fd4\u56de\u5f53\u524d\u76ee\u5f55\u4e0b\u7b2c\u4e8c\u4e2a\u5b50\u76ee\u5f55<\/p>\n<p>\u4f8b\uff1a Dir1.Path = Dir1.List\uff08-2\uff09 \u00a0\u00a0&#8216;\u5c06\u4e0a\u7ea7\u76ee\u5f55\u8bbe\u4e3a\u5f53\u524d\u76ee\u5f55<\/p>\n<p>Dir1.Path = Dir1.List\uff080\uff09 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u5c06\u5f53\u524d\u76ee\u5f55\u4e0b\u7b2c\u4e00\u4e2a\u5b50\u76ee\u5f55\u8bbe\u4e3a\u5f53\u524d\u76ee\u5f55<\/p>\n<p>ListCount \u5f53\u524d\u76ee\u5f55\u4e0b\u5b50\u76ee\u5f55\u6570\u76ee<\/p>\n<p>ListIndex \u8bbe\u7f6e\u6216\u8fd4\u56de\u5f53\u524d\u9009\u4e2d\u76ee\u5f55\u7684\u7d22\u5f15<\/p>\n<p>2\u5e38\u7528\u4e8b\u4ef6<\/p>\n<p>Change \u6bcf\u6b21\u91cd\u65b0\u8bbe\u7f6ePath\u5c5e\u6027\u90fd\u4f1a\u5f15\u53d1Change\u4e8b\u4ef6<\/p>\n<p>\u4f8b\uff1a Private Sub Dir1_Change()<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 File1.Path = Dir1.Path \u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u5c06\u76ee\u5f55\u5217\u8868\u6846\u7684\u8def\u5f84\u8d4b\u7ed9\u6587\u4ef6\u5217\u8868\u6846<\/p>\n<p>End Sub<\/p>\n<p>3 \u5e38\u7528\u65b9\u6cd5<\/p>\n<p>ReFresh \u5237\u65b0<\/p>\n<p>\u203b\u63d0\u793a\uff1a\u53cc\u51fb\u76ee\u5f55\u5217\u8868\u6846\u4e2d\u7684\u67d0\u4e2a\u76ee\u5f55\uff0c\u5c31\u4f1a\u663e\u793a\u51fa\u8be5\u76ee\u5f55\u4e0b\u7684\u6240\u6709\u5b50\u76ee\u5f55\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2\u6587\u4ef6\u5217\u8868\u6846\u63a7\u4ef6(FileListBox)\u7684\u5e38\u7528\u5c5e\u6027\u3001\u4e8b\u4ef6\u3001\u65b9\u6cd5<\/p>\n<p>&nbsp;<\/p>\n<p>1\u5e38\u7528\u5c5e\u6027<\/p>\n<p>Path \u8fd4\u56de\u6587\u4ef6\u5217\u8868\u6846\u4e2d\u663e\u793a\u7684\u6587\u4ef6\u6240\u5728\u7684\u8def\u5f84\u3002<\/p>\n<p>Pattern \u8fd4\u56de\u6216\u8bbe\u7f6e\u6587\u4ef6\u5217\u8868\u6846\u6240\u663e\u793a\u7684\u6587\u4ef6\u7c7b\u578b\uff08\u53ef\u7528\u4f7f\u7528\u901a\u914d\u7b26\uff09\u3002<\/p>\n<p>FileName \u8fd4\u56de\u6216\u8bbe\u7f6e\u9009\u4e2d\u6587\u4ef6\u7684\u6587\u4ef6\u540d\u548c\u8def\u5f84\uff08\u8fd4\u56de\u65f6\u53ea\u8fd4\u56de\u4e0d\u5e26\u8def\u5f84\u7684\u6587\u4ef6\u540d\uff0c\u8bbe\u7f6e\u65f6\u53ef\u7528\u5e26\u8def\u5f84\u3002\uff09<\/p>\n<p>List \u6587\u4ef6\u5217\u8868\u6846\u4e2d\u663e\u793a\u7684\u6587\u4ef6\u5217\u8868(\u6570\u7ec4)<\/p>\n<p>ListCount \u6587\u4ef6\u6570\u76ee\u3002<\/p>\n<p>ListIndex \u8bbe\u7f6e\u6216\u8fd4\u56de\u5f53\u524d\u9009\u4e2d\u6587\u4ef6\u7684\u7d22\u5f15<\/p>\n<p>2\u5e38\u7528\u4e8b\u4ef6<\/p>\n<p>PathChange \u6bcf\u6b21\u91cd\u65b0\u8bbe\u7f6ePath\u5c5e\u6027\u90fd\u4f1a\u5f15\u53d1PathChange\u4e8b\u4ef6<\/p>\n<p>3\u5e38\u7528\u65b9\u6cd5<\/p>\n<p>ReFresh \u5237\u65b0<\/p>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 VB\u989c\u8272\u8bbe\u7f6e\u7684\u56db\u79cd\u8868\u793a\u65b9\u5f0f<\/p>\n<p>&nbsp;<\/p>\n<p>1\u3001\u4f7f\u7528RGB(r,g\uff0cb)\u51fd\u6570\u8868\u793a\uff1ar\u8868\u793a\u4e09\u539f\u8272\u91cc\u7684\u7ea2\u8272\u5206\u91cf\uff0cg\u8868\u793a\u4e09\u539f\u8272\u91cc\u7684\u7eff\u8272\u5206\u91cf\uff0cb\u8868\u793a\u4e09\u539f\u8272\u91cc\u7684\u84dd\u8272\u5206\u91cf\uff0c\u5404\u8272\u53d6\u503c\u8303\u56f4\u90fd\u662f0-255<\/p>\n<p>\u00a0\u00a0\u00a0\u4f8b\uff1a \u00a0RGB(255\uff0c0\uff0c0) \u00a0\u00a0\u00a0&#8216;\u8868\u793a\u7ea2\u8272<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0RGB(0\uff0c0\uff0c255) \u00a0\u00a0\u00a0&#8216;\u8868\u793a\u84dd\u8272<\/p>\n<p>2\u3001\u4f7f\u7528\u5341\u516d\u8fdb\u5236\u65b9\u5f0f\uff1a&amp;HFFFFFF \u00a0(&amp;H\u5f00\u5934\uff0c\u6bcf\u4e24\u4e2aFF\u4ee3\u8868\u4e00\u4e2a\u989c\u8272\u5206\u91cf\uff0c\u4ece\u53f3\u5230\u5de6\u5206\u522b\u662f\u7ea2\u3001\u7eff\u3001\u84dd<\/p>\n<p>\u00a0\u00a0\u00a0\u4f8b\uff1a \u00a0&amp;H0000FF \u00a0\u00a0\u00a0 &#8216;\u8868\u793a\u7ea2\u8272\uff08\u5de6\u8fb9\u5168\u662f0\u7684\u53ef\u4ee5\u7701\u7565\uff09\u7b80\u5316\u4e3a&amp;HFF<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&amp;HFF0000 \u00a0\u00a0\u00a0 &#8216;\u8868\u793a\u84dd\u8272\uff08 \u53f3\u8fb9\u5168\u662f0\u7684\u4e0d\u80fd\u7701\u7565\uff09<\/p>\n<p>\u00a0\u00a0\u00a0\u203b\u6ce8\u610f\uff1a\u5f53\u5de6\u8fb9\u84dd\u8272\u5206\u91cf\u503c\u4e3a0\u65f6\uff0c\u5c3e\u90e8\u5fc5\u987b\u52a0\u4e0a\u5b57\u7b26\u201c&amp;\u201d\u5426\u5219\u62a5\u9519\uff0c\u5982&amp;HFF3D&amp;<\/p>\n<p>3\u3001\u7528\u5e38\u91cf\u8868\u793a\uff1a<\/p>\n<p>\u00a0\u00a0\u00a0\u4f8b\uff1a \u00a0\u00a0vbRed \u00a0\u00a0\u00a0\u00a0 &#8216;\u8868\u793a\u7ea2\u8272<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0vbBlue \u00a0\u00a0\u00a0 &#8216;\u8868\u793a\u84dd\u8272 \u00a0\u00a0\u00a0\u00a0<\/p>\n<p>4\u3001\u4f7f\u7528QBColor(color)\u51fd\u6570\u8868\u793a(\u53c2\u89c1P39\u8868)<\/p>\n<p>\u00a0\u00a0\u00a0\u4f8b\uff1a \u00a0\u00a0QBColor(1) \u00a0\u00a0\u00a0\u00a0&#8216;\u8868\u793a\u84dd\u8272<\/p>\n<p>\u00a0\u00a0QBColor(4) \u00a0\u00a0\u00a0\u00a0&#8216;\u8868\u793a\u7ea2\u8272<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u6570\u636e\u7c7b\u578b<\/p>\n<p>&nbsp;<\/p>\n<p>1\u4ec0\u4e48\u53eb\u6570\u636e\uff1a\u6570\u636e\u662f\u6307\u6240\u6709\u80fd\u8f93\u5165\u5230\u8ba1\u7b97\u673a\u5e76\u88ab\u7a0b\u5e8f\u5904\u7406\u7684\u7b26\u53f7\u7684\u96c6\u5408\u3002<\/p>\n<p>2\u6570\u636e\u7c7b\u578b\u7684\u5206\u7c7b<\/p>\n<p>\u00a0\u00a0\u6570\u636e\u7c7b\u578b\u5206\u6807\u51c6\u7c7b\u578b\uff08\u4e5f\u53eb\u57fa\u672c\u7c7b\u578b\uff09\u548c\u7528\u6237\u81ea\u5b9a\u4e49\u7c7b\u578b\u4e24\u79cd\u3002<\/p>\n<p>3\u5e38\u7528\u6570\u636e\u7c7b\u578b<\/p>\n<p>\u00a0\u00a0\u6574\u5f62\uff1aInteger \uff08%\uff09 \u00a0\u00a0\u00a0<\/p>\n<p>\u00a0\u00a0\u957f\u6574\u5f62\uff1a Long \u00a0\uff08&amp;\uff09 \u00a0\u00a0\u00a0<\/p>\n<p>\u00a0\u00a0\u5355\u7cbe\u5ea6\u578b\uff1aSingle \uff08!) \u00a0\u00a0<\/p>\n<p>\u00a0\u00a0\u53cc\u7cbe\u5ea6\u578b\uff1aDouble\uff08#\uff09 \u00a0\u00a0\u00a0<\/p>\n<p>\u00a0\u00a0\u903b\u8f91\u578b\uff1aBoolean \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/p>\n<p>\u00a0\u00a0\u65e5\u671f\u578b\uff1aDate \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/p>\n<p>\u00a0\u00a0\u5b57\u7b26\u4e32\u578b\uff1a String \uff08$) \u00a0\u00a0<\/p>\n<p>\u00a0\u00a0\u53d8\u4f53\u578b\uff1a \u00a0Variant \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/p>\n<p>4 \u68c0\u6d4b\u6570\u636e\u7c7b\u578b\u7684\u76f8\u5173\u51fd\u6570\uff08P74\u3001P94\uff09<\/p>\n<p>VarType(N) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u8fd4\u56de\u53c2\u6570N\u6570\u636e\u7c7b\u578b\u5bf9\u5e94\u7684\u6574\u5f62\u503c<\/p>\n<p>TypeName(N) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u8fd4\u56de\u53c2\u6570N\u6570\u636e\u7c7b\u578b\u5bf9\u5e94\u7684\u7c7b\u578b\u540d\u79f0<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u4f8b\uff1a VarType(698) \u2018\u8fd4\u56de2(\u4ee3\u8868\u6574\u5f62)<\/p>\n<p>TypeName(\u201c\u4e2d\u56fd\u540d\u80dc\u201d) \u2018\u8fd4\u56deString<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u53d8\u91cf\u4e0e\u5e38\u91cf(\u672c\u8d28\u662f\u5b58\u653e\u6570\u636e\u7684\u4e00\u5757\u5185\u5b58\u7a7a\u95f4)<\/p>\n<p>&nbsp;<\/p>\n<p>1 \u53d8\u91cf\u547d\u540d<\/p>\n<p>\u89c4\u5219\uff1a\u53d8\u91cf\u540d\u53ea\u80fd\u7531\u5b57\u7b26\u3001\u6570\u5b57\u548c\u4e0b\u5212\u7ebf\u6784\u6210\uff0c\u800c\u4e14\u4e0d\u80fd\u4ee5\u6570\u5b57\u5f00\u5934,\u4e0d\u80fd\u8d85\u8fc7255\u4e2a\u5b57\u7b26<\/p>\n<p>2\u53d8\u91cf\u58f0\u660e<\/p>\n<p>(1) \u53d8\u91cf\u58f0\u660e\u7684\u4e24\u79cd\u65b9\u5f0f\uff1a\u663e\u5f0f\u58f0\u660e\u4e0e\u9690\u5f0f\u58f0\u660e<\/p>\n<p>\u663e\u5f0f\u58f0\u660e\uff1a\u5148\u58f0\u660e\u518d\u4f7f\u7528<\/p>\n<p>\u9690\u5f0f\u58f0\u660e\uff1a\u672a\u58f0\u660e\u76f4\u63a5\u4f7f\u7528(\u9ed8\u8ba4\u4e3a\u53d8\u4f53\u578b)<\/p>\n<p>(2) \u53d8\u91cf\u58f0\u660e<\/p>\n<p>\u00a0\u00a0\u683c\u5f0f \u00a0Dim \u53d8\u91cf\u540d[as \u6570\u636e\u7c7b\u578b]<\/p>\n<p>\u00a0\u00a0\u4f8b\uff1a \u00a0&#8216;\u5b9a\u4e49\u4e00\u4e2a\u540d\u4e3astr\u7684\u5b57\u7b26\u4e32\u578b\u53d8\u91cf<\/p>\n<p>Dim \u00a0str as String \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/p>\n<p>\u00a0 &#8216;\u5b9a\u4e49\u4e00\u4e2a\u540d\u4e3astr\u7684\u5b57\u7b26\u4e32\u578b\u53d8\u91cf\u548c\u4e00\u4e2a\u540d\u4e3an1\u7684\u6574\u5f62\u53d8\u91cf<\/p>\n<p>\u00a0 Dim \u00a0str as String , \u00a0\u00a0n1 as Integer<\/p>\n<p>\u00a0 &#8216;\u5b9a\u4e49\u4e00\u4e2a\u540d\u4e3astr\u7684\u53d8\u4f53\u578b\u53d8\u91cf\u548c\u4e00\u4e2a\u540d\u4e3an1\u7684\u6574\u5f62\u53d8\u91cf<\/p>\n<p>Dim \u00a0str , \u00a0\u00a0n1 as Integer<\/p>\n<p>\u203b\u6ce8\u610f\uff1a\u4e00\u884c\u53ef\u4ee5\u5b9a\u4e49\u591a\u4e2a\u53d8\u91cf(\u7528\u9017\u53f7\u9694\u5f00)\uff1b<\/p>\n<p>\u00a0\u00a0\u5982\u679c\u53d8\u91cf\u540d\u540e\u9762\u4e0d\u8ddf\u6570\u636e\u7c7b\u578b\u5219\u9ed8\u8ba4\u4e3a\u53d8\u4f53\u578b3\u58f0\u660e(\u5b9a\u4e49)\u7b26\u53f7\u5e38\u91cf\u3002<\/p>\n<p>3\u58f0\u660e(\u5b9a\u4e49)\u7b26\u53f7\u5e38\u91cf<\/p>\n<p>\u00a0\u00a0\u683c\u5f0f \u00a0Const \u00a0\u5e38\u91cf\u540d[as \u6570\u636e\u7c7b\u578b] = \u8868\u8fbe\u5f0f<\/p>\n<p>\u00a0\u00a0\u4f8b\uff1a \u00a0Const \u00a0\u00a0PI As Single = 3.1415926<\/p>\n<p>4 \u5f3a\u5236\u53d8\u91cf\u58f0\u660e<\/p>\n<p>\u8bed\u53e5\uff1aOption Explicit &#8216;\u5199\u5728\u4ee3\u7801\u9876\u90e8<\/p>\n<p>\u4f5c\u7528\uff1a\u5f3a\u5236\u53d8\u91cf\u5fc5\u987b\u5148\u58f0\u660e\u518d\u4f7f\u7528\uff0c\u53ef\u4ee5\u964d\u4f4e\u56e0\u5199\u9519\u53d8\u91cf\u540d\u800c\u5f15\u8d77\u7684\u9ebb\u70e6\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u8fd0\u7b97\u7b26\u4e0e\u8868\u8fbe\u5f0f<\/p>\n<p>&nbsp;<\/p>\n<p>1 \u4ec0\u4e48\u53eb\u8fd0\u7b97\u7b26\uff1a\u5b9e\u73b0\u67d0\u79cd\u8fd0\u7b97\u7684\u7b26\u53f7<\/p>\n<p>2 \u8fd0\u7b97\u7b26\u7684\u5206\u7c7b\u53ca\u5176\u5e38\u7528\u8fd0\u7b97\u7b26<\/p>\n<p>\u00a0\u00a0\u00a0\u7b97\u672f\u8fd0\u7b97\u7b26\uff1a \u00a0\u00a0^ &#8211; * \/ \\ Mod + &#8211;<\/p>\n<p>\u00a0\u00a0\u00a0\u5b57\u7b26\u4e32\u8fd0\u7b97\u7b26\uff1a &amp; +<\/p>\n<p>\u00a0\u00a0\u00a0\u5173\u7cfb\u8fd0\u7b97\u7b26\uff1a \u00a0\u00a0= \u00a0&gt; \u00a0&gt;= \u00a0&lt; \u00a0&lt;= \u00a0&lt;&gt;<\/p>\n<p>\u00a0\u00a0\u00a0\u903b\u8f91\u8fd0\u7b97\u7b26\uff1a \u00a0\u00a0Not \u00a0And \u00a0\u00a0Or<\/p>\n<p>3 \u8fd0\u7b97\u7b26\u7684\u4f18\u5148\u7ea7\uff1a\u7b97\u672f\u8fd0\u7b97\u7b26 &gt; \u5b57\u7b26\u4e32\u8fd0\u7b97\u7b26 \u00a0&gt; \u5173\u7cfb\u8fd0\u7b97\u7b26 \u00a0&gt; \u903b\u8f91\u8fd0\u7b97\u7b26<\/p>\n<p>\u00a0\u00a0\u00a0( \u53ef\u4ee5\u7528\u5706\u62ec\u53f7()\u6539\u53d8\u8fd0\u7b97\u987a\u5e8f )<\/p>\n<p>\u203b\u6ce8\u610f\uff1a\u5b57\u7b26\u4e32\u8fd0\u7b97\u7b26\u63a8\u8350\u7528\u201c&amp;\u201d\uff1b\u7528\u201c+\u201d\u8fd0\u7b97\u7b26\u8fde\u63a5\u5b57\u7b26\u4e32\u65f6\uff0c\u5982\u679c\u5176\u4e2d\u67d0\u4e2a\u8fde\u63a5\u9879\u662f\u6570\u503c\u578b\u6570\u636e\u4f1a\u4ea7\u751f\u9519\u8bef\uff0c\u89e3\u51b3\u65b9\u6cd5\u662f\u5c06\u8be5\u9879\u7528CStr()\u51fd\u6570\u8fdb\u884c\u8f6c\u6362\u3002<\/p>\n<p>4 \u8868\u8fbe\u5f0f\uff1a\u7528\u8fd0\u7b97\u7b26\u548c\u5706\u62ec\u53f7\u5c06\u64cd\u4f5c\u6570(\u53d8\u91cf\u3001\u5e38\u91cf\u3001\u51fd\u6570)\u8fde\u63a5\u8d77\u6765\u7684\u6709\u610f\u4e49\u7684\u5f0f\u5b50\u3002 \u00a0\u00a0<\/p>\n<p>\u4f8b\uff1a(a + b) * h \/ 2 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u8ba1\u7b97\u9762\u79ef<\/p>\n<p>5 \u6570\u5b66\u4ee3\u6570\u5f0f\u4e0eVB\u8868\u8fbe\u5f0f<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u6570\u5b66\u4ee3\u6570\u5f0f \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0VB\u8868\u8fbe\u5f0f<\/p>\n<p>\u00a010 x |\uff0810 \u2013\u00a01 \u00f7 2\uff09+ |- 6 \u2192 \u00a0\u00a0\u00a010 * Abs\uff08\uff0810 \u2013\u00a01 \/ 2\uff09+ 3^2\uff09- 6<\/p>\n<p>6\u00a0\u8fd0\u7b97\u7b26\u4e0e\u8868\u8fbe\u5f0f\u5e94\u7528\u4f8b\u5b50<\/p>\n<p>(1)\u5982\u4f55\u5224\u65ad\u4e00\u4e2a\u6570\u662f\u5426\u662f\u53e6\u4e00\u4e2a\u6570\u7684\u500d\u6570<\/p>\n<p>a \/ b = a \\ b \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u4e5f\u53ef\u4ee5\u7528\u00a0a Mod b= 0\u5224\u65ad<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u51fd\u6570<\/p>\n<p>&nbsp;<\/p>\n<p>1\u3001 \u4ec0\u4e48\u53eb\u51fd\u6570\uff1a\u51fd\u6570\u662f\u6307\u80fd\u5b9e\u73b0\u7279\u5b9a\u529f\u80fd\u6216\u5b8c\u6210\u67d0\u79cd\u8fd0\u7b97\u7684\u7a0b\u5e8f\u6bb5<\/p>\n<p>2\u3001\u51fd\u6570\u7684\u5206\u7c7b<\/p>\n<p>\u00a0\u00a0\u00a0\u51fd\u6570\u5206\u4e3a\u5185\u90e8\u51fd\u6570\u548c\u7528\u6237\u81ea\u5b9a\u4e49\u51fd\u6570\u4e24\u7c7b<\/p>\n<p>3\u3001\u51fd\u6570\u4f7f\u7528\u683c\u5f0f<\/p>\n<p>\u00a0\u00a0\u00a0\u51fd\u6570\u540d [(\u53c2\u6570\u5217\u8868)]<\/p>\n<p>4\u5e38\u7528\u5185\u90e8\u51fd\u6570<\/p>\n<ul>\n<li>\u6570\u5b66\u51fd\u6570<\/li>\n<\/ul>\n<p>Abs(N): \u6c42N\u7684\u7edd\u5bf9\u503c<\/p>\n<p>Sqr(N): \u6c42N\u7684\u5e73\u65b9\u6839<\/p>\n<p>Rnd(N): \u6c420\u548cN\u4e4b\u95f4(\u5305\u62ec0\u3001\u4e0d\u5305\u62ecN)\u7684\u53cc\u7cbe\u5ea6\u968f\u673a\u6570<\/p>\n<p>\u00a0\u00a0\u00a0 ( \u203b\u5728\u4f7f\u7528\u8be5\u51fd\u6570\u7684\u4ee3\u7801\u524d\u9762\u5fc5\u987b\u52a0\u4e0a\u521d\u59cb\u5316\u968f\u673a\u6570\u751f\u6210\u5668\u8bed\u53e5\uff1aRandomize )<\/p>\n<p>Int(N): \u6c42\u6574(\u8fd4\u56de\u4e0d\u5927\u4e8eN\u7684\u6700\u5927\u6574\u6570)<\/p>\n<p>CInt(N):\u8f6c\u6574(\u5c06N\u8f6c\u4e3a\u6700\u63a5\u8fd1\u7684\u5076\u6570\u6574\u6570)<\/p>\n<p>Fix(N): \u53d6\u6574\uff1a\u622a\u53d6N\u7684\u5c0f\u6570\u90e8\u5206\u6c42\u6574\u6570<\/p>\n<p>\u203b\u4ea7\u751f\u4e24\u4e2a\u6570\u4e4b\u95f4\uff08\u5305\u542b\u4e24\u4e2a\u6570\uff09\u7684\u968f\u673a\u6574\u6570\u7684\u8ba1\u7b97\u516c\u5f0f\uff1a \u00a0Int\uff08Rnd*\uff08\u5927\u6570-\u5c0f\u6570+1\uff09\uff09+ \u5c0f\u6570<\/p>\n<p>&nbsp;<\/p>\n<p>(2) \u5b57\u7b26\u4e32\u51fd\u6570<\/p>\n<p>Len(s) \u6c42\u5b57\u7b26\u4e32\u7684\u957f\u5ea6(\u5b57\u7b26\u4e2a\u6570)<\/p>\n<p>Left(s,n) \u4eces\u5b57\u7b26\u4e32\u5de6\u8fb9\u5f00\u59cb\u53d6n\u4e2a\u5b57\u7b26<\/p>\n<p>Right(s,n) \u4eces\u5b57\u7b26\u4e32\u53f3\u8fb9\u5f00\u59cb\u53d6n\u4e2a\u5b57\u7b26<\/p>\n<p>Mid(s,n1,[n2]) \u4eces\u5b57\u7b26\u4e32\u5de6\u8fb9\u7b2cn1\u4e2a\u4f4d\u7f6e\u5f00\u59cb\u5411\u53f3\u53d6n2\u4e2a\u5b57\u7b26<\/p>\n<p>Instr([n1,]s1,s2) \u8fd4\u56de\u5b57\u7b26\u4e32s2\u5728\u5b57\u7b26\u4e32s1\u4e2d\u7684\u4f4d\u7f6e,\u5982Instr(2,&#8221;DECDEF&#8221;,&#8221;DE&#8221;) = 4<\/p>\n<p>InstrRev([n1,]s1,s2) \u4ece\u53f3\u5f80\u5de6\u6570\uff0c\u8fd4\u56de\u5b57\u7b26\u4e32s2\u5728\u5b57\u7b26\u4e32s1\u4e2d\u7684\u4f4d\u7f6e<\/p>\n<p>Asc(s) \u6c42\u5b57\u7b26\u4e32s\u7b2c\u4e00\u4e2a\u5b57\u7b26\u7684ASCII\u7801\u503c \u00a0\u00a0\u5982\uff1a \u00a0Asc(&#8220;a&#8221;) \u00a0\u2192 \u00a097<\/p>\n<p>Chr(N) \u6c42SACII\u7801\u503cN\u7684\u5bf9\u5e94\u5b57\u7b26 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u5982\uff1a\u00a0Chr(65) \u00a0\u00a0\u2192 \u00a0&#8220;A&#8221;<\/p>\n<p>Str(N) \u5c06N\u8f6c\u6362\u4e3a\u5b57\u7b26\u4e32(\u5982\u679cN\u22650\u5219\u8fd4\u56de\u7684\u5b57\u7b26\u4e32\u5f00\u5934\u5305\u542b\u4e00\u4e2a\u524d\u5bfc\u7a7a\u683c)<\/p>\n<p>Cstr(N) \u5c06N\u8f6c\u6362\u4e3a\u5b57\u7b26\u4e32(\u8fd4\u56de\u7684\u5b57\u7b26\u4e32\u5f00\u5934\u4e0d\u542b\u524d\u5bfc\u7a7a\u683c)<\/p>\n<p>Val(s) \u5c06\u5b57\u7b26\u4e32s\u4e2d\u5f00\u5934\u6570\u5b57\u5b57\u7b26\u8f6c\u6210\u6570\u503c\u578b(Double)\u6570\u636e<\/p>\n<p>Trim(s) \u53bb\u6389s\u5b57\u7b26\u4e32\u4e24\u8fb9\u7684\u7a7a\u683c<\/p>\n<p>LTrim(s) \u53bb\u6389s\u5b57\u7b26\u4e32\u5de6\u8fb9\u7684\u7a7a\u683c<\/p>\n<p>RTrim(s) \u53bb\u6389s\u5b57\u7b26\u4e32\u53f3\u8fb9\u7684\u7a7a\u683c<\/p>\n<p>UCase(s) \u5c06s\u5b57\u7b26\u4e32\u4e2d\u6240\u6709\u5c0f\u5199\u5b57\u6bcd\u8f6c\u6362\u4e3a\u5927\u5199<\/p>\n<p>LCase(s) \u5c06s\u5b57\u7b26\u4e32\u4e2d\u6240\u6709\u5927\u5199\u5b57\u6bcd\u8f6c\u6362\u4e3a\u5c0f\u5199<\/p>\n<p>String(n,s) \u8fd4\u56de\u7531n\u4e2a\u9996\u5b57\u7b26\u7ec4\u6210\u7684\u5b57\u7b26\u4e32 \u00a0\u00a0\u00a0\u5982\uff1a String(3,&#8221;AB&#8221;) = &#8220;AAA&#8221; \u00a0\u00a0<\/p>\n<p>Space(n) \u8fd4\u56den\u4e2a\u7a7a\u683c<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0(3) \u5e38\u7528\u65e5\u671f\u3001\u65f6\u95f4\u4e32\u51fd\u6570<\/p>\n<p>Date \u8fd4\u56de\u7cfb\u7edf\u65e5\u671f<\/p>\n<p>Time \u8fd4\u56de\u7cfb\u7edf\u65f6\u95f4<\/p>\n<p>Timer \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u8fd4\u56de\u5348\u591c\u5230\u5f53\u524d\u7ecf\u8fc7\u7684\u603b\u79d2\u6570\uff08\u542b\u4e24\u4f4d\u5c0f\u6570\u7684\u5355\u7cbe\u5ea6\u578b\uff09<\/p>\n<p>Now \u8fd4\u56de\u7cfb\u7edf\u5f53\u524d\u65e5\u671f\u548c\u65f6\u95f4<\/p>\n<p>Year(D) \u8fd4\u56de\u6307\u5b9a\u65e5\u671f\u7684\u5e74\u4efd<\/p>\n<p>Month(D) \u8fd4\u56de\u6307\u5b9a\u65e5\u671f\u7684\u6708\u4efd<\/p>\n<p>MonthName\uff08N\uff09 \u00a0\u00a0\u00a0\u8fd4\u56de\u4ee3\u8868\u6708\u4efd\u7684N\u5bf9\u5e94\u7684\u4e2d\u6587\u6708\u4efd<\/p>\n<p>\u5982:MonthName(Month(#2017-6-1#)) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u2018\u663e\u793a\u201c\u516d\u6708\u201d<\/p>\n<p>Day(D) \u8fd4\u56de\u6307\u5b9a\u65e5\u671f\u7684\u65e5\u5b50<\/p>\n<p>Weekday(D) \u8fd4\u56de\u6307\u5b9a\u65e5\u671f\u7684\u661f\u671f\u51e0,\u5982\uff1aWeekday(&#8220;2017-6-1&#8221;)\u8fd4\u56de\u503c\u4e3a5 (\u661f\u671f\u56db)<\/p>\n<p>WeekdayName(N) \u8fd4\u56de\u4ee3\u8868\u661f\u671f\u51e0\u7684N\u5bf9\u5e94\u7684\u4e2d\u6587\u661f\u671f<\/p>\n<p>\u5982\uff1aWeekdayName(Weekday(#2017-6-1#)) \u00a0\u00a0\u00a0\u00a0&#8216;\u663e\u793a\u201c\u661f\u671f\u56db\u201d<\/p>\n<p>Hour(T) \u8fd4\u56de\u6307\u5b9a\u65f6\u95f4\u7684\u65f6\u6570<\/p>\n<p>Minute(T) \u8fd4\u56de\u6307\u5b9a\u65f6\u95f4\u7684\u5206\u6570<\/p>\n<p>Second(T) \u8fd4\u56de\u6307\u5b9a\u65f6\u95f4\u7684\u79d2\u6570<\/p>\n<p>DateSerial(\u5e74,\u6708,\u65e5) \u8fd4\u56de\u4e00\u4e2a\u65e5\u671f\uff08\u53c2\u6570\u662f\u6570\u503c\u578b\uff09 \u00a0\u00a0\u00a0\u5982\uff1aDateSerial\uff082016,10,9\uff09<\/p>\n<p>DateValue(C) \u8fd4\u56de\u4e00\u4e2a\u65e5\u671f\uff08\u53c2\u6570\u662f\u5b57\u7b26\u4e32\u578b\uff09 \u00a0\u5982\uff1aDateValue\uff08&#8221;2016,10,9&#8243;\uff09<\/p>\n<p>DateAdd(\u65f6\u95f4\u5355\u4f4d,T,D) \u8fd4\u56de\u65e5\u671fD\u52a0\u4e0aT\u4e4b\u540e\u7684\u65e5\u671f<\/p>\n<p>DateDiff(\u65f6\u95f4\u5355\u4f4d,D1,D2) \u00a0\u00a0\u00a0\u00a0\u8fd4\u56deD1\u548cD2\u7684\u95f4\u9694\u65f6\u95f4<\/p>\n<p>\u5982DateDiff(\u201cd\u201d,\u201c2018,1,1\u201d, \u201c2018,3,1\u201d) \u00a0&#8216;\u503c\u4e3a59<\/p>\n<p>MonthName(Month(Now())) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u663e\u793a\u4e2d\u6587\u6708\u4efd\uff0c\u5982\u201c\u4e5d\u6708\u201d<\/p>\n<p>WeekdayName(Weekday(Now())) \u00a0\u00a0\u00a0\u00a0&#8216;\u663e\u793a\u4e2d\u6587\u661f\u671f\uff0c\u5982\u201c\u661f\u671f\u4e8c\u201d\u00a0<\/p>\n<p>\u203b\u8bf4\u660e\uff1a<\/p>\n<p>\u2460\u5728VB\u4e2d\uff0c\u4e2d\u534812\u65f6\u4e3a#12:00:00 PM#\uff0c\u5348\u591c12\u65f6\u4e3a#12:00:00 AM#<\/p>\n<p>\u2461\u5982\u679c\u5c06DateSerial\u548cDateSerial\u51fd\u6570\u7684\u8fd4\u56de\u503c\u8d4b\u503c\u7ed9\u4e00\u4e2a\u6570\u503c\u578b\u53d8\u91cf\uff0c\u5219\u51fd\u6570\u8fd4\u56de\u7684\u662f\u76f8\u5bf9\u4e8e1899\u5e7412\u670830\u65e5\uff08\u4e3a0\uff09\u7684\u5929\u6570\u503c\u3002<\/p>\n<p>\u2462\u65f6\u95f4\u5355\u4f4d\u201d\u53c2\u6570\u9700\u8981\u52a0\u82f1\u6587\u5f15\u53f7<\/p>\n<p>\u2463\u65f6\u95f4\u5355\u4f4d\u53c2\u6570\u53d6\u503c\u53ca\u542b\u4e49\uff1a<\/p>\n<p>&nbsp;<\/p>\n<table>\n<tbody>\n<tr>\n<td width=\"54\">\n<p>\u5355\u4f4d<\/p>\n<\/td>\n<td width=\"54\">\n<p>yyyy<\/p>\n<\/td>\n<td width=\"31\">\n<p>q<\/p>\n<\/td>\n<td width=\"47\">\n<p>m<\/p>\n<\/td>\n<td width=\"37\">\n<p>d<\/p>\n<\/td>\n<td width=\"47\">\n<p>ww<\/p>\n<\/td>\n<td width=\"47\">\n<p>h<\/p>\n<\/td>\n<td width=\"47\">\n<p>n<\/p>\n<\/td>\n<td width=\"56\">\n<p>s<\/p>\n<\/td>\n<td width=\"75\">\n<p>y<\/p>\n<\/td>\n<td width=\"85\">\n<p>w<\/p>\n<\/td>\n<\/tr>\n<tr>\n<td width=\"54\">\n<p>\u542b\u4e49<\/p>\n<\/td>\n<td width=\"54\">\n<p>\u5e74<\/p>\n<\/td>\n<td width=\"31\">\n<p>\u5b63<\/p>\n<\/td>\n<td width=\"47\">\n<p>\u6708<\/p>\n<\/td>\n<td width=\"37\">\n<p>\u65e5<\/p>\n<\/td>\n<td width=\"47\">\n<p>\u5468<\/p>\n<\/td>\n<td width=\"47\">\n<p>\u65f6<\/p>\n<\/td>\n<td width=\"47\">\n<p>\u5206<\/p>\n<\/td>\n<td width=\"56\">\n<p>\u79d2<\/p>\n<\/td>\n<td width=\"75\">\n<p>\u4e00\u5e74\u5929\u6570<\/p>\n<\/td>\n<td width=\"85\">\n<p>\u4e00\u5468\u5929\u6570<\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<p>&nbsp;<\/p>\n<p>\u00a0(4) \u5e38\u7528\u6570\u636e\u7c7b\u578b\u8f6c\u6362\u51fd\u6570<\/p>\n<p>CStr() \u5c06\u6570\u503c\u8f6c\u6362\u4e3a\u5b57\u7b26\u4e32<\/p>\n<p>Val() \u5c06\u5b57\u7b26\u4e32\u4e2d\u7684\u6570\u5b57\u8f6c\u6362\u6210\u6570\u503c<\/p>\n<p>CBool() \u5c06\u6570\u5b57\u5b57\u7b26\u4e32\u6216\u6570\u503c\u8f6c\u6362\u6210\u5e03\u5c14\u578b<\/p>\n<p>CDate() \u5c06\u6709\u6548\u7684\u65e5\u671f\u5b57\u7b26\u4e32\u8f6c\u6362\u6210\u65e5\u671f<\/p>\n<p>CSng() \u5c06\u6570\u503c\u8f6c\u6362\u6210\u5355\u7cbe\u5ea6\u578b<\/p>\n<p>CDbl() \u5c06\u6570\u503c\u8f6c\u6362\u6210\u53cc\u7cbe\u5ea6\u578b<\/p>\n<p>&nbsp;<\/p>\n<p>(5) \u8f93\u5165\u51fd\u6570InputBox<\/p>\n<p>\u683c\u5f0f\uff1a<\/p>\n<p>InputBox(\u63d0\u793a\u4fe1\u606f,[\u6807\u9898],[\u9ed8\u8ba4\u503c],[\u5750\u6807],[\uff0c\u5e2e\u52a9\u6587\u4ef6\u540d\uff0c\u5e2e\u52a9\u4e3b\u9898\u76ee\u5f55\u53f7]\uff09<\/p>\n<p>\u203b\u8bf4\u660e\uff1a1 InputBox\u51fd\u6570\u9ed8\u8ba4\u8fd4\u56de\u503c\u662f\u5b57\u7b26\u4e32\u7c7b\u578b\uff1b<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a02 \u5982\u679c\u8fd4\u56de\u503c\u662f\u6570\u5b57\u5b57\u7b26\u4e32\u76f4\u63a5\u7528\u4e8e\u6570\u5b66\u8fd0\u7b97\uff0c\u5219\u5fc5\u987b\u52a0Val\u51fd\u6570\u5148\u8f6c\u6362\u4e3a\u6570\u503c\u578b\u6570\u636e\uff0c\u5982\uff1aVal(InputBox(&#8220;\u8bf7\u8f93\u5165\u4e00\u4e2a\u6574\u6570&#8221;, &#8220;\u901f\u5ea6\u53c2\u6570&#8221;))\u00a0\uff1b<\/p>\n<p>3\u5982\u679c\u8fd4\u56de\u503c\u8d4b\u503c\u7ed9\u5df2\u7ecf\u5b9a\u4e49\u4e3a\u6574\u5f62\u7684\u53d8\u91cf\uff0c\u5219\u8fd4\u56de\u503c\u7684\u7c7b\u578b\u81ea\u52a8\u8f6c\u6362\u4e3a\u6574\u5f62\u800c\u4e0d\u9700\u8981\u518d\u7528\u7c7b\u578b\u8f6c\u6362\u51fd\u6570\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>(6) \u6d88\u606f\u51fd\u6570MsgBox<\/p>\n<p>\u2460 \u683c\u5f0f<\/p>\n<p>MsgBox\uff08\u63d0\u793a\u4fe1\u606f[\uff0c\u6309\u94ae][\uff0c\u6807\u9898][\uff0c\u5e2e\u52a9\u6587\u4ef6\u540d\uff0c\u5e2e\u52a9\u4e3b\u9898\u76ee\u5f55\u53f7]\uff09<\/p>\n<p>\u4f8b\uff1a<\/p>\n<p>n = MsgBox(&#8220;\u786e\u5b9a\u662f\u5426\u7ee7\u7eed\u8fd0\u884c\u7a0b\u5e8f!&#8221;, 3 + 32, &#8220;\u662f\u5426\u7ee7\u7eed\u8fd0\u884c\u7a0b\u5e8f&#8221;) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u9700\u8981\u8fd4\u56de\u503c<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0MsgBox \u00a0&#8220;\u786e\u5b9a\u662f\u5426\u7ee7\u7eed\u8fd0\u884c\u7a0b\u5e8f!&#8221;, 3 + 32, &#8220;\u662f\u5426\u7ee7\u7eed\u8fd0\u884c\u7a0b\u5e8f&#8221; \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u4e0d\u9700\u8981\u8fd4\u56de\u503c<\/p>\n<p>\u203b\u8bf4\u660e\uff1a1\u7b2c\u4e8c\u4e2a\u53c2\u6570\u6309\u94ae\u662f\u6309\u94ae\u7c7b\u578b\u3001\u56fe\u6807\u6837\u5f0f\u3001\u9ed8\u8ba4\u6309\u94ae\u548c\u7b49\u5f85\u6a21\u5f0f\u76f8\u5e94\u9009\u9879\u7684\u76f8\u52a0\u503c\u3002<\/p>\n<p>2\u5982\u679c\u4e0d\u9700\u8981\u8fd4\u56de\u503c\uff0c MsgBox\u540e\u9762\u4e0d\u80fd\u52a0\u62ec\u53f7(\u4ee5\u5b50\u8fc7\u7a0b\u65b9\u5f0f\u8c03\u7528)<\/p>\n<p>\u2461 MsgBox\u6309\u94ae\u53c2\u6570\u7684\u53d6\u503c\uff1a<\/p>\n<p>\u6309\u94ae\u7c7b\u578b\uff1a<\/p>\n<p>\u00a0 0 \u53ea\u663e\u793a\u201c\u786e\u5b9a\u201d\u6309\u94ae \u00a0\u00a0\u00a0\u00a0\u00a0 vbOKOnly<\/p>\n<p>\u00a0 1 \u53ea\u663e\u793a\u201c\u786e\u5b9a\u201d\u53ca\u201c\u53d6\u6d88\u201d\u6309\u94ae vbOKCancel<\/p>\n<p>\u00a0 2 \u663e\u793a\u201c\u7ec8\u6b62\u201d\u3001\u201c\u91cd\u8bd5\u201d\u548c\u201c\u5ffd\u7565\u201d\u6309\u94ae \u00a0\u00a0\u00a0\u00a0\u00a0vbAbortRetryIgnore<\/p>\n<p>\u00a0 3 \u663e\u793a\u201c\u662f\u201d\u3001\u201c\u5426\u201d\u548c\u201c\u53d6\u6d88\u201d\u6309\u94ae \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0vbYesNoCancel<\/p>\n<p>\u00a0 4 \u663e\u793a\u201c\u662f\u201d\u548c\u201c\u5426\u201d\u6309\u94ae vbYesNo<\/p>\n<p>\u00a0 5 \u663e\u793a\u201c\u91cd\u8bd5\u201d\u548c\u201c\u53d6\u6d88\u201d\u6309\u94ae vbRetryCancel<\/p>\n<p>\u56fe\u6807\u6837\u5f0f\uff1a<\/p>\n<p>\u00a0 16 \u663e\u793a\u7cfb\u7edf\u53c9\u53f7\u56fe\u6807 vbCritical<\/p>\n<p>\u00a0 32 \u663e\u793a\u7cfb\u7edf\u95ee\u53f7\u56fe\u6807 vbQuestion<\/p>\n<p>\u00a0 48 \u663e\u793a\u7cfb\u7edf\u53f9\u53f7\u56fe\u6807 vbExclamation<\/p>\n<p>\u00a0 64 \u663e\u793a\u7cfb\u7edf\u4fe1\u606f\u56fe\u6807\u00a0\u00a0 vbInformation<\/p>\n<p>\u9ed8\u8ba4\u6309\u94ae\uff1a<\/p>\n<p>\u00a0 0 \u7b2c\u4e00\u4e2a\u6309\u94ae\u4e3a\u9ed8\u8ba4\u6309\u94ae<\/p>\n<p>\u00a0 256 \u7b2c\u4e8c\u4e2a\u6309\u94ae\u4e3a\u9ed8\u8ba4\u6309\u94ae<\/p>\n<p>\u00a0 512 \u7b2c\u4e09\u4e2a\u6309\u94ae\u4e3a\u9ed8\u8ba4\u6309\u94ae<\/p>\n<p>\u7b49\u5f85\u6a21\u5f0f\uff1a<\/p>\n<p>\u00a0 0 \u5e94\u7528\u7a0b\u5e8f\u6682\u505c\uff0c\u7b49\u5f85\u7528\u6237\u54cd\u5e94<\/p>\n<p>\u00a0 4096 \u7cfb\u7edf\u6302\u8d77\uff0c\u7b49\u5f85\u7528\u6237\u54cd\u5e94<\/p>\n<p>\u2462 \u51fd\u6570\u8fd4\u56de\u503c\uff1a\uff08\u8fd4\u56de\u503c\u7c7b\u578b\u662f\u957f\u6574\u578bLong\uff09<\/p>\n<p>\u00a0 1 \u9009\u201c\u786e\u5b9a\u201d\u6309\u94ae<\/p>\n<p>\u00a0 2 \u9009\u201c\u53d6\u6d88\u201d\u6309\u94ae<\/p>\n<p>\u00a0 3 \u9009\u201c\u7ec8\u6b62\u201d\u6309\u94ae \u00a0\u00a0<\/p>\n<p>\u00a0 4 \u9009\u201c\u91cd\u8bd5\u201d\u6309\u94ae<\/p>\n<p>\u00a0 5 \u9009\u201c\u5ffd\u7565\u201d\u6309\u94ae \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/p>\n<p>\u00a0 6 \u9009\u201c\u662f\u201d\u6309\u94ae \u00a0<\/p>\n<p>\u00a0 7 \u9009\u201c\u5426\u201d\u6309\u94ae<\/p>\n<p>&nbsp;<\/p>\n<p>(7) \u683c\u5f0f\u8f93\u51fa\u51fd\u6570 Fromat<\/p>\n<p>\u2460\u683c\u5f0f\uff1a<\/p>\n<p>Format(\u76ee\u6807\u6570\u636e[,&#8221;\u683c\u5f0f&#8221;]) &#8216;\u683c\u5f0f\u8981\u52a0\u53cc\u5f15\u53f7<\/p>\n<p>\u00a0\u00a0\u00a0\u4f8b\uff1aPrint Format(1234.567, &#8220;00000.00&#8221;) &#8216;\u663e\u793a\u7ed3\u679c\u4e3a01234.57<\/p>\n<p>\u00a0\u00a0\u00a0Print Format(#5:06:18 PM#, &#8220;hh\u65f6mm\u5206ss\u79d2A\/P&#8221;) &#8216;\u663e\u793a\u4e3a05\u65f606\u5206\u949f18\u79d2P<\/p>\n<p>Print Format(&#8220;ABCDEFG&#8221;, &#8220;&lt;&#8220;) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 &#8216;\u663e\u793a\u4e3aabcdefg<\/p>\n<p>\u2461\u683c\u5f0f\u7b26(\u5177\u4f53\u7528\u6cd5\u53c2\u89c1P90-92\u8868)<\/p>\n<p>\u6570\u503c\u578b\u6570\u636e\uff1a0 # . , % $ + &#8211; E+ E-<\/p>\n<p>\u65e5\u671f\u548c\u65f6\u95f4\u6570\u636e\uff1ad dd ddd dddd ddddd w ww m mm mmm mmmm y yy yyyy q h hh m mm s ss ttttt AM\/PM(am\/pm) A\/P(a\/p)<\/p>\n<p>\u5b57\u7b26\u4e32\u6570\u636e\uff1a&gt; &lt; @ &amp;<\/p>\n<p>&nbsp;<\/p>\n<p>(8) \u8c03\u7528\u5916\u90e8\u5e94\u7528\u7a0b\u5e8f\u51fd\u6570Shell<\/p>\n<p>\u2460\u683c\u5f0f\uff1a<\/p>\n<p>N = Shell\uff08&#8221;\u5916\u90e8\u5e94\u7528\u7a0b\u5e8f&#8221;[\uff0c\u7a97\u53e3\u6837\u5f0f]\uff09 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u7a97\u53e3\u6837\u5f0f0 \u9690\u85cf 1 \u6b63\u5e38 2 \u6700\u5c0f\u5316 3 \u6700\u5927\u5316<\/p>\n<p>N = Shell\uff08&#8221;\u5916\u90e8\u5e94\u7528\u7a0b\u5e8f&#8221; + &#8221; &#8221; + &#8220;\u8981\u6253\u5f00\u7684\u6587\u4ef6&#8221;[\uff0c\u7a97\u53e3\u6837\u5f0f]\uff09 \u00a0&#8216;\u7a0b\u5e8f\u548c\u6587\u4ef6\u8981\u7528\u4e00\u4e2a\u7a7a\u683c\u9694\u5f00<\/p>\n<p>\u4f8b\uff1a<\/p>\n<p>N = Shell (&#8220;calc.exe&#8221;, 1) &#8216;\u6253\u5f00\u8ba1\u7b97\u5668(\u9700\u8981\u8fd4\u56de\u503c)<\/p>\n<p>Shell &#8220;notepad.exe&#8221; + &#8221; &#8221; + &#8220;D:\\\u5510\u8bd7.txt&#8221;, 1 \u00a0\u00a0\u00a0&#8216;\u7528\u8bb0\u4e8b\u672c\u6253\u5f00D:\\\u5510\u8bd7.txt(\u4e0d\u9700\u8981\u8fd4\u56de\u503c)<\/p>\n<p>\u2461\u8fd4\u56de\u503c\uff1a<\/p>\n<p>\u8fd4\u56de\u503cN\u662f\u4ee3\u8868\u7a0b\u5e8f\u8fd0\u884c\u7684\u4efb\u52a1\u6807\u8bc6\u7684\u4e00\u4e2a\u53cc\u7cbe\u5ea6\u578b\u6570\u636e\u3002<\/p>\n<p>\u203b\u6ce8\u610f\uff1a<\/p>\n<p>\u2460\u5982\u679c\u5916\u90e8\u5e94\u7528\u7a0b\u5e8f\u6216\u8981\u6253\u5f00\u7684\u6587\u4ef6\u8ddfVB\u7684exe\u53ef\u6267\u884c\u6587\u4ef6\u5728\u540c\u4e00\u4e2a\u6587\u4ef6\u5939\u5185\uff0c\u53ef\u4ee5\u7701\u7565\u8def\u5f84\uff1b<\/p>\n<p>\u2461\u5982\u679c\u4e0d\u9700\u8981\u8fd4\u56de\u503c\uff0cShell\u540e\u9762\u4e0d\u80fd\u52a0\u62ec\u53f7(\u4ee5\u5b50\u8fc7\u7a0b\u65b9\u5f0f\u8c03\u7528)\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>(9) \u4e24\u4e2a\u63a7\u5236\u4f4d\u7f6e\u7684\u5185\u90e8\u51fd\u6570\uff1a<\/p>\n<p>Tab(n) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u5b9a\u4f4d\u5230\u7b2cn\u5217\u5f00\u59cb\u8f93\u51fa\u6570\u636e(\u9ed8\u8ba4\u6bcf\u884c\u5f00\u5934\u5217\u53f7\u4e3a1)<\/p>\n<p>Spc(n) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u4ece\u5f53\u524d\u4f4d\u7f6e\u8df3\u8fc7n\u5217\u5f00\u59cb\u6253\u5370\u4e0b\u4e00\u4e2a\u6570\u636e<\/p>\n<p>\u203bTab\u51fd\u6570\u76f8\u5173\u8bf4\u660e\uff1a<\/p>\n<p>\u2460\u5982\u679c\u5f53\u524d\u7684\u663e\u793a\u4f4d\u7f6e\u5df2\u7ecf\u8d85\u8fc7n\uff0c\u5219\u81ea\u52a8\u4e0b\u79fb\u4e00\u884c(\u5373\u4e0b\u4e00\u884c\u7684n\u5217)\uff1b<\/p>\n<p>\u2461\u5982\u679cn&lt;1,\u5219\u628a\u8f93\u51fa\u4f4d\u7f6e\u79fb\u5230\u7b2c\u4e00\u5217\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>(10)\u00a0\u5224\u65ad\u51fd\u6570IsNumeric(N)\uff1a \u5224\u65adN\u7684\u503c\u662f\u5426\u4e3a\u6570\u503c\u578b\uff0c\u8fd4\u56de\u503c\u4e3a\u5e03\u5c14\u578b\uff08N\u4e3a\u4efb\u4f55\u6709\u6548\u7684\u8868\u8fbe\u5f0f\uff09<\/p>\n<p>\u00a0\u00a0 \u4f8b\uff1a<\/p>\n<p>\u00a0\u00a0 IsNumeric(&#8220;123&#8221;) &#8216;\u8fd4\u56deTure<\/p>\n<p>IsNumeric(&#8220;123abc&#8221;) &#8216;\u8fd4\u56deFalse<\/p>\n<p>&nbsp;<\/p>\n<p>(11) iif()\u51fd\u6570\uff1a\u6839\u636e\u8868\u8fbe\u5f0f\u7684\u503c\u4e3a\u771f\u6216\u5047\u8fd4\u56de\u5bf9\u5e94\u90e8\u5206<\/p>\n<p>\u2460\u683c\u5f0fIIf(\u8868\u8fbe\u5f0f, \u771f\u503c\u90e8\u5206, \u5047\u503c\u90e8\u5206)<\/p>\n<p>\u4f8b\uff1amax = IIf(max &lt; x, x, max)<\/p>\n<p>\u7b49\u540c\u4e8e\uff1a<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0If Max &lt; x Then<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Max = x<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Else<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Max = Max<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0End If<\/p>\n<p>&nbsp;<\/p>\n<p>5 \u51fd\u6570\u5e94\u7528\u4f8b\u5b50<\/p>\n<p>&nbsp;<\/p>\n<p>(1) \u5224\u65ad\u4e00\u4e2a\u6570\u7684\u5e73\u65b9\u6839\u662f\u5426\u4e3a\u6574\u6570<\/p>\n<p>Sqr(N)\u00a0=\u00a0Int(Sqr(N))<\/p>\n<p>(2) \u5224\u65ad\u4e00\u4e2a\u5b57\u7b26a\u662f\u5426\u4e3a\u6570\u5b57<\/p>\n<p>\u00a0\u00a0\u00a0\u65b9\u6cd51\uff1aIf a &gt;= &#8220;0&#8221; And a &lt;= &#8220;9&#8221;<\/p>\n<p>\u65b9\u6cd52\uff1aIf Asc(a)\u00a0&gt;= 48 And Asc(a)\u00a0&lt;= 57<\/p>\n<p>(3) \u5224\u65ad\u4e00\u4e2a\u5b57\u7b26a\u662f\u5426\u4e3a\u5927\u5199\u5b57\u6bcd<\/p>\n<p>\u00a0\u00a0\u00a0\u65b9\u6cd51\uff1aIf a &gt;= &#8220;A&#8221; And a &lt;= &#8220;Z&#8221;<\/p>\n<p>\u65b9\u6cd52\uff1aIf Asc(a)\u00a0&gt;= 65 And Asc(a)\u00a0&lt;= 90<\/p>\n<p>(4) \u5224\u65ad\u4e00\u4e2a\u5b57\u7b26a\u662f\u5426\u4e3a\u5c0f\u5199\u5b57\u6bcd<\/p>\n<p>\u00a0\u00a0\u00a0\u65b9\u6cd51\uff1aIf a &gt;= &#8220;a&#8221; And a &lt;= &#8220;z&#8221;<\/p>\n<p>\u65b9\u6cd52\uff1aIf Asc(a)\u00a0&gt;= 97 And Asc(a)\u00a0&lt;=122<\/p>\n<p>(5)\u00a0\u5224\u65ad\u6587\u672c\u6846\u5185\u5bb9\u662f\u5426\u4e3a\u6570\u5b57\u5b57\u7b26\u4e32<\/p>\n<p>IsNumeric(Text1.Text)<\/p>\n<p>(6) \u5224\u65ad\u67d0\u4e00\u5929\u662f\u4e00\u5e74\u4e2d\u7684\u7b2c\u51e0\u5929<\/p>\n<p>T =\u00a0DateDiff(\u00a0&#8220;y&#8221;,\u00a0&#8220;2018-1-1&#8221;,\u00a0&#8220;2018-7-8&#8221;\u00a0)\u00a0+ 1 \u00a0\u00a0\u00a0\u00a0\u00a0&#8216;189\u5929 \u00a0(&#8220;y&#8221;\u4ee3\u8868\u95f4\u9694\u5929\u6570)<\/p>\n<p>T = Format(\u00a0&#8220;2018-7-8&#8221;, &#8220;y&#8221;\u00a0) &#8216;189\u5929 (&#8220;y&#8221;\u4ee3\u8868\u7b2c\u51e0\u5929)<\/p>\n<p>(\u8fd8\u6709\u4e2a\u6700\u57fa\u672c\u7684\u65b9\u6cd5\uff1a\u5c31\u662f\u5148\u7b97\u51fa\u524d\u9762\u51e0\u4e2a\u6708\u7684\u603b\u5929\u6570\uff0c\u7136\u540e\u52a0\u4e0a\u5f53\u6708\u7684\u5929\u6570\uff0c\u53c2\u89c12018\u4e1c\u535a\u6a21\u62df\u8bd5\u9898\u7b2c6\u5957\u8bd5\u9898\u4e09\u6e14\u592b\u6253\u6e14\u4f8b\u5b50)<\/p>\n<p>(7) \u8ba1\u7b97\u7ecf\u8fc7\u65f6\u95f4\uff08\u4ee5\u79d2\u4e3a\u4f8b\uff09<\/p>\n<p>\u65b9\u6cd51\uff1a<\/p>\n<p>\u00a0\u00a0Dim T_start As String, T_end As String<\/p>\n<p>\u00a0\u00a0Dim S_start As Long, S_end As Long, t As Long<\/p>\n<p>\u00a0\u00a0T_start = Str(Time()) \u00a0&#8216;\u5f00\u59cb\u65f6\u95f4<\/p>\n<p>\u00a0\u00a0T_end = Str(Time()) \u00a0\u00a0&#8216;\u7ed3\u675f\u65f6\u95f4<\/p>\n<p>\u00a0\u00a0S_start = Hour(T_start) * 3600 + Minute(T_start) * 60 + Second(T_start) \u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u6362\u7b97\u79d2\u6570<\/p>\n<p>\u00a0\u00a0S_end = Hour(T_end) * 3600 + Minute(T_end) * 60 + Second(T_end)<\/p>\n<p>\u00a0\u00a0t = S_end &#8211; S_start \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u76f8\u5dee\u79d2\u6570<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u65b9\u6cd52\uff1a<\/p>\n<p>\u00a0\u00a0T_start = Str(Time()) \u00a0&#8216;\u5f00\u59cb\u65f6\u95f4<\/p>\n<p>\u00a0\u00a0T_end = Str(Time()) \u00a0\u00a0&#8216;\u7ed3\u675f\u65f6\u95f4<\/p>\n<p>\u00a0\u00a0t = DateDiff(&#8220;s&#8221;, T_start, T_end)<\/p>\n<p>(8) \u9650\u5236\u6587\u672c\u6846\u8f93\u5165\u5fc5\u987b\u662f\u6570\u5b57\u5b57\u7b26(Change\u4e8b\u4ef6\u4e2d\u5224\u65ad)\uff1a<\/p>\n<p>For i = 1 To Len(Text1.Text)<\/p>\n<p>\u00a0\u00a0x = Asc(Mid(Text1.Text, i, 1))<\/p>\n<p>\u00a0\u00a0If x &lt; 48 Or x &gt; 57 Then<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0MsgBox &#8220;\u8bf7\u8f93\u5165\u6570\u5b57&#8221;, , &#8220;\u8f93\u5165&#8221;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Text1.Text = &#8220;&#8221;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Text1.SetFocus<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Exit For<\/p>\n<p>\u00a0\u00a0End If<\/p>\n<p>Next i<\/p>\n<p>(9) \u4ea7\u751f\u4e00\u4e2a\u968f\u673a\u8272\uff1a<\/p>\n<p>Text1.ForeColor\u00a0= RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))<\/p>\n<p>(10) \u6570\u5b57\u5b57\u7b26\u4e32\u5012\u5e8f\u8f93\u51fa<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0If IsNumeric(Text1.Text) Then<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0x = Val(Text1.Text)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Do<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0t = x Mod 10<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0x = x \\ 10<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0s = s * 10 + t<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Loop While x &lt;&gt; 0<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Text2.Text = s<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0End If<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 Print\u65b9\u6cd5\u7684\u4f7f\u7528\u89c4\u5219(P32)\uff1a<\/p>\n<p>&nbsp;<\/p>\n<p>\u5355\u72ec\u4e00\u4e2aprint \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u6253\u5370\u7a7a\u767d\u884c<\/p>\n<p>\u6700\u540e\u4e00\u4e2a\u6253\u5370\u5bf9\u8c61\u540e\u9762\u4e0d\u5e26\u7b26\u53f7 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u6253\u5370\u540e\u81ea\u52a8\u6362\u884c<\/p>\n<p>\u6253\u5370\u5bf9\u8c61\u7528\u5206\u53f7&#8221;;&#8221;\u9694\u5f00 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u7d27\u51d1\u683c\u5f0f\uff08\u540e\u9762\u63a5\u7740\u6253\u4e0b\u4e00\u4e2a\u6253\u5370\u533a\uff09<\/p>\n<p>\u6253\u5370\u5bf9\u8c61\u7528\u9017\u53f7&#8221;,&#8221;\u9694\u5f00 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u5206\u533a\u683c\u5f0f:\u6bcf\u969414\u5217\u5f00\u59cb\u4e00\u4e2a\u6253\u5370\u533a<\/p>\n<p>\u6ce8\u610f\uff1aPrint\u5728\u6253\u5370\u6570\u503c\u548c\u6570\u5b57\u5b57\u7b26\u4e32\u65f6\u7684\u6ce8\u610f\u70b9\uff1a<\/p>\n<p>1 \u6253\u5370\u6570\u503c\u6570\u636e\u65f6\uff0c\u4f1a\u5728\u6570\u503c\u540e\u9762\u589e\u52a0\u4e00\u4e2a\u7a7a\u683c\uff1b\u5982\u679c\u662f\u6b63\u6570\uff0c\u8fd8\u4f1a\u5728\u524d\u9762\u589e\u52a0\u4e00\u4e2a\u4ee3\u8868\u6b63\u6570\u7b26\u53f7\u4f4d\u7684\u7a7a\u683c\uff1b\u4f8b\uff1a\u00a0Print\u00a0123 \u00a0\u00a0\u00a0\u7ed3\u679c\uff1a\u00a0\u00a0\u00a0_123_ \u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u8fd9\u91cc\u7684\u4e0b\u5212\u7ebf\u4ee3\u8868\u7a7a\u683c<\/p>\n<p>2 \u6253\u5370\u7531Str()\u8f6c\u6362\u8fc7\u6765\u7684\u6570\u5b57\u5b57\u7b26\u4e32\u65f6\uff0c\u5982\u679c\u662f\u6b63\u6570\uff0c\u4f1a\u5728\u524d\u9762\u589e\u52a0\u4e00\u4e2a\u4ee3\u8868\u6b63\u6570\u7b26\u53f7\u4f4d\u7684\u7a7a\u683c\uff0c\u4f46\u540e\u9762\u4e0d\u4f1a\u589e\u52a0\u7a7a\u683c\u3002 \u00a0\u4f8b\uff1a\u00a0Print\u00a0Str(123) \u00a0\u00a0\u00a0\u7ed3\u679c\uff1a\u00a0\u00a0\u00a0_123 \u00a0\u00a0\u00a0\u00a0<\/p>\n<p>3 \u6253\u5370\u7531CStr()\u8f6c\u6362\u8fc7\u6765\u7684\u6570\u5b57\u5b57\u7b26\u4e32\u65f6\uff0c\u524d\u540e\u90fd\u4e0d\u4f1a\u52a0\u7a7a\u683c\uff1b\u4f8b\uff1aPrint\u00a0Str(123) \u7ed3\u679c\uff1a123<\/p>\n<p>4 \u6253\u5370\u6570\u5b57\u5b57\u7b26\u4e32\u76f4\u63a5\u91cf\uff0c\u524d\u540e\u90fd\u4e0d\u4f1a\u52a0\u7a7a\u683c\uff1b\u4f8b\uff1aPrint\u00a0\u00a0&#8220;123&#8221; \u00a0\u00a0\u00a0\u7ed3\u679c\uff1a123<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 GoTo\u8bed\u53e5\u683c\u5f0f<\/p>\n<p>&nbsp;<\/p>\n<p>BQ\uff1a \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;BQ\u4e3a\u81ea\u5b9a\u4e49\u6807\u7b7e\u540d<\/p>\n<p>[\u8bed\u53e5\u5757]<\/p>\n<p>GoTo BQ<\/p>\n<p>&nbsp;<\/p>\n<p>\u203b\u6ce8\u610f\uff1aGoTo\u8bed\u53e5\u7684\u8fd0\u7528\u8981\u907f\u514d\u51fa\u73b0\u6b7b\u5faa\u73af<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u591a\u7a97\u4f53\u7a0b\u5e8f\u8bbe\u8ba1<\/p>\n<p>&nbsp;<\/p>\n<p>(1)\u5982\u4f55\u6dfb\u52a0\u7a97\u4f53<\/p>\n<p>\u65b9\u6cd51\uff1a\u901a\u8fc7\u83dc\u5355\u6dfb\u52a0<\/p>\n<p>\u201c\u5de5\u7a0b\u201d\u2192\u201c\u6dfb\u52a0\u7a97\u4f53\u201d<\/p>\n<p>\u65b9\u6cd52\uff1a\u901a\u8fc7\u5de5\u7a0b\u8d44\u6e90\u7ba1\u7406\u5668\u6dfb\u52a0<\/p>\n<p>\u53f3\u952e\u5355\u51fb\u5de5\u7a0b\u540d\u79f0\u2192\u201c\u6dfb\u52a0\u201d\u2192\u201c\u6dfb\u52a0\u7a97\u4f53\u201d<\/p>\n<p>(2)\u5982\u4f55\u8bbe\u7f6e\u542f\u52a8\u7a97\u4f53<\/p>\n<p>\u65b9\u6cd51\uff1a\u901a\u8fc7\u83dc\u5355\u8bbe\u7f6e<\/p>\n<p>\u201c\u5de5\u7a0b\u201d\u2192 \u201c\u5de5\u7a0bn\u5c5e\u6027\u201d \u2192\u201c\u901a\u7528\u201d \u2192\u201c\u542f\u52a8\u5bf9\u8c61\u201d<\/p>\n<p>\u65b9\u6cd52\uff1a\u901a\u8fc7\u5de5\u7a0b\u8d44\u6e90\u7ba1\u7406\u5668\u8bbe\u7f6e<\/p>\n<p>\u53f3\u952e\u5355\u51fb\u5de5\u7a0b\u540d\u79f0\u2192\u201c\u5de5\u7a0bn\u5c5e\u6027\u201d \u2192\u201c\u901a\u7528\u201d \u2192\u201c\u542f\u52a8\u5bf9\u8c61\u201d<\/p>\n<p>(3)\u6253\u5f00\u3001\u5173\u95ed\u7a97\u4f53\uff08Form2\u4e3a\u4f8b)<\/p>\n<ul>\n<li>\u6253\u5f00<\/li>\n<\/ul>\n<p>\u65b9\u6cd51\uff1a Form2.Show \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;Show\u65b9\u6cd5\u7b49\u540c\u4e8e\u65b9\u6cd52\u4e24\u884c\u8bed\u53e5<\/p>\n<p>\u65b9\u6cd52\uff1a \u00a0\u00a0\u00a0\u00a0Load Form2 &#8216;\u52a0\u8f7dForm2<\/p>\n<p>Form2.Visible = True &#8216;\u4f7fForm2 \u53ef\u89c1<\/p>\n<ul>\n<li>\u5173\u95ed<\/li>\n<\/ul>\n<p>Unload Form2 \u00a0&#8216;\u5378\u8f7dForm2<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u5982\u4f55\u8ba9\u6307\u5b9a\u7684\u6587\u672c\u6846\u83b7\u5f97\u7126\u70b9(Text2\u4e3a\u4f8b)<\/p>\n<p>\u00a0\u00a0\u00a0\u65b9\u6cd51\uff1aText2.SetFocus<\/p>\n<p>\u00a0\u00a0\u00a0\u65b9\u6cd52\uff1a\u6b65\u9aa4\uff1a(1)\u5728\u8be5\u6587\u672c\u6846\u524d\u9762\u653e\u7f6e\u4e00\u4e2aLabel\u63a7\u4ef6\uff0c<\/p>\n<p>(2)\u5c06Label\u63a7\u4ef6\u7684TabIndex\u5c5e\u6027\u503c\u8bbe\u4e3a\u6587\u672c\u6846\u63a7\u4ef6TabIndex\u5c5e\u6027\u503c\u51cf1\uff08\u5fc5\u9700\uff09<\/p>\n<p>(3)\u7ed9Label\u63a7\u4ef6\u8bbe\u7f6e\u5feb\u6377\u5efa<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u8fd9\u6837\uff0c\u6309\u6587\u672c\u6846\u524d\u9762\u7684Label\u63a7\u4ef6\u7684\u5feb\u6377\u5efa\uff0c\u5c31\u76f8\u5f53\u4e8e\u5b9a\u4f4d\u5230\u6587\u672c\u6846\uff08\u56e0\u4e3aLabel\u63a7\u4ef6\u4e0d\u80fd\u63a5\u6536\u7126\u70b9\u6240\u4ee5\u5c31\u8df3\u5230\u5b83\u540e\u9762\u7684\u6587\u672c\u6846\u4e86\uff09<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u56db\u820d\u4e94\u5165\uff0c\u4fdd\u7559\u6307\u5b9a\u4f4d\u6570\u5c0f\u6570\u65b9\u6cd5<\/p>\n<p>1 \u7528\u516c\u5f0f:<\/p>\n<p>X = Int(X * 10 ^ n + 0.5) \/ 10 ^ n \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u2018\u5c0f\u6570X\u4fdd\u7559n\u4f4d\u5c0f\u6570<\/p>\n<p>&nbsp;<\/p>\n<p>\u4f8b\uff1a\u4fdd\u7559\u6574\u6570 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0X = Int(X + 0.5)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u4fdd\u7559\u4e00\u4f4d\u5c0f\u6570 \u00a0\u00a0\u00a0\u00a0X = Int(X * 10 + 0.5) \/ 10<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u4fdd\u7559\u4e24\u4f4d\u5c0f\u6570 \u00a0\u00a0\u00a0\u00a0X = Int(X * 100 + 0.5) \/ 100<\/p>\n<p>\u4fdd\u7559\u4e09\u4f4d\u5c0f\u6570 \u00a0X = Int(X * 1000 + 0.5) \/ 1000<\/p>\n<p>&nbsp;<\/p>\n<p>\u203b\u6ce8\u610f\uff1a\u5982\u679c\u4ec5\u4fdd\u7559\u6307\u5b9a\u4f4d\u6570\u5c0f\u6570\u800c\u4e0d\u8981\u6c42\u56db\u820d\u4e94\u5165\uff0c\u53bb\u6389\u201c+ 0.5\u201d\u5373\u53ef<\/p>\n<p>&nbsp;<\/p>\n<p>2 \u7528Format\u51fd\u6570:<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0X = Format(X, &#8220;.00&#8243;) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 &#8216;\u683c\u5f0f\u5316\u53c2\u6570&#8221;.00&#8243;\u4e2d\u5c0f\u6570\u70b9\u540e\u9762\u51e0\u4e2a0\u5c31\u4fdd\u7559\u51e0\u4f4d<\/p>\n<p>\u4f8b\uff1a12.3456= Format(12.3456, &#8220;.00&#8221;) \u00a0\u00a0\u00a0\u00a0&#8216;\u4fdd\u7559\u4e24\u4f4d\u5c0f\u6570\uff0c\u7ed3\u679c\u4e3a12.35<\/p>\n<p>&nbsp;<\/p>\n<p>\u203b\u6ce8\u610f\uff1a\u5982\u679c\u7528Format\u51fd\u6570\u65b9\u5f0f\uff0c\u4fdd\u7559\u6307\u5b9a\u4f4d\u6570\u5c0f\u6570\u7684\u540e\u4e00\u4f4d\u81ea\u52a8\u6309\u56db\u820d\u4e94\u5165\u5904\u7406\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u57fa\u672c\u7b97\u6cd5<\/p>\n<p>&nbsp;<\/p>\n<p>1\u3001\u4ec0\u4e48\u53eb\u7b97\u6cd5\uff1a\u7b97\u6cd5\u662f\u6307\u89e3\u51b3\u4e00\u4e2a\u7279\u5b9a\u95ee\u9898\u91c7\u7528\u7684\u7279\u5b9a\u7684\u3001\u6709\u9650\u7684\u65b9\u6cd5\u548c\u6b65\u9aa4\u3002<\/p>\n<p>2\u3001\u7b97\u6cd5\u7684\u63cf\u8ff0\u65b9\u6cd5\uff1a\u81ea\u7136\u8bed\u8a00\u6cd5\u3001\u6d41\u7a0b\u56fe\u6cd5\u3001N-S\u56fe\u6cd5\u3001PAD\u56fe\u6cd5<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u7a0b\u5e8f\u7684\u4e09\u79cd\u63a7\u5236\u7ed3\u6784<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u987a\u5e8f\u7ed3\u6784\uff1a\u6309\u8bed\u53e5\u7684\u5148\u540e\u987a\u5e8f\u7ebf\u6027\u6267\u884c\u3002<\/p>\n<p>\u00a0\u00a0\u00a0\u9009\u62e9\u7ed3\u6784\uff1a\u6839\u636e\u6761\u4ef6\u9009\u62e9\u4e00\u6761\u7b26\u5408\u6761\u4ef6\u7684\u8def\u5f84\u6267\u884c\u76f8\u5e94\u7684\u8bed\u53e5\uff08\u5757\uff09\u3002<\/p>\n<p>\u00a0\u00a0\u00a0\u5faa\u73af\u7ed3\u6784\uff1a\u6ee1\u8db3\u67d0\u4e2a\u6761\u4ef6\u65f6\u5faa\u73af\u6267\u884c\u8bed\u53e5\uff08\u5757\uff09\uff0c\u76f4\u5230\u6761\u4ef6\u4e0d\u6210\u7acb\u3002 \u00a0<\/p>\n<p>&nbsp;<\/p>\n<p>1 \u9009\u62e9\u7ed3\u6784<\/p>\n<p>\u00a0\u00a0\u00a0\u9009\u62e9\u7ed3\u6784\u8bed\u53e5\u7684\u7c7b\u578b<\/p>\n<p>\u00a0\u00a0\u00a0(1) If Then \u00a0Else \u00a0\u8bed\u53e5<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u683c\u5f0f\uff1a \u00a0\u5355\u884c\u5f0f\uff1a\u2460 If \u2026\u2026Then \u2026\u2026<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u2461 If \u2026\u2026Then \u2026\u2026Else\u2026\u2026<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0\u533a\u5757\u5f0f\uff1a\u2460 \u00a0If \u2026\u2026Then<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u2026\u2026<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End If<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u2461 If \u2026\u2026Then<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u2026\u2026<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Else<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 \u2026\u2026<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End If<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0(2) If Then \u00a0ElseIf \u00a0\u8bed\u53e5<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u683c\u5f0f\uff1a \u00a0If \u2026\u2026 Then<\/p>\n<p>\u2026\u2026<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 ElseIf \u2026\u2026Then \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u53ef\u4ee5\u6709\u591a\u4e2aElseIf<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u2026\u2026<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0[Else<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u2026\u2026]<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0End If<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0(3) Select Case \u8bed\u53e5<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u683c\u5f0f\uff1a \u00a0\u00a0Select Case \u00a0\u8868\u8fbe\u5f0f \u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u4f9d\u636e\u8868\u8fbe\u5f0f\u7684\u503c\u9009\u62e9\u6267\u884c\u54ea\u4e2aCase\u5206\u652f<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Case \u00a0\u53d6\u503c\u5217\u8868 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u53ef\u4ee5\u6709\u591a\u4e2aCase\u5206\u652f<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u2026\u2026<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0[Case Else \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/p>\n<p>\u00a0\u00a0\u00a0 \u2026\u2026 \u00a0]<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0End Select<\/p>\n<p>\u53d6\u503c\u5217\u8868\u7684\u4e09\u79cd\u683c\u5f0f\uff08\u591a\u4e2a\u6570\u636e\u9879\u7528\u9017\u53f7\u9694\u5f00\uff0c\u4e09\u79cd\u683c\u5f0f\u53ef\u4ee5\u6df7\u5408\u4f7f\u7528\uff09\uff1a<\/p>\n<ul>\n<li>\u6570\u503c\u578b\u6216\u5b57\u7b26\u4e32\u578b\u5e38\u91cf\u3001\u53d8\u91cf\u6216\u8868\u8fbe\u5f0f\uff0c\u598210 , Asc(\u201cn\u201d)-5 , F , \u201cE\u201d<\/li>\n<\/ul>\n<p>(&#8216;\u5b57\u6bcd\u5e38\u91cf\u8981\u7528\u5f15\u53f7\u62ec\u8d77\u6765)<\/p>\n<ul>\n<li>\u7528\u201cTo\u201d\u8868\u793a\u7684\u6570\u503c\u6216\u5b57\u7b26\u4e32\u533a\u95f4\uff0c\u59821 To 10 , \u201cC\u201d To \u201cY\u201d &#8216;\u503c\u5c0f\u7684\u653e\u524d\u9762<\/li>\n<\/ul>\n<p>\u2462\u7528\u201cIs\u201d\u8868\u793a\u7684\u6570\u503c\u6216\u5b57\u7b26\u4e32\u533a\u95f4\u4eba\uff0c\u5982Is &gt;10 \u00a0&#8216;\u4e0d\u80fd\u7528And\u8fde\u63a5\u4e24\u4e2aIs<\/p>\n<p>\u203b\u6ce8\u610f\uff1a<\/p>\n<p>\u2460 \u6709\u591a\u4e2aCase\u5206\u652f\u5339\u914d\u65f6\u53ea\u6267\u884c\u6700\u524d\u9762\u7684\u4e00\u4e2a\u5206\u652f\uff1b\u90fd\u4e0d\u5339\u914d\u5219\u6267\u884cCase Else\u5206\u652f(\u5982\u679c\u6709Case Else\u5206\u652f\u7684\u8bdd);<\/p>\n<p>\u2461 \u65e0\u8bba\u6267\u884c\u54ea\u4e2aCase\u5206\u652f\uff0c\u6700\u540e\u90fd\u63a5\u7740\u6267\u884cEnd Select\u540e\u9762\u7684\u8bed\u53e5\uff08\u5982\u679c\u6709\u7684\u8bdd\uff09\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>2 \u00a0\u5faa\u73af\u7ed3\u6784<\/p>\n<p>\u00a0\u00a0\u00a0\u5faa\u73af\u7ed3\u6784\u8bed\u53e5\u7684\u4e09\u79cd\u7c7b\u578b<\/p>\n<p>\u00a0\u00a0\u00a0(1) For Next\u8bed\u53e5<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u683c\u5f0f\uff1a For \u5faa\u73af\u53d8\u91cf = \u521d\u59cb\u503c To \u7ec8\u6b62\u503c [Step \u6b65\u957f\u503c]<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0[\u5faa\u73af\u4f53\u8bed\u53e5\u5757]<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Next [\u5faa\u73af\u53d8\u91cf]<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u4f8b\uff1a For i = 1 To 9 Step 2 \u00a0\u00a0\u00a0\u00a0&#8216;\u5faa\u73af\u53d8\u91cf\u4e3ai\uff0c\u6b65\u957f\u4e3a2<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Print i;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Next i<\/p>\n<p>&nbsp;<\/p>\n<p>\u203b\u6ce8\u610f\uff1a<\/p>\n<p>\u2460 Step \u6b65\u957f\u503c\u9ed8\u8ba4\u4e3a1(\u5373\u503c\u4e3a1\u65f6\u53ef\u4ee5\u7701\u7565Step\u8bbe\u7f6e)<\/p>\n<p>\u2461 \u53ef\u4ee5\u7528Exit For \u8bed\u53e5\u968f\u65f6\u7ed3\u675f\u5faa\u73af(Exit For \u8bed\u53e5\u4e00\u822c\u653e\u5728If\u8bed\u53e5\u4e2d\u4f7f\u7528)<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0(2) While Wend\u8bed\u53e5<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u683c\u5f0f\uff1aWhile \u6761\u4ef6<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0[\u5faa\u73af\u4f53\u8bed\u53e5\u5757]<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Wend<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u4f8b\uff1a \u00a0i=1 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;i\u4f5c\u4e3a\u5faa\u73af\u53d8\u91cf<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0While i&lt;=9<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Print i;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0i=i+2\u00a0\u00a0\u00a0&#8216;\u5fc5\u987b\u5411\u7ed3\u675f\u65b9\u5411\u53d8\u5316i\u7684\u503c\uff0c\u5426\u5219\u5faa\u73af\u65e0\u6cd5\u7ed3\u675f(\u6b7b\u5faa\u73af)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Wend<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0(3) Do Loop\u8bed\u53e5<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u2460 \u5f53\u578b Do Loop\u8bed\u53e5\uff08\u5148\u5224\u65ad\uff0c\u540e\u6267\u884c\uff09<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u683c\u5f0f\uff1aDo [While|Until \u6761\u4ef6]<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0[\u5faa\u73af\u4f53\u8bed\u53e5\u5757] \u00a0\u00a0<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Loop<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u4f8b\uff1aDo While\u2026Loop \u8bed\u53e5\uff1a (While \u662f\u6761\u4ef6\u6210\u7acb\u65f6\u91cd\u590d\u6267\u884c)<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0i=1 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;i\u4f5c\u4e3a\u5faa\u73af\u53d8\u91cf<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Do While i&lt;=9 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Print i;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0i=i+2<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Loop \u00a0\u00a0\u00a0<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u4f8b\uff1a Do Until\u2026Loop \u8bed\u53e5\uff1a(Until \u662f\u6761\u4ef6\u4e0d\u6210\u7acb\u65f6\u91cd\u590d\u6267\u884c)<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0i=1<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Do Until i&gt;9 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Print i;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0i=i+2<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Loop \u00a0\u00a0<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u2461 \u76f4\u5230\u578b Do Loop\u8bed\u53e5\uff08\u5148\u6267\u884c\uff0c\u540e\u5224\u65ad\uff09<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u683c\u5f0f\uff1aDo<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0[\u5faa\u73af\u4f53\u8bed\u53e5\u5757] \u00a0\u00a0<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Loop [While|Until \u6761\u4ef6]<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u4f8b\uff1aDo Loop\u2026While\u2026 \u8bed\u53e5\uff1a<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0 \u00a0\u00a0i=1 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;i\u4f5c\u4e3a\u5faa\u73af\u53d8\u91cf<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Do<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Print i;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0i=i+2<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Loop While i&lt;=9<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u4f8b\uff1a Do Loop\u2026Until\u2026 \u8bed\u53e5\uff1a<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0i=1<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Do<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Print i;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0i=i+2<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Loop Until i&gt;9<\/p>\n<p>\u203b\u6ce8\u610f\uff1a<\/p>\n<p>\u2460\u7531\u4e8e\u5148\u6267\u884c\u540e\u5224\u65ad\uff0c\u76f4\u5230\u578b Do Loop\u8bed\u53e5\u7684\u5faa\u73af\u4f53\u8bed\u53e5\u5757\u81f3\u5c11\u4f1a\u88ab\u6267\u884c\u4e00\u6b21\uff01<\/p>\n<p>\u2461\u65e0\u8bba\u5f53\u578b\u8fd8\u662f\u76f4\u5230\u578bDo Loop\u8bed\u53e5\uff0c\u90fd\u53ef\u4ee5\u7528Exit Do \u8bed\u53e5\u968f\u65f6\u7ed3\u675f\u5faa\u73af(Exit Do \u8bed\u53e5\u4e00\u822c\u653e\u5728If\u8bed\u53e5\u4e2d\u4f7f\u7528\u3002 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u6570\u7ec4\u4e0e\u6570\u7ec4\u5143\u7d20\u76f8\u5173\u6982\u5ff5(P195)<\/p>\n<p>&nbsp;<\/p>\n<p><strong>\u6570\u7ec4<\/strong>\u662f\u4e00\u7ec4\u5177\u6709\u76f8\u540c\u6570\u636e\u7ed3\u6784\u7684\u5143\u7d20\u7ec4\u6210\u7684\u6709\u5e8f\u6570\u636e\u96c6\u5408\u3002<\/p>\n<p>\u6784\u6210\u6570\u7ec4\u7684\u5404\u4e2a\u5143\u7d20\u53eb\u505a<strong>\u6570\u7ec4\u5143\u7d20<\/strong>\uff0c\u4e5f\u53eb\u4e0b\u6807\u53d8\u91cf\u3002<\/p>\n<p>\u6570\u7ec4\u5143\u7d20\u7531\u6570\u7ec4\u540d\u548c\u62ec\u53f7\u5185\u7684\u4e0b\u6807\u7ec4\u6210\uff1b\u4e0b\u6807\u53ef\u4ee5\u662f\u5e38\u91cf\u3001\u53d8\u91cf\u548c\u6570\u503c\u578b\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>\u6570\u7ec4\u7528\u4e00\u4e2a\u7edf\u4e00\u7684\u540d\u5b57\u6765\u6807\u8bc6\u8fd9\u4e9b\u5143\u7d20\uff0c\u8fd9\u4e2a\u540d\u79f0\u5c31\u53eb<strong>\u6570\u7ec4\u540d<\/strong>\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>\u4e00\u3001\u6570\u7ec4\u7684\u5206\u7c7b<\/p>\n<p>1\u6309\u6570\u7ec4\u7684\u5927\u5c0f\uff08\u5143\u7d20\u4e2a\u6570\uff09\u662f\u5426\u53ef\u4ee5\u6539\u53d8\u6765\u5206\u4e3a\uff1a<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u5b9a\u957f\u6570\u7ec4\u3001\u52a8\u6001\u6570\u7ec4\u3002<\/p>\n<p>2\u6309\u5143\u7d20\u7684\u6570\u636e\u7c7b\u578b\u53ef\u5206\u4e3a\uff1a<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u6570\u503c\u578b\u6570\u7ec4\u3001\u5b57\u7b26\u4e32\u578b\u6570\u7ec4\u3001\u903b\u8f91\u578b\u6570\u7ec4\u3001\u65e5\u671f\u578b\u6570\u7ec4\u3001\u53d8\u4f53\u578b\u6570\u7ec4\u7b49\u3002<\/p>\n<p>3\u6309\u6570\u7ec4\u7684\u7ef4\u6570\u53ef\u5206\u4e3a\uff1a<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u4e00\u7ef4\u6570\u7ec4\u3001\u4e8c\u7ef4\u6570\u7ec4\u3001\u591a\u7ef4\u6570\u7ec4\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>\u4e8c\u3001\u4e00\u7ef4\u6570\u7ec4\u7684\u5b9a\u4e49<\/p>\n<p>1\u683c\u5f0f\uff1a \u00a0\u00a0<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Dim \u6570\u7ec4\u540d ( [ \u4e0b\u754c to ] \u4e0a\u754c ) [ As &lt;\u6570\u636e\u7c7b\u578b&gt; ]<\/p>\n<p>\u6216\uff1a \u00a0Dim \u6570\u7ec4\u540d [ \u6570\u636e\u7c7b\u578b\u7b26 ] ( [ \u4e0b\u754c to ] \u4e0a\u754c )<\/p>\n<p>&nbsp;<\/p>\n<p>\u4f8b1\uff1a \u00a0\u00a0\u00a0Dim a(1 to 10) As Integer \u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u58f0\u660e\u4e86\u6709<strong><b>10<\/b><\/strong>\u4e2a\u5143\u7d20\uff0c\u540d\u79f0\u4e3aa\u7684\u6574\u578b\u4e00\u7ef4\u6570\u7ec4<\/p>\n<p>\u6216\uff1a Dim a%(1 to 10)<\/p>\n<p>&nbsp;<\/p>\n<p>\u4f8b2(\u7f3a\u7701\u4e0b\u754c)\uff1a \u00a0Dim a(10) As String \u00a0\u00a0&#8216;\u58f0\u660e\u4e86\u6709<strong><b>11<\/b><\/strong>\u4e2a\u5143\u7d20\uff0c\u540d\u79f0\u4e3aa\u7684\u5b57\u7b26\u4e32\u578b\u4e00\u7ef4\u6570\u7ec4<\/p>\n<p>\u6216\uff1a Dim a$( 10)<\/p>\n<p>&nbsp;<\/p>\n<p>2\u3001\u51e0\u70b9\u8bf4\u660e<\/p>\n<ul>\n<li>\u6570\u7ec4\u4e2d\u5404\u5143\u7d20\u5728\u5185\u5b58\u4e2d\u5360\u636e\u4e00\u7247\u8fde\u7eed\u7684\u5b58\u50a8\u7a7a\u95f4\u3002<\/li>\n<li>\u4e0b\u754c\u548c\u4e0a\u754c\u4e0d\u80fd\u4f7f\u7528\u53d8\u91cf\uff0c\u5fc5\u987b\u662f\u5e38\u91cf\uff1b\u5e38\u91cf\u53ef\u4ee5\u662f\u6574\u5f62\u5e38\u91cf\u6216\u7b26\u53f7\u5e38\u91cf\u3002<\/li>\n<li>\u6570\u7ec4\u7684\u5143\u7d20\u4e2a\u6570\u7684\u8ba1\u7b97\u65b9\u6cd5\uff1a\u4e0a\u754c-\u4e0b\u754c+1 \u00a0\u00a0\u00a0\u00a0<\/li>\n<\/ul>\n<p>\u4f8b\uff1a UBound(a)- LBound(a)+1 \u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u83b7\u53d6\u4e00\u7ef4\u6570\u7ec4a\u7684\u5143\u7d20\u4e2a\u6570<\/p>\n<p>\u51fd\u6570UBound\u8fd4\u56de\u6307\u5b9a\u6570\u7ec4\u7b2cn\u7ef4\u4e0b\u6807\u4e0a\u754c \u00a0\u00a0<\/p>\n<p>\u683c\u5f0f\uff1a UBound(\u6570\u7ec4\u540d,[\u7b2cn\u7ef4]) \u00a0<\/p>\n<p>\u51fd\u6570LBound\u8fd4\u56de\u6307\u5b9a\u6570\u7ec4\u7b2cn\u7ef4\u4e0b\u6807\u4e0b\u754c\uff08\u4e00\u7ef4\u6570\u7ec4\u7b2c\u4e8c\u4e2a\u53c2\u6570\u53ef\u4ee5\u7701\u7565\uff09 \u00a0<\/p>\n<p>\u00a0\u00a0 \u683c\u5f0f\uff1a LBound(\u6570\u7ec4\u540d,[\u7b2cn\u7ef4])<\/p>\n<ul>\n<li>\u5f53\u4e0b\u754c\u4e3a0\u65f6\u53ef\u4ee5\u7701\u7565\uff08\u5373\u7f3a\u7701\u4e0b\u754c\u4e3a0\uff09<\/li>\n<li>\u5982\u679c\u8981\u5c06\u7f3a\u7701\u4e0b\u754c\u8bbe\u4e3a1\uff0c\u53ef\u5728\u6a21\u5757\u7684\u901a\u7528\u90e8\u5206\u4f7f\u7528Option Base\u8bed\u53e5\u8bbe\u4e3a1\u3002<\/li>\n<\/ul>\n<p>\u683c\u5f0f\uff1a<\/p>\n<p>\u00a0\u00a0\u00a0Option Base \u00a01 \u00a0\u00a0&#8216;\u5c06\u6570\u7ec4\u58f0\u660e\u4e2d\u7f3a\u7701\u4e0b\u754c\u8bbe\u4e3a 1 (Option Base\u540e\u9762\u7684\u53c2\u6570\u53ea\u80fd\u53d60\u6216 1\uff09<\/p>\n<ul>\n<li>\u5982\u679c\u7701\u7565As\u5b50\u53e5\uff0c\u5219\u6570\u7ec4\u7684\u7c7b\u578b\u4e3a\u53d8\u4f53\u578b\u3002<\/li>\n<\/ul>\n<p>&nbsp;<\/p>\n<p>\u4e09\u3001\u4e00\u7ef4\u6570\u7ec4\u5143\u7d20\u7684\u5f15\u7528\u4e0e\u8d4b\u503c<\/p>\n<p>\u683c\u5f0f \u00a0\u6570\u7ec4\u540d(\u4e0b\u6807) = \u503c \u00a0\u00a0<\/p>\n<p>\u4f8b \u00a0\u00a0a(5)=10 \u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u8868\u793a\u5c06a\u6570\u7ec4\u4e2d\u7684\u7b2c5\u4e2a\u5143\u7d20\u7684\u503c\u8bbe\u4e3a\u6574\u657010<\/p>\n<p>&nbsp;<\/p>\n<p>\u56db\u3001 \u52a8\u6001\u6570\u7ec4<\/p>\n<p>\u00a0\u00a01 \u6982\u5ff5 \u00a0\u52a8\u6001\u6570\u7ec4\u5c31\u662f\u6570\u7ec4\u5143\u7d20\u4e2a\u6570\u4e0d\u56fa\u5b9a\u7684\u6570\u7ec4\u3002<\/p>\n<p>\u00a0\u00a02 \u5b9a\u4e49 \u00a0<\/p>\n<p>\u683c\u5f0f1\uff1a \u00a0\u00a0<\/p>\n<p>Dim \u6570\u7ec4\u540d () [ As &lt;\u6570\u636e\u7c7b\u578b&gt; ]<\/p>\n<p>\u6216\uff1a Dim \u6570\u7ec4\u540d [ \u6570\u636e\u7c7b\u578b\u7b26 ] ()<\/p>\n<p>&nbsp;<\/p>\n<p>\u4f8b\uff1a \u00a0\u00a0\u00a0Dim a() As Integer \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u58f0\u660e\u4e86\u540d\u79f0\u4e3aa\u7684\u6574\u578b\u4e00\u7ef4\u52a8\u6001\u6570\u7ec4<\/p>\n<p>\u6216\uff1aDim a%()<\/p>\n<p>&nbsp;<\/p>\n<p>\u683c\u5f0f2\uff1a<\/p>\n<p>ReDim [Preserve] \u6570\u7ec4\u540d ([ \u4e0b\u754c to ] \u4e0a\u754c) [ As &lt;\u6570\u636e\u7c7b\u578b&gt; ]<\/p>\n<p>\u6216\uff1aReDim \u00a0[Preserve] \u6570\u7ec4\u540d [ \u6570\u636e\u7c7b\u578b\u7b26 ] ([ \u4e0b\u754c to ] \u4e0a\u754c)<\/p>\n<p>&nbsp;<\/p>\n<p>\u4f8b1\uff1a \u00a0\u00a0ReDim a(10) As Integer \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u58f0\u660e\u4e86\u6709<strong><b>11<\/b><\/strong>\u4e2a\u5143\u7d20\u540d\u79f0\u4e3aa\u7684\u6574\u578b\u4e00\u7ef4\u52a8\u6001\u6570\u7ec4<\/p>\n<p>\u6216\uff1aReDim a%(10)<\/p>\n<p>\u4f8b2\uff1a \u00a0\u00a0ReDim a(N) As Integer \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u58f0\u660e\u4e86\u6709<strong><b>N+1<\/b><\/strong>\u4e2a\u5143\u7d20\u540d\u79f0\u4e3aa\u7684\u6574\u578b\u4e00\u7ef4\u52a8\u6001\u6570\u7ec4<\/p>\n<p>\u6216\uff1aReDim a%(N)<\/p>\n<p>3\u3001\u51e0\u70b9\u8bf4\u660e<\/p>\n<ul>\n<li>\u5b9a\u4e49\u6570\u7ec4\u65f6\uff0c\u5982\u679c\u4e0b\u754c\u6216\u4e0a\u754c\u662f\u53d8\u91cf\uff0c\u5fc5\u987b\u5b9a\u4e49\u4e3a\u52a8\u6001\u6570\u7ec4\u3002<\/li>\n<li>\u7528ReDim\u5b9a\u4e49\u52a8\u6001\u6570\u7ec4\u5fc5\u987b\u5e26\u4e0b\u6807\uff08\u5373\u6570\u7ec4\u540d\u540e\u9762\u7684\u62ec\u53f7\u4e0d\u80fd\u4e3a\u7a7a\uff09\uff1b<\/li>\n<li>\u7528ReDim\u5b9a\u4e49\u65f6\uff0c\u5982\u679c\u7528\u53d8\u91cf\u4f5c\u4e3a\u4e0b\u6807\uff0c\u5219\u8be5\u8bed\u53e5\u53ea\u80fd\u4f4d\u4e8e\u53d8\u91cf\u88ab\u8d4b\u503c\u7684\u4f4d\u7f6e\u4e4b\u540e\u3002<\/li>\n<li>\u7528ReDim\u91cd\u65b0\u8bbe\u7f6e\u5143\u7d20\u4e2a\u6570\u65f6\u4e0d\u80fd\u6539\u53d8\u6570\u636e\u7c7b\u578b<\/li>\n<li>\u7528ReDim\u91cd\u65b0\u8bbe\u7f6e\u5143\u7d20\u4e2a\u6570\u65f6\uff0c\u8981\u60f3\u4fdd\u7559\u539f\u6570\u636e\u8981\u52a0\u4e0aPreserve\u53c2\u6570\u3002<\/li>\n<\/ul>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u76f8\u5173\u5e94\u7528\u7b97\u6cd5<\/p>\n<p>&nbsp;<\/p>\n<p>\uff081\uff09\u5faa\u73af\u83b7\u53d6\u968f\u673a\u6570\u65f6\u5982\u4f55\u6392\u9664\u91cd\u590d\uff1a\u5728\u5faa\u73af\u4f53\u91cc\u5d4c\u5957\u4e00\u4e2aFor\u5faa\u73af\u8fdb\u884c\u5224\u65ad<\/p>\n<p>\u00a0\u00a0\u00a0\u4f8b\uff1a Dim N%(1 To 10) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u5b9a\u4e49\u4e00\u7ef4\u6570\u7ec4<\/p>\n<p>Randomize<\/p>\n<p>For i = 1 To 10<\/p>\n<p>\u00a0\u00a0 N(i) = Int(Rnd * 90 + 10) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u83b7\u53d6\u968f\u673a\u6570<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Rem \u6392\u9664\u91cd\u590d\u4ee3\u7801 ( \u2605\u6ce8\u610f\u8be5\u6bb5\u4ee3\u7801\u7684\u4f4d\u7f6e\uff1aN(i)\u83b7\u53d6\u4e00\u4e2a\u65b0\u503c\u4e4b\u540e )<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 <strong><b>For j = 1 To i &#8211; 1<\/b><\/strong><\/p>\n<p><strong><b>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/b><\/strong> <strong><b>If N(i) = N(j) Then<\/b><\/strong><\/p>\n<p><strong><b>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/b><\/strong> <strong><b>\u00a0<\/b><\/strong> <strong><b>i = i &#8211; 1<\/b><\/strong><\/p>\n<p><strong><b>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/b><\/strong> <strong><b>Exit For<\/b><\/strong><\/p>\n<p><strong><b>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/b><\/strong> <strong><b>End If<\/b><\/strong><\/p>\n<p><strong><b>\u00a0\u00a0\u00a0\u00a0<\/b><\/strong> <strong><b>Next j<\/b><\/strong><\/p>\n<p>Next i<\/p>\n<p>\u203b\u8bf4\u660e\uff1a\u5982\u679c\u5c06\u5185\u5c42\u5faa\u73af\u4e2d\u7684\u5224\u65ad\u6761\u4ef6\u6539\u6210N(i) Mod\u00a02 = 0 \uff0c\u5373\u53ef\u4ea7\u751f\u5168\u90e8\u968f\u673a\u5947\u6570\u6216\u5076\u6570\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>\uff082\uff09\u5982\u4f55\u5faa\u73af\u8f93\u5165\u6570\u636e\uff1a<\/p>\n<p>\u4f8b\uff1a \u00a0\u00a0\u00a0 x = Val(InputBox(&#8220;\u8bf7\u8f93\u5165\u5019\u9009\u4eba\u7f16\u53f7&#8221;))<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Do Until x = -1 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;x = -1\u4e3a\u5faa\u73af\u7ed3\u675f\u6761\u4ef6<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 a(x) = a(x) + 1 \u00a0\u00a0\u00a0&#8216;\u5904\u7406\u6570\u636e\u7684\u76f8\u5173\u4ee3\u7801\u5757<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 x = Val(InputBox(&#8220;\u8bf7\u8f93\u5165\u5019\u9009\u4eba\u7f16\u53f7&#8221;))<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Loop<\/p>\n<p>\uff083\uff09\u4e00\u7ef4\u6570\u7ec4\u6c42\u6700\u503c\uff08\u6570\u7ec4\u4e2d\u7684\u6700\u5927\u6570\u548c\u6700\u5c0f\u6570\uff09\u7684\u4e24\u79cd\u65b9\u6cd5<\/p>\n<p>\u65b9\u6cd5\u4e00\uff1a\u5c06\u5b58\u653e\u6700\u5927\u503c\u7684MAX\u53d8\u91cf\u521d\u59cb\u503c\u8bbe\u4e3a0\uff0c\u5b58\u653e\u6700\u5c0f\u503c\u7684MIN\u521d\u59cb\u503c\u8bbe\u4e3a\u53ef\u80fd\u7684\u6700\u5927\u503c<\/p>\n<p>\u4f8b\uff1a \u00a0 Rem \u5b9a\u4e49\u53d8\u91cf<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Dim a(2) As Integer<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Dim max, min As Integer \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;max\u5b58\u653e\u6700\u5927\u503c min\u5b58\u653e\u6700\u5c0f\u503c<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Rem \u53d8\u91cf\u521d\u59cb\u5316<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 max = 0: min = 100 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u5c06max\u8d4b\u4e3a\u6700\u5c0f\u503c,min\u8d4b\u4e3a\u6700\u5927\u503c<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Rem \u7528\u968f\u673a\u6570\u7ed9\u6570\u7ec4\u5404\u5143\u7d20\u8d4b\u503c<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Randomize<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 For j = 0 To 2<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 a(j) = Int(Rnd * 100) + 1<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Next j<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Rem \u5224\u65ad<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 For i = 0 To 2<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 If max &lt; a(i) Then max = a(i)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 If min &gt; a(i) Then min = a(i)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Next i<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Rem \u663e\u793a\u7ed3\u679c<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Print &#8220;\u6700\u5927\u503c\u662f&#8221; &amp; max<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Print &#8220;\u6700\u5c0f\u503c\u662f&#8221; &amp; min<\/p>\n<p>&nbsp;<\/p>\n<p>\u65b9\u6cd5\u4e8c\uff1a\u5c06\u5b58\u653e\u6700\u5927\u503c\u7684MAX\u548c\u5b58\u653e\u6700\u5c0f\u503c\u7684MIN\u53d8\u91cf\u521d\u59cb\u503c\u90fd\u8bbe\u6570\u7ec4\u7b2c\u4e00\u4e2a\u5143\u7d20\u503c<\/p>\n<p>\u4f8b\uff1a \u00a0 Rem \u5b9a\u4e49\u53d8\u91cf<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Dim a(2) As Integer<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Dim max, min As Integer \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;max\u5b58\u653e\u6700\u5927\u503c min\u5b58\u653e\u6700\u5c0f\u503c<\/p>\n<p>&nbsp;<\/p>\n<p>Rem \u7528\u968f\u673a\u6570\u7ed9\u6570\u7ec4\u5404\u5143\u7d20\u8d4b\u503c<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Randomize<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 For j = 0 To 2<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 a(j) = Int(Rnd * 100) + 1<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Next j<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Rem \u53d8\u91cf\u521d\u59cb\u5316<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 max = a(0)\u00a0: min = a0) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;max\u548c min\u90fd\u8bbe\u4e3a\u6570\u7ec4\u7b2c\u4e00\u4e2a\u5143\u7d20\u503c<\/p>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Rem \u5224\u65ad<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 For i = 1\u00a0To 2<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 If max &lt; a(i) Then max = a(i)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 If min &gt; a(i) Then min = a(i)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Next i<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Rem \u663e\u793a\u7ed3\u679c<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Print &#8220;\u6700\u5927\u503c\u662f&#8221; &amp; max<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Print &#8220;\u6700\u5c0f\u503c\u662f&#8221; &amp; min<\/p>\n<p>&nbsp;<\/p>\n<p>\u203b\u6ce8\u610f\uff1a\u2460\u4e24\u79cd\u65b9\u6cd5\u5728\u5224\u65ad\u65f6\u5faa\u73af\u53d8\u91cf\u7684\u8d77\u59cb\u503c\u7684\u533a\u522b<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u2461\u7528\u65b9\u6cd5\u4e8c\u65f6\uff0cmax\u548c min\u53d8\u91cf\u521d\u59cb\u5316\u53ea\u80fd\u653e\u5728\u6570\u7ec4\u5143\u7d20\u503c\u521d\u59cb\u5316\u4e4b\u540e<\/p>\n<p>&nbsp;<\/p>\n<p>\uff084\uff09\u4e00\u7ef4\u6570\u7ec4\u5012\u5e8f(\u5b58\u653e)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u4f8b\uff1a Dim a(1 To 10) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u5b9a\u4e49\u4e00\u4e2a\u670910\u4e2a\u5143\u7d20\u7684\u4e00\u7ef4\u6570\u7ec4a<\/p>\n<p>\u00a0\u00a0\u00a0 Cls<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Print &#8220;\u539f\u6570\u7ec4\uff1a&#8221;;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Randomize \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u521d\u59cb\u5316\u968f\u673a\u6570\u53d1\u751f\u5668<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 For i = 1 To 10<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 a(i) = Int(Rnd * 20 + 1) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u4ea7\u751f1-20\u7684\u968f\u673a\u6574\u6570<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Print a(i); &#8221; \u00a0&#8220;;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Next<\/p>\n<p>\u00a0\u00a0\u00a0 \u00a0 Print<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Print &#8220;\u8c03\u6362\u540e\uff1a&#8221;;<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Rem \u8c03\u6362<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 For i = 1 To 5<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 t = a(i) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;t\u662f\u4e34\u65f6\u53d8\u91cf<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 a(i) = a(11 &#8211; i)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 a(11 &#8211; i) = t<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Next<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 For i = 1 To 10<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Print a(i); &#8221; \u00a0&#8220;;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 Next<\/p>\n<p>&nbsp;<\/p>\n<p>\u2460 \u4e0b\u754c\u4e3a1\u65f6\u7684\u5012\u53d9\u7b97\u6cd5\uff08 Dim a(1 To \u4e0a\u754c) \uff09<\/p>\n<p>\u00a0\u00a0\u00a0For i = 1 To \u5143\u7d20\u4e2a\u6570 \/ 2<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0t = a(i)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0a(i) = a(\u4e0a\u754c &#8211; i + 1)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0a(\u4e0a\u754c &#8211; i + 1) = t<\/p>\n<p>Next<\/p>\n<p>&nbsp;<\/p>\n<p>\u2461 \u4e0b\u754c\u4e3a0\u65f6\u7684\u5012\u53d9\u7b97\u6cd5\uff08 Dim a(\u4e0a\u754c) \uff09<\/p>\n<p>\u00a0\u00a0&#8216;\u5143\u7d20\u4e2a\u6570=\u4e0a\u754c-\u4e0b\u754c+1 \u00a0(\u5143\u7d20\u4e2a\u6570=UBound(a) &#8211; LBound(a) + 1)<\/p>\n<p>For i = 0 To \u5143\u7d20\u4e2a\u6570 \/ 2 &#8211; 1<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0t = a(i)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0a(i) = a(\u4e0a\u754c &#8211; i )<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0a(\u4e0a\u754c &#8211; i) = t<\/p>\n<p>Next<\/p>\n<p>\u2462 \u4efb\u610f\u4e0b\u754c\u5230\u4e0a\u754c\u7684\u5012\u53d9\u7b97\u6cd5\uff08 Dim a(\u4e0b\u754c To \u4e0a\u754c) \uff09<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0For i = \u4e0b\u754c To \u5143\u7d20\u4e2a\u6570 \/ 2 &#8211; 1 +\u4e0b\u754c<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0t = a(i)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0a(i) = a(\u4e0a\u754c &#8211; i +\u4e0b\u754c)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0a(\u4e0a\u754c &#8211; i +\u4e0b\u754c) = t<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Next<\/p>\n<p>\uff085\uff09\u4e00\u7ef4\u6570\u7ec4\u663e\u793a\u6570\u636e\u7684\u5b9a\u4f4d\u4e0e\u6362\u884c\u7b97\u6cd5<\/p>\n<p>\u6253\u5370\u524d\u6362\u884c\uff1a \u00a0If (\u5faa\u73af\u53d8\u91cf &#8211; \u4e0b\u754c ) Mod \u6bcf\u884c\u663e\u793a\u4e2a\u6570 = 0 \u00a0Then \u00a0Print<\/p>\n<p>\u5b9a\u4f4d\uff1aPrint Tab(((\u5faa\u73af\u53d8\u91cf &#8211; \u4e0b\u754c\uff09Mod \u6bcf\u884c\u663e\u793a\u4e2a\u6570) *\u95f4\u9694\u5b57\u7b26\u6570 + \u6bcf\u884c\u5f00\u5934\u7a7a\u683c\u6570);<\/p>\n<p>\u6253\u5370\u540e\u6362\u884c\uff1a \u00a0If (\u5faa\u73af\u53d8\u91cf &#8211; \u4e0b\u754c + 1) Mod \u6bcf\u884c\u663e\u793a\u4e2a\u6570 = 0 \u00a0Then \u00a0Print \u00a0\u00a0\u00a0\u00a0\u00a0<\/p>\n<p>&nbsp;<\/p>\n<p>\u203b\u6ce8\u610f\uff1a<\/p>\n<p>\u2460\u6253\u5370\u524d\u6362\u884c\u5f00\u5934\u6bd4\u6253\u5370\u540e\u6362\u884c\u591a\u7a7a\u4e86\u4e00\u884c(\u5982\u679c\u52a0\u4e2a\u5206\u53f7\u5199\u6210Print;\u5219\u4e0d\u4f1a\u591a\u4e00\u7a7a\u884c)\uff1b<\/p>\n<p>\u2461\u8be5\u6362\u884c\u7b97\u6cd5\u53ea\u9488\u5bf9\u7531Tab\u5b9a\u4f4d\u7684\u60c5\u51b5\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>\u4f8b\uff1a<\/p>\n<p>\u00a0\u00a0\u00a0 Dim a(6 To 45) As Integer \u00a0\u00a0&#8216;\u5b9a\u4e49\u4e00\u4e2a\u4e0b\u754c\u4e3a6\u4e0a\u754c\u4e3a45\u7684\u670940\u4e2a\u5143\u7d20\u7684\u4e00\u7ef4\u6570\u7ec4a<\/p>\n<p>Cls<\/p>\n<p>Randomize \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u521d\u59cb\u5316\u968f\u673a\u6570\u53d1\u751f\u5668<\/p>\n<p>For i = 6 \u00a0To \u00a045<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 a(i) = Int(Rnd * 90 + 10) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u4ea7\u751f\u4e24\u4f4d\u968f\u673a\u6574\u6570<\/p>\n<p>Next<\/p>\n<p>&nbsp;<\/p>\n<p>For i = 6 \u00a0To \u00a045<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0If (i &#8211; 6) Mod 10 = 0 Then Print \u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u6253\u5370\u524d\u6362\u884c<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Print Tab(((i &#8211; 6) Mod 10) * 10 + 2); a(i);<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;If (i &#8211; 6 + 1) Mod 10 = 0 Then Print \u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u6253\u5370\u540e\u6362\u884c<\/p>\n<p>Next<\/p>\n<p>&nbsp;<\/p>\n<p>\uff086\uff09\u4e00\u7ef4\u6570\u7ec4\u6392\u5e8f<\/p>\n<p>\u2460 \u9009\u62e9\u6cd5\u6392\u5e8f<\/p>\n<p>\u9009\u62e9\u6cd5\u6392\u5e8f\u4ece\u524d\u5f80\u540e\u56fa\u5b9a\u5df2\u6392\u5b9a\u7684\u6570\u636e\uff0cn\u4e2a\u6570\u636e\u9700\u6bd4\u8f83n-1\u8f6e\uff0c\u6bcf\u8f6e\u6bd4\u8f83n-i\u6b21\uff08i\u4e3a\u7b2c\u51e0\u8f6e\uff09\u3002<\/p>\n<p>\u9009\u62e9\u6cd5\u6392\u5e8f\u4e00\u822c\u7b97\u6cd5 \u00a0\u00a0( \u5047\u8bbe\u6709n\u4e2a\u6570\u636e\u5b58\u653e\u5728\u4e00\u7ef4\u6570\u7ec4a\u4e2d\u8fdb\u884c\u4ece\u5c0f\u5230\u5927\u6392\u5e8f \uff09<\/p>\n<p>\u7b97\u6cd51\uff1a<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Rem \u4e0b\u754c\u4e3a1\u65f6\uff1a<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0For i = 1 To n \u2013\u00a01 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u2018\u9700\u6bd4\u8f83n-1\u8f6e<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0For<strong>\u00a0j = i+1 To n<\/strong>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u2018\u6bcf\u8f6e\u6bd4\u8f83n-i\u6b21<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0If a(i) &gt; a(j) Then<\/p>\n<p>\u00a0 t =a(i) \u00a0: \u00a0a(i)=a(j) \u00a0: \u00a0a(j)=t \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u2018t\u4e3a\u4e34\u65f6\u53d8\u91cf<\/p>\n<p>End if<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Next j<\/p>\n<p>Next i<\/p>\n<p>&nbsp;<\/p>\n<p>Rem\u754c\u4e3a0\u65f6\uff1a<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0For i = 0 \u00a0To \u00a0n &#8211;\u00a02<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0For j = i + 1\u00a0\u00a0To\u00a0\u00a0n\u00a0&#8211;\u00a01<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0If a(i) &gt; a(j) Then<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0t = a(i): a(i) = a(j): a(j) = t \u00a0\u00a0\u00a0&#8216;t\u4e3a\u4e34\u65f6\u53d8\u91cf<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0End If<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Next j<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Next i<\/p>\n<p>&nbsp;<\/p>\n<p>\u7b97\u6cd52(\u4f7f\u7528\u6807\u8bb0\u53d8\u91cfp)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0For i = 1 To n \u2013\u00a01<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0P=i<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0For j = i+1 \u00a0To\u00a0\u00a0n<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0If a(p) &gt; a(j) Then p=j<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Next j<\/p>\n<p>If p&lt;&gt;i then<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0t =a(p) \u00a0: \u00a0a(p)=a(i) \u00a0: \u00a0a(i)=t<\/p>\n<p>End If<\/p>\n<p>Next i<\/p>\n<p>\u2461 \u5192\u6ce1\u6cd5\u6392\u5e8f<\/p>\n<p>\u5192\u6ce1\u6cd5\u6392\u5e8f\u4ece\u540e\u5f80\u524d\u56fa\u5b9a\u5df2\u6392\u5b9a\u7684\u6570\u636e\uff0cn\u4e2a\u6570\u636e\u9700\u6bd4\u8f83n-1\u8f6e\uff0c\u6bcf\u8f6e\u6bd4\u8f83n-i\u6b21\uff08i\u4e3a\u7b2c\u51e0\u8f6e\uff09\u3002<\/p>\n<p>\u5192\u6ce1\u6cd5\u6392\u5e8f\u4e00\u822c\u7b97\u6cd5 \u00a0\u00a0( \u5047\u8bbe\u6709n\u4e2a\u6570\u636e\u5b58\u653e\u5728\u4e00\u7ef4\u6570\u7ec4a\u4e2d\u8fdb\u884c\u4ece\u5c0f\u5230\u5927\u6392\u5e8f \uff09<\/p>\n<p>Rem \u4e0b\u754c\u4e3a1\u65f6\uff1a<\/p>\n<p>For i = 1 To n \u2013\u00a01 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u2018\u9700\u6bd4\u8f83n-1\u8f6e<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0For<strong>\u00a0<\/strong>j = 1 To n \u2013i \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u2018\u6bcf\u8f6e\u6bd4\u8f83n-i\u6b21<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0If a(j) &gt; a(j + 1) Then<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0t = a(j) \u00a0: \u00a0a(j) = a(j + 1) \u00a0: \u00a0a(j + 1) = t<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0End If<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Next j<\/p>\n<p>Next i<\/p>\n<p>&nbsp;<\/p>\n<p>Rem\u00a0\u4e0b\u754c\u4e3a0\u65f6\uff1a<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 For i = 0 \u00a0To\u00a0\u00a0n \u2013\u00a02<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 For j = 0 \u00a0To \u00a0n\u00a0\u2013 i\u00a0&#8211;\u00a02<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 If a(j) &gt; a(j + 1) Then<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 t = a(j) \u00a0: \u00a0a(j) = a(j + 1) \u00a0: \u00a0a(j + 1) = t<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End If<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Next j<\/p>\n<p>Next i<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 Array\u51fd\u6570<\/p>\n<p>&nbsp;<\/p>\n<p>\u529f\u80fd\uff1a\u5c06\u6570\u636e\u5217\u8868\u8d4b\u503c\u7ed9\u4e00\u4e2a\u53d8\u4f53\u578b\u6570\u7ec4<\/p>\n<p>\u4f8b\uff1a \u00a0Dim a() ,b() \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u2018\u6216\u8005 \u00a0\u00a0Dim a ,b<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0a = Array(&#8220;A&#8221;, &#8220;B&#8221;, &#8220;C&#8221;, &#8220;D&#8221;, &#8220;E&#8221;)<\/p>\n<p>b = Array(1, 2, 3, 4, 5)<\/p>\n<p>\u203b\u6ce8\u610f\uff1a<\/p>\n<p>\u2460Array\u51fd\u6570\u7684\u6570\u636e\u5217\u8868\u5fc5\u987b\u8d4b\u503c\u7ed9\u53d8\u4f53\u578b(Variant)\u53d8\u91cf<\/p>\n<p>\u2461\u7531Array\u51fd\u6570\u8d4b\u503c\u7684a\u6570\u7ec4\u9ed8\u8ba4\u4e0b\u754c\u4e3a0\uff0c\u5982\u679c\u8981\u8bbe\u4e3a1\uff0c\u5fc5\u987b\u5728\u9996\u884c\u52a0\u201cOption Base 1\u201d\u8bed\u53e5<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2\u81ea\u5b9a\u4e49\u6570\u636e\u7c7b\u578b(P213)<\/p>\n<p>&nbsp;<\/p>\n<p>1 \u4ec0\u4e48\u662f\u81ea\u5b9a\u4e49\u7c7b\u578b\uff1f<\/p>\n<p>\u81ea\u5b9a\u4e49\u7c7b\u578b\u662f\u7531\u4e0d\u540c\u7c7b\u578b\u6570\u636e\u7ec4\u6210\u7684\u96c6\u5408\uff0c\u4e5f\u53eb\u8bb0\u5f55\u7c7b\u578b\u3002<\/p>\n<p>2 \u5982\u4f55\u5b9a\u4e49\u4e00\u4e2a\u81ea\u5b9a\u4e49\u7c7b\u578b\uff1a\u901a\u8fc7Type\u8bed\u53e5\u5b9e\u73b0<\/p>\n<p>\u683c\u5f0f\uff1a \u00a0[Public|Private]Type \u81ea\u5b9a\u4e49\u7c7b\u578b\u540d\u79f0<\/p>\n<p>\u6570\u636e\u9879\u540d \u00a0\u00a0As \u00a0\u00a0\u7c7b\u578b\u540d<\/p>\n<p>\u00a0 \u2026\u2026<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0End Type<\/p>\n<p>\u4f8b\uff1a\u5b9a\u4e49\u4e00\u4e2a\u5b66\u751f\u4fe1\u606f\u7684\u81ea\u5b9a\u4e49\u7c7b\u578b<\/p>\n<p>Private Type student<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0XH As String * 2 \u00a0\u00a0\u00a0&#8216;\u5b66\u53f7 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u81ea\u5b9a\u4e49\u7c7b\u578b\u4e2d\u7684\u5b57\u7b26\u4e32\u578b\u6570\u636e\u9879\u5fc5\u987b\u662f\u5b9a\u957f\u5b57\u7b26\u4e32<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0XM As String * 4 \u00a0\u00a0\u00a0&#8216;\u59d3\u540d<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0XB As String * 1 \u00a0\u00a0\u00a0&#8216;\u6027\u522b<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0NL As Integer \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u5e74\u9f84<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0DZ As String * 20 \u00a0\u00a0\u00a0&#8216;\u5730\u5740<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0DH As String * 12 \u00a0\u00a0\u00a0&#8216;\u7535\u8bdd<\/p>\n<p>End Type<\/p>\n<p>3 \u5982\u4f55\u58f0\u660e\u4e00\u4e2a\u81ea\u5b9a\u4e49\u6570\u636e\u7c7b\u578b<\/p>\n<p>\u683c\u5f0f\uff1a[Public|Private|Dim] \u81ea\u5b9a\u4e49\u578b\u53d8\u91cf\u540d\u79f0 As\u81ea\u5b9a\u4e49\u7c7b\u578b\u540d\u79f0<\/p>\n<p>\u4f8b\uff1a<\/p>\n<p>Public\u00a0XS As student \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u58f0\u660e\u4e00\u4e2a\u5168\u5c40student\u81ea\u5b9a\u4e49\u7c7b\u578b\u7684\u53d8\u91cf(\u4e5f\u53ef\u4ee5\u7528Global)<\/p>\n<p>Private\u00a0XS As student \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u58f0\u660e\u4e00\u4e2a\u6a21\u5757\u7ea7student\u81ea\u5b9a\u4e49\u7c7b\u578b\u7684\u53d8\u91cf(\u4e5f\u53ef\u4ee5\u7528Dim)<\/p>\n<p>Dim\u00a0XS As student \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u58f0\u660e\u4e00\u4e2a\u8fc7\u7a0b\u7ea7student\u81ea\u5b9a\u4e49\u7c7b\u578b\u7684\u53d8\u91cf(\u4e0d\u80fd\u7528Private)<\/p>\n<p>4 \u81ea\u5b9a\u4e49\u6570\u636e\u9879\u7684\u5f15\u7528\u4e0e\u8d4b\u503c<\/p>\n<p>\u5f15\u7528\u683c\u5f0f\uff1a\u81ea\u5b9a\u4e49\u578b\u53d8\u91cf\u540d\u00b7\u6570\u636e\u9879\u540d\u79f0<\/p>\n<p>\u4f8b\uff1a<\/p>\n<p>XS.XM = &#8220;\u90ed\u5c0f\u9756&#8221; &#8216;\u5f15\u7528XS\u81ea\u5b9a\u4e49\u578b\u53d8\u91cf\u7684XM\u6570\u636e\u9879\u5bf9\u5176\u8d4b\u503c<\/p>\n<p>\u203b\u6ce8\u610f<\/p>\n<p>\u2460\u81ea\u5b9a\u4e49\u7c7b\u578b\u5fc5\u987b\u5148\u5b9a\u4e49\u518d\u4f7f\u7528\uff1b\u81ea\u5b9a\u4e49\u7c7b\u578b\u4e0d\u80fd\u5728\u8fc7\u7a0b\u5185\u5b9a\u4e49\u3002<\/p>\n<p>\u2461\u5982\u679c\u4e0d\u5199\u4f5c\u7528\u57df\u5173\u952e\u5b57\uff0c\u81ea\u5b9a\u4e49\u7c7b\u578b\u9ed8\u8ba4\u4e3a\u5168\u5c40\u578b\uff08\u5373\u524d\u9762\u7684\u4f5c\u7528\u57df\u5173\u952e\u5b57\u662fPublic\uff09<\/p>\n<p>\u2462\u6570\u636e\u9879\u7c7b\u578b\u4e3a\u5b57\u7b26\u4e32\u578b\u65f6\uff0c\u5fc5\u987b\u8bbe\u4e3a\u5b9a\u957f\u5b57\u7b26\u4e32<\/p>\n<p>\u2463\u5168\u5c40\u81ea\u5b9a\u4e49\u7c7b\u578b\u53d8\u91cf\u53ea\u80fd\u5728\u6807\u51c6\u6a21\u5757\u4e2d\u5b9a\u4e49\u548c\u58f0\u660e<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u5224\u65ad\u7d20\u6570<\/p>\n<p>&nbsp;<\/p>\n<p>1 \u4ec0\u4e48\u662f\u7d20\u6570\uff1a\u7d20\u6570\u53c8\u79f0\u8d28\u6570\uff0c\u662f\u6307\u9664\u4e861\u548c\u5b83\u672c\u8eab\u4ee5\u5916\uff0c\u4e0d\u80fd\u88ab\u5176\u4ed6\u4efb\u4f55\u6574\u6570\u6574\u9664\u7684\u6570\u3002\u59822\u300111\u300137\u2026<\/p>\n<p>2 \u5224\u65adn\u662f\u5426\u4e3a\u7d20\u6570\u7b97\u6cd5<\/p>\n<p>(1)\u65b9\u6cd51(\u63a8\u8350)\uff1a<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0For i = 2 To n \u2013\u00a01\u00a0\u00a0\u00a0\u00a0&#8216;\u7ec8\u6b62\u503c\u4e5f\u53ef\u4ee5\u662fSqr(n)\u6216Int(Sqr(n)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0If n Mod i = 0 Then Exit For<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Next i<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0If i = n Then\u00a0\u00a0\u00a0&#8216;\u4e0a\u9762\u7684\u7ec8\u6b62\u503c\u5982\u679c\u662fSqr(n) \u6216Int(Sqr(n)\uff0c\u8fd9\u91cc\u5224\u65ad\u6761\u4ef6\u8981\u6539\u4e3ai &gt; Sqr(n)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0MsgBox n &amp; &#8220;\u662f\u7d20\u6570&#8221;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Else<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0MsgBox n &amp; &#8220;\u4e0d\u662f\u7d20\u6570&#8221;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0End If<\/p>\n<p>(2)\u65b9\u6cd52\uff1a\u4f7f\u7528\u6807\u8bb0\u53d8\u91cf<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0flag = True \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u8bbeflag\u7684\u521d\u59cb\u503c\u4e3aTrue(\u53d8\u91cfflag\u662f\u5224\u65adn\u662f\u5426\u4e3a\u7d20\u6570\u7684\u4e00\u4e2a\u6807\u8bb0)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0For i = 2 To n &#8211; 1 \u00a0&#8216;\u2605\u6ce8\u610fi\u7684\u8d77\u59cb\u503c\u548c\u7ec8\u6b62\u503c(\u7ec8\u6b62\u503c\u4e5f\u53ef\u4ee5\u6539\u7528n\u7684\u5e73\u65b9\u6839\u5373Sqr(n) )<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0If n Mod i = 0 Then<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0flag = False<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Exit For<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0End If<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Next i<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0If flag Then<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0MsgBox n &amp; &#8220;\u662f\u7d20\u6570&#8221;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Else<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0MsgBox n &amp; &#8220;\u4e0d\u662f\u7d20\u6570&#8221;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0End If<\/p>\n<p>\u203b\u6ce8\u610f\uff1a\u5224\u65adn\u662f\u5426\u4e3a\u7d20\u6570\u7684\u6807\u8bb0\u53d8\u91cfflag\u4e5f\u53ef\u4ee5\u5b9a\u4e49\u4e3a\u6574\u5f62\uff0c\u75280\u548c1\u5224\u65ad\u662f\u5426\u4e3a\u7d20\u6570\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u6c42\u6700\u5927\u516c\u7ea6\u6570\u548c\u6700\u5c0f\u516c\u500d\u6570 \uff08P226\uff09<\/p>\n<p>&nbsp;<\/p>\n<p>1 \u6c42\u6700\u5927\u516c\u7ea6\u6570\u7b97\u6cd5\uff08\u8f97\u8f6c\u76f8\u9664\u6cd5\uff09<\/p>\n<p>Dim a%, b%, c%, GYS%, GBS% \u00a0\u00a0\u00a0\u00a0&#8216;\u5b9a\u4e49\u76f8\u5173\u53d8\u91cf<\/p>\n<p>a = Val(Text1.Text)<\/p>\n<p>b = Val(Text2.Text)<\/p>\n<p>c = a Mod b \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u53d8\u91cfc\u5b58\u653e\u4f59\u6570<\/p>\n<p>Do While c &lt;&gt; 0<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 a = b<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 b = c<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 c = a Mod b<\/p>\n<p>Loop<\/p>\n<p>GYS = b \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216; \u5f53\u4f59\u6570\u4e3a0\u65f6\uff0cb\u5c31\u662f\u6700\u5927\u516c\u7ea6\u6570<\/p>\n<p>GBS = Val(Text1.Text) * Val(Text2.Text) \/ GYS \u00a0\u00a0\u00a0&#8216;\u6c42\u6700\u5c0f\u516c\u500d\u6570\uff08\u6ce8\u610f\u4e0d\u80fd\u662fa * b \/\u00a0GYS\uff09<\/p>\n<p>\u201c\u8f97\u8f6c\u76f8\u9664\u6cd5\u201d\u8bf4\u660e\uff1a<\/p>\n<p>\u5148a Mod b\u6c42\u51fa\u4f59\u6570c\uff0c\u5982\u679cc\u4e0d\u4e3a0\uff0c\u5219b\u505a\u88ab\u9664\u6570\uff0cc\u505a\u9664\u6570\u7ee7\u7eed\u53d6\u4f59\uff0c\u76f4\u5230c\u4e3a0\uff0c\u8fd9\u65f6\u7684\u9664\u6570b\u5c31\u662f\u6700\u5927\u516c\u7ea6\u6570\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>2 \u6c42\u6700\u5c0f\u516c\u500d\u6570\u516c\u5f0f\uff1a<\/p>\n<p>\u6700\u5c0f\u516c\u500d\u6570 = \u6570A * \u6570B \/ \u4e24\u4e2a\u6570\u7684\u6700\u5927\u516c\u7ea6\u6570<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2\u8fc7\u7a0b (P217)<\/p>\n<p>&nbsp;<\/p>\n<p>1 \u4ec0\u4e48\u662f\u8fc7\u7a0b<\/p>\n<p>\u00a0\u00a0\u8fc7\u7a0b\u662f\u6307\u80fd\u5b9e\u73b0\u67d0\u4e00\u7279\u5b9a\u529f\u80fd\u7684\u72ec\u7acb\u7a0b\u5e8f\u6bb5\u3002<\/p>\n<p>2 \u8fc7\u7a0b\u7684\u5206\u7c7b<\/p>\n<p>&nbsp;<\/p>\n<p>3 \u901a\u7528\u8fc7\u7a0b<\/p>\n<ul>\n<li>\u4ec0\u4e48\u662f\u901a\u7528\u8fc7\u7a0b\uff1a\u7528\u6237\u81ea\u5b9a\u4e49\u8fc7\u7a0b\u4e2d\u7684\u5b50\u8fc7\u7a0b\u548c\u51fd\u6570\u8fc7\u7a0b\u53c8\u79f0\u4e3a\u901a\u7528\u8fc7\u7a0b\u3002<\/li>\n<li>\u6ce8\u610f\u70b9\uff1a \u2460 \u5b9a\u4e49\u901a\u7528\u8fc7\u7a0b\u7684\u76ee\u7684\u662f\u4e3a\u4e86\u4ee3\u7801\u590d\u7528\uff0c\u63d0\u9ad8\u7f16\u7a0b\u6548\u7387\u3002<\/li>\n<\/ul>\n<p>\u2461 \u901a\u7528\u8fc7\u7a0b\u53ef\u4ee5\u5b9a\u4e49\u5728\u7a97\u4f53\u6a21\u5757\u548c\u6807\u51c6\u6a21\u5757\u4e2d\u3002<\/p>\n<p>\u2462 \u901a\u7528\u8fc7\u7a0b\u4e0d\u80fd\u5d4c\u5957\u5b9a\u4e49\u3002<\/p>\n<p>\u2463 \u901a\u7528\u8fc7\u7a0b\u5fc5\u987b\u7531\u5176\u4ed6\u8fc7\u7a0b\u8c03\u7528\u3002<\/p>\n<ul>\n<li>\u901a\u7528\u8fc7\u7a0b\u7684\u5b9a\u4e49\u548c\u8c03\u7528<\/li>\n<\/ul>\n<p>\u00a0\u00a0\u2460\u5b50\u8fc7\u7a0b(Sub\u8fc7\u7a0b)\u7684\u5b9a\u4e49\u548c\u8c03\u7528<\/p>\n<ul>\n<li>\u5b9a\u4e49\u683c\u5f0f\uff1a<\/li>\n<\/ul>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0[Static][Public|Private] Sub \u5b50\u8fc7\u7a0b\u540d\u79f0\uff08[\u5f62\u53c2\u5217\u8868]\uff09<\/p>\n<p>[\u5c40\u90e8\u53d8\u91cf\u548c\u5e38\u91cf\u58f0\u660e]<\/p>\n<p>[\u7a0b\u5e8f\u6bb5]<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End Sub<\/p>\n<p>\u4f8b\uff1a\u81ea\u5b9a\u4e49\u4e00\u4e2a\u6c42\u6700\u5927\u516c\u7ea6\u6570\u7684\u5b50\u8fc7\u7a0b<\/p>\n<p>Private Sub ZGC( ByVal \u00a0A \u00a0As \u00a0Integer, ByVal \u00a0B \u00a0As \u00a0Integer, GYS \u00a0As \u00a0Integer ) \u00a0\u00a0\u00a0\u00a0\u00a0<\/p>\n<p>\u00a0\u00a0 Dim R As Integer<\/p>\n<p>\u00a0\u00a0 R = A Mod B \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;R\u5b58\u653e\u4f59\u6570<\/p>\n<p>\u00a0\u00a0 Do While R &lt;&gt; 0<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 A = B<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 B = R<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 R = A Mod B<\/p>\n<p>\u00a0\u00a0 Loop<\/p>\n<p>\u00a0\u00a0\u00a0 GYS = B \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u5f53\u4f59\u6570\u4e3a0\u65f6,\u9664\u6570B\u5c31\u662f\u8fd9\u4e24\u4e2a\u6570\u7684\u6700\u5927\u516c\u500d\u6570<\/p>\n<p>End Sub<\/p>\n<p>\u203b\u6ce8\u610f\uff1a\u53c2\u6570\u4e2d\u7684\u5173\u952e\u5b57ByVal\u662f\u6307\u6309\u503c\u4f20\u9012\u53c2\u6570<\/p>\n<ul>\n<li>\u8c03\u7528\u65b9\u6cd5\uff1a<\/li>\n<\/ul>\n<p>\u65b9\u6cd51\uff1a\u5b50\u8fc7\u7a0b\u540d [\u5b9e\u53c2\u5217\u8868] &#8216;\u5b9e\u53c2\u5217\u8868\u4e0d\u80fd\u52a0\u62ec\u53f7<\/p>\n<p>\u4f8b\uff1a \u00a0ZGC \u00a0\u00a0a\uff0cb\uff0cGYS<\/p>\n<p>\u65b9\u6cd52\uff1aCall\u5b50\u8fc7\u7a0b\u540d (\u5b9e\u53c2\u5217\u8868) &#8216;\u5b9e\u53c2\u5217\u8868\u5fc5\u987b\u52a0\u62ec\u53f7\uff0c\u5982\u679c\u6ca1\u6709\u5b9e\u53c2\u53ef\u4ee5\u7701\u7565\u62ec\u53f7<\/p>\n<p>\u4f8b\uff1a Call \u00a0ZGC ( a\uff0cb\uff0cGYS )<\/p>\n<p>&nbsp;<\/p>\n<p>\u2461 \u51fd\u6570\u8fc7\u7a0b(Function\u8fc7\u7a0b)\u7684\u5b9a\u4e49\u548c\u8c03\u7528<\/p>\n<ul>\n<li>\u5b9a\u4e49\u683c\u5f0f\uff1a<\/li>\n<\/ul>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0[Static][Public|Private] Function \u51fd\u6570\u8fc7\u7a0b\u540d\u79f0\uff08[\u5f62\u53c2\u5217\u8868]\uff09As [\u6570\u636e\u7c7b\u578b]<\/p>\n<p>[\u5c40\u90e8\u53d8\u91cf\u548c\u5e38\u91cf\u58f0\u660e]<\/p>\n<p>[\u7a0b\u5e8f\u6bb5]<\/p>\n<p>[\u51fd\u6570\u540d=\u8868\u8fbe\u5f0f] \u00a0\u00a0\u00a0&#8216;\u5982\u679c\u7701\u7565\u5219\u8fd4\u56de\u6570\u636e\u7c7b\u578b\u7684\u7f3a\u7701\u503c<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End Function<\/p>\n<p>\u4f8b\uff1a\u81ea\u5b9a\u4e49\u4e00\u4e2a\u6c42\u6700\u5927\u516c\u7ea6\u6570\u7684\u51fd\u6570\u8fc7\u7a0b<\/p>\n<p>Private Function HSGC( ByVal \u00a0A \u00a0As \u00a0Integer, ByVal \u00a0B \u00a0As \u00a0Integer ) \u00a0\u00a0\u00a0\u00a0\u00a0<\/p>\n<p>\u00a0\u00a0 Dim R As Integer<\/p>\n<p>\u00a0\u00a0 R = A Mod B \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;R\u5b58\u653e\u4f59\u6570<\/p>\n<p>\u00a0\u00a0 Do While R &lt;&gt; 0<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 A = B<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 B = R<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 R = A Mod B<\/p>\n<p>\u00a0\u00a0 Loop<\/p>\n<p>\u00a0\u00a0\u00a0 HSGC = B \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u5f53\u4f59\u6570\u4e3a0\u65f6,\u9664\u6570B\u5c31\u662f\u8fd9\u4e24\u4e2a\u6570\u7684\u6700\u5927\u516c\u500d\u6570<\/p>\n<p>End Function<\/p>\n<p>\u203b\u6ce8\u610f\uff1a\u53c2\u6570\u4e2d\u7684\u5173\u952e\u5b57ByVal\u662f\u6307\u6309\u503c\u4f20\u9012\u53c2\u6570)<\/p>\n<ul>\n<li>\u8c03\u7528\u65b9\u6cd5\uff1a<\/li>\n<\/ul>\n<p>\u51fd\u6570\u8fc7\u7a0b\u540d ([\u5b9e\u53c2\u5217\u8868]) \u00a0\u00a0\u00a0&#8216;\u5b9e\u53c2\u5217\u8868\u5fc5\u987b\u52a0\u62ec\u53f7\uff0c\u5982\u679c\u6ca1\u6709\u5b9e\u53c2\u53ef\u4ee5\u7701\u7565\u62ec\u53f7<\/p>\n<p>\u4f8b\uff1a Q= HSGC ( a\uff0cb ) \u00a0\u00a0\u00a0\u00a0\u00a0&#8216;Q\u662f\u63a5\u6536\u51fd\u6570\u8fd4\u56de\u503c\u7684\u4e00\u4e2a\u53d8\u91cf<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u203b\u6ce8\u610f\uff1a\u5982\u679c\u4e0d\u9700\u8981\u8fd4\u56de\u503c\uff0c\u51fd\u6570\u8fc7\u7a0b\u53ef\u4ee5\u91c7\u7528\u5b50\u8fc7\u7a0b\u7684\u8c03\u7528\u65b9\u6cd5\u8fdb\u884c\u8c03\u7528\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>4 \u53c2\u6570\u7684\u4f20\u9012\u65b9\u5f0f<\/p>\n<p>(1) \u8fc7\u7a0b\u4e2d\u53c2\u6570\u7684\u4e24\u79cd\u4f20\u9012\u65b9\u5f0f\uff1a<\/p>\n<p>\u2460 ByVal \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u6309\u503c\u4f20\u9012\uff08\u4f20\u503c\uff09<\/p>\n<p>\u2461 ByRef \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u6309\u5740\u4f20\u9012\uff08\u4f20\u5740\uff09 \u2018\u9ed8\u8ba4\u65b9\u5f0f\uff0c\u4f20\u9012\u65b9\u5f0f\u5173\u952e\u5b57ByRef\u53ef\u4ee5\u7701\u7565<\/p>\n<p>(2) \u4e24\u79cd\u65b9\u5f0f\u7684\u533a\u522b\uff1a \u00a0\u00a0\u00a0<\/p>\n<p>\u6309\u503c\u4f20\u9012\uff08ByVal\uff09\uff1a\u5c06\u5b9e\u53c2\u7684\u503c\u4f20\u7ed9\u5f62\u53c2\uff0c\u5b9e\u53c2\u4e0d\u4f1a\u53d1\u751f\u53d8\u5316\u3002<\/p>\n<p>\u6309\u5740\u4f20\u9012\uff08ByRef\uff09\uff1a\u5c06\u5b9e\u53c2\u7684\u5730\u5740\u4f20\u7ed9\u5f62\u53c2\uff0c\u5b9e\u53c2\u968f\u5f62\u53c2\u7684\u53d8\u5316\u800c\u53d8\u5316\u3002<\/p>\n<p>\u203b\u6ce8\u610f\uff1a<\/p>\n<p>\u2460 \u5e38\u91cf\u548c\u8868\u8fbe\u5f0f\u9ed8\u8ba4\u6309\u503c\u4f20\u9012\uff0c\u53d8\u91cf\u9ed8\u8ba4\u6309\u5740\u4f20\u9012\uff1b<\/p>\n<p>\u2461 \u5982\u679c\u4e0d\u5e0c\u671b\u5b9e\u53c2\u53d8\u91cf\u53d1\u751f\u53d8\u5316\uff0c\u5e94\u8be5\u5c06\u5bf9\u5e94\u7684\u5f62\u53c2\u524d\u9762\u6dfb\u52a0ByVal\u5173\u952e\u5b57\u8bbe\u4e3a\u6309\u503c\u4f20\u9012\uff1b<\/p>\n<p>\u2462 \u5f62\u53c2\u7684\u4f20\u9012\u65b9\u5f0f\u662f\u6309\u5740\u4f20\u9012\u4f46\u53c8\u4e0d\u5e0c\u671b\u5b9e\u53c2\u53d8\u91cf\u53d1\u751f\u53d8\u5316\u7684\u5904\u7406\u65b9\u6cd5\uff1a\u5c06\u5b9e\u53c2\u53d8\u91cf\u6dfb\u52a0\u62ec\u53f7\u53d8\u6210\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>\u2463 \u5f53\u6309\u5740\u4f20\u9012\u7684\u5f62\u53c2\u6307\u5b9a\u4e86\u5177\u4f53\u7684\u6570\u636e\u7c7b\u578b\u65f6\uff0c\u5982\u679c\u5b9e\u53c2\u662f\u53d8\u4f53\u578b\u6216\u7c7b\u578b\u4e0d\u5339\u914d\uff0c\u4f1a\u62a5&#8221; ByRef\u53c2\u6570\u7c7b\u578b\u4e0d\u7b26&#8221; \u9519\u8bef\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u6a21\u5757\u548c\u53d8\u91cf\u7684\u4f5c\u7528\u57df (P236)<\/p>\n<p>&nbsp;<\/p>\n<p>1 \u00a0VB\u7684\u4e09\u79cd\u6a21\u5757<\/p>\n<p>\u7a97\u4f53\u6a21\u5757 \u00a0\u00a0\u00a0.frm &#8216;\u6587\u4ef6\u6269\u5c55\u540d<\/p>\n<p>\u6807\u51c6\u6a21\u5757 \u00a0\u00a0\u00a0.bas<\/p>\n<p>\u7c7b\u6a21\u5757 \u00a0\u00a0\u00a0\u00a0\u00a0.cls<\/p>\n<p>2 \u00a0\u53d8\u91cf\u7684\u4f5c\u7528\u57df<\/p>\n<p>(1) \u4ec0\u4e48\u53eb\u53d8\u91cf\u7684\u4f5c\u7528\u57df\uff1a<\/p>\n<p>\u53d8\u91cf\u7684\u4f5c\u7528\u57df\u662f\u6307\u53d8\u91cf\u7684\u4f5c\u7528\u8303\u56f4\uff0c\u4e5f\u53eb\u53d8\u91cf\u7684\u6709\u6548\u8303\u56f4\u3002<\/p>\n<p>(2) \u4e09\u79cd\u53d8\u91cf\u7684\u4f5c\u7528\u57df<\/p>\n<p>\u2460\u8fc7\u7a0b\u7ea7\u53d8\u91cf\uff08\u5c40\u90e8\u53d8\u91cf\uff09\uff1a<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u5728\u8fc7\u7a0b\u5185\u90e8\u7528Dim\u6216Static\u5173\u952e\u5b57\u58f0\u660e\u7684\u53d8\u91cf\uff0c\u5b83\u53ea\u80fd\u5728\u8fc7\u7a0b\u5185\u90e8\u4f7f\u7528\u3002<\/p>\n<p>\u6ce8\u610f\uff1a<\/p>\n<p>\u2460Static\u5173\u952e\u5b57\u53ea\u80fd\u7528\u5728\u8fc7\u7a0b\u7ea7\u7684\u53d8\u91cf\u58f0\u660e\u4e2d\uff1b\u7528Static\u5173\u952e\u5b57\u5b9a\u4e49\u7684\u8fc7\u7a0b\uff0c\u5176\u5185\u90e8\u7684\u6240 \u6709\u53d8\u91cf\u90fd\u4f1a\u53d8\u6210\u9759\u6001\u53d8\u91cf\u3002<\/p>\n<p>\u7528Static\u5173\u952e\u5b57\u58f0\u660e\u7684\u53d8\u91cf\u53eb\u9759\u6001\u53d8\u91cf\uff0c\u53d8\u91cf\u7684\u503c\u5728\u8fc7\u7a0b\u7ed3\u675f\u540e\u4efb\u7136\u4f1a\u88ab\u4fdd\u7559\u76f4\u5230\u7a0b\u5e8f\u9000\u51fa\u3002<\/p>\n<p>\u2461\u7a97\u4f53\u7ea7\u53d8\u91cf\uff08\u79c1\u6709\u53d8\u91cf\uff09\uff1a<\/p>\n<p>\u5728\u7a97\u4f53\u6216\u6a21\u5757\u7684\u901a\u7528\u58f0\u660e\u6bb5\uff08\u5373\u4ee3\u7801\u7a97\u53e3\u7684\u6700\u524d\u9762\u4f4d\u7f6e\uff09\u7528Dim\u6216Private\u5173\u952e\u5b57\u58f0\u660e\u7684\u53d8\u91cf\uff0c\u5b83\u53ea\u80fd\u5728\u672c\u7a97\u4f53\u6216\u6a21\u5757\u4e2d\u4f7f\u7528\u3002<\/p>\n<p>\u2462\u5168\u5c40\u53d8\u91cf\uff08\u5171\u6709\u53d8\u91cf\uff09\uff1a<\/p>\n<p>\u5728\u7a97\u4f53\u6216\u6a21\u5757\u7684\u901a\u7528\u58f0\u660e\u6bb5\u7528Public\u6216Global\u5173\u952e\u5b57\u58f0\u660e\u7684\u53d8\u91cf\uff0c\u5b83\u5728\u6574\u4e2a\u5e94\u7528\u7a0b\u5e8f\u7684\u4efb\u4f55\u4f4d\u7f6e\u90fd\u53ef\u4ee5\u4f7f\u7528\u3002<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u6ce8\u610f\uff1aa \u7a97\u4f53\u4e2d\u7684\u5b9a\u957f\u5b57\u7b26\u4e32\u3001\u6570\u7ec4\u548c\u81ea\u5b9a\u4e49\u7c7b\u578b\u53d8\u91cf\u4e0d\u80fd\u58f0\u660e\u4e3a\u5168\u5c40\u53d8\u91cf\u3002<\/p>\n<p>\u00a0\u00a0\u00a0b \u5728\u7a97\u4f53\u4e2d\u4e0d\u80fd\u7528Global\u5173\u952e\u5b57\u58f0\u660e\u5168\u5c40\u53d8\u91cf\uff1b<\/p>\n<p>c \u5728\u6807\u51c6\u6a21\u5757\u4e2d\u7528Global\u5173\u952e\u5b57\u5b9a\u4e49\u81ea\u5b9a\u4e49\u6570\u636e\u7c7b\u578b\u4ee5\u53ca\u901a\u7528\u8fc7\u7a0b\u4f1a\u81ea\u52a8\u7701\u7565Global\u5173\u952e\u5b57\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>\u4e09\u79cd\u53d8\u91cf\u7684\u4f5c\u7528\u8303\u56f4\u53ca\u4f7f\u7528\u89c4\u5219<\/p>\n<table>\n<tbody>\n<tr>\n<td width=\"141\">\n<p>\u6bd4\u8f83<\/p>\n<\/td>\n<td width=\"100\">\n<p>\u8fc7\u7a0b\u7ea7\u53d8\u91cf<\/p>\n<\/td>\n<td width=\"160\">\n<p>\u6a21\u5757\u7ea7\u53d8\u91cf<\/p>\n<\/td>\n<td width=\"163\">\n<p>\u5168\u5c40\u53d8\u91cf<\/p>\n<\/td>\n<\/tr>\n<tr>\n<td width=\"141\">\n<p>\u4f5c\u7528\u8303\u56f4<\/p>\n<\/td>\n<td width=\"100\">\n<p>\u6240\u5728\u8fc7\u7a0b<\/p>\n<\/td>\n<td width=\"160\">\n<p>\u6240\u5728\u7684\u7a97\u4f53\/\u6a21\u5757<\/p>\n<\/td>\n<td width=\"163\">\n<p>\u6574\u4e2a\u5e94\u7528\u7a0b\u5e8f<\/p>\n<\/td>\n<\/tr>\n<tr>\n<td width=\"141\">\n<p>\u58f0\u660e\u5173\u952e\u5b57<\/p>\n<\/td>\n<td width=\"100\">\n<p>Dim\u3001Static<\/p>\n<\/td>\n<td width=\"160\">\n<p>Dim\u3001Private<\/p>\n<\/td>\n<td width=\"163\">\n<p>Public\u3001Global<\/p>\n<\/td>\n<\/tr>\n<tr>\n<td width=\"141\">\n<p>\u58f0\u660e\u7684\u4f4d\u7f6e<\/p>\n<\/td>\n<td width=\"100\">\n<p>\u8fc7\u7a0b\u4e2d<\/p>\n<\/td>\n<td width=\"160\">\n<p>\u7a97\u4f53\/\u6a21\u5757\u901a\u7528\u58f0\u660e\u6bb5<\/p>\n<\/td>\n<td width=\"163\">\n<p>\u7a97\u4f53\/\u6a21\u5757\u901a\u7528\u58f0\u660e\u6bb5<\/p>\n<\/td>\n<\/tr>\n<tr>\n<td width=\"141\">\n<p>\u88ab\u672c\u6a21\u5757\u5176\u4ed6\u8fc7\u7a0b\u5b58\u53d6<\/p>\n<\/td>\n<td width=\"100\">\n<p>\u4e0d\u53ef\u4ee5<\/p>\n<\/td>\n<td width=\"160\">\n<p>\u53ef\u4ee5<\/p>\n<\/td>\n<td width=\"163\">\n<p>\u53ef\u4ee5<\/p>\n<\/td>\n<\/tr>\n<tr>\n<td width=\"141\">\n<p>\u88ab\u5176\u4ed6\u6a21\u5757\u7684\u8fc7\u7a0b\u5b58\u53d6<\/p>\n<\/td>\n<td width=\"100\">\n<p>\u4e0d\u53ef\u4ee5<\/p>\n<\/td>\n<td width=\"160\">\n<p>\u4e0d\u53ef\u4ee5<\/p>\n<\/td>\n<td width=\"163\">\n<p>\u53ef\u4ee5<\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u5982\u4f55\u542f\u52a8\u4e0d\u52a0\u8f7d\u4efb\u4f55\u7a97\u4f53\u7684VB\u5e94\u7528\u7a0b\u5e8f (P244)<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u6b65\u9aa41\uff1a\u6dfb\u52a0\u4e00\u4e2a\u6807\u51c6\u6a21\u5757\uff0c\u5728\u5176\u4e2d\u521b\u5efa\u4e00\u4e2aSub Main\u5b50\u8fc7\u7a0b\u6dfb\u52a0\u76f8\u5e94\u4ee3\u7801\u3002<\/p>\n<p>\u00a0\u00a0\u6b65\u9aa42\uff1a\u5728\u5de5\u7a0b\u5c5e\u6027\u5bf9\u8bdd\u6846\u4e2d\u5c06\u542f\u52a8\u5bf9\u8c61\u8bbe\u7f6e\u4e3aSub Main\u3002<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u4f8b\uff1a \u00a0Sub Main()<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0Form1.Show<\/p>\n<p>End Sub<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u5224\u65ad\u662f\u5426\u6309\u4e0b\u56de\u8f66\u952e\uff08\u4ee5\u6587\u672c\u6846\u4e3a\u4f8b\uff09<\/p>\n<p>&nbsp;<\/p>\n<p>Private Sub Text1_KeyPress(KeyAscii As Integer)<\/p>\n<p>If KeyAscii = 13 Then \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u5224\u65ad\u662f\u5426\u6309\u4e0b\u56de\u8f66\u952e()<\/p>\n<p>MsgBox &#8220;\u5df2\u6309\u4e0b\u56de\u8f66\u952e&#8221;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0 End If<\/p>\n<p>End Sub<\/p>\n<p>\uff08\u51e0\u4e2a\u5e38\u7528\u6309\u952e\u952e\u503c\uff1a \u9000\u683c\u952e 8 \u00a0\u56de\u8f66\u952e 13 \u7a7a\u683c\u952e 32 \u5220\u9664\u952e \u00a046 \uff09<\/p>\n<p>\u25b2 \u6570\u5b57\u5206\u79bb\u7b97\u6cd5(\u4f8b\uff1a x=1234.56)<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u767e\u5206\u4f4d\uff1a \u00a0\u00a0\u00a0Int(x * 100) Mod 10 \u00a0\u00a0\u00a0\u00a0\u2192 \u00a0\u00a06<\/p>\n<p>\u5341\u5206\u4f4d\uff1a Int(x * 10) Mod 10 \u00a0\u00a0\u00a0\u00a0\u00a0\u2192 \u00a0\u00a05<\/p>\n<p>\u4e2a\u4f4d\uff1a Int(x) Mod 10 \u00a0\u00a0\u00a0\u00a0 \u00a0\u2192 \u00a0\u00a04<\/p>\n<p>\u5341\u4f4d\uff1a Int(x) \\ 10 Mod 10 \u00a0\u00a0\u00a0\u00a0\u00a0\u2192 \u00a0\u00a03<\/p>\n<p>\u767e\u4f4d\uff1a Int(x) \\ 100 Mod 10 \u00a0\u00a0\u00a0\u00a0\u2192 \u00a0\u00a02<\/p>\n<p>\u5343\u4f4d\uff1a Int(x) \\ 1000 Mod 10 \u00a0\u00a0\u00a0\u2192 \u00a0\u00a01<\/p>\n<p>\u6ce8\u610f\uff1a\u5982\u679cx\u662f\u6574\u6570\uff0c\u5219\u4e0d\u9700\u8981Int()\u51fd\u6570\u8f6c\u6362<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u7a77\u4e3e\u6cd5<\/p>\n<p>&nbsp;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u7a77\u4e3e\u6cd5\u662f\u6307\u5c06\u6240\u6709\u7684\u65b9\u6848\u90fd\u4e00\u4e00\u6d4b\u8bd5\uff0c\u627e\u7c97\u7b26\u5408\u8981\u6c42\u7684\u65b9\u6848\u7684\u7b97\u6cd5\u3002\u5982\u767e\u94b1\u767e\u9e21\u3001\u767e\u9a6c\u767e\u74e6\u7b49\u7ecf\u5178\u95ee\u9898\u3002<\/p>\n<p>\u4f8b\uff08\u767e\u9a6c\u767e\u74e6\uff09\uff1a<\/p>\n<p>\u9898\u76ee\uff1a\u6709100\u5339\u9a6c\u9a6e100\u5757\u74e6\uff0c\u6bcf\u5339\u5927\u9a6c\u62d63\u5757\uff0c\u6bcf\u5339\u5c0f\u9a6c\u9a6e2\u5757\uff0c\u4e24\u5339\u9a6c\u9a79\u9a6e1\u5757\u3002\u95ee\u5927\u9a6c\u3001\u5c0f\u9a6c\u3001\u9a6c\u9a79\u5404\u6709\u591a\u5c11\u5339\uff1f<\/p>\n<p>Print &#8220;\u5927\u9a6c&#8221;, &#8220;\u5c0f\u9a6c&#8221;, &#8220;\u9a6c\u9a79&#8221;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0For a = 1 To 34 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u601d\u8003\uff0c\u8fd9\u91cc\u4e3a\u4ec0\u4e48\u662f1 to 34 ?<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0For b = 1 To 50<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0For c = 1 To 200<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0If a * 3 + b * 2 + c * 0.5 = 100 _<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0And a + b + c = 100 Then<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Print a, b, c<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0End If<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Next<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Next<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Next<\/p>\n<p>&nbsp;<\/p>\n<p>\u25b2 \u6253\u5370\u56fe\u5f62\u4e00\u822c\u7b97\u6cd5 (\u6848\u4f8b\u53c2\u89c1\u300a\u6253\u5370\u56fe\u5f62\u300b\u8d44\u6599)<\/p>\n<p>&nbsp;<\/p>\n<p>For i = 1 To n &#8216;\u6253\u5370\u7684\u884c\u6570<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Print Tab\uff08\uff09; &#8216;\u6bcf\u884c\u6253\u5370\u7684\u4f4d\u7f6e(\u6ce8\u610f\u8bed\u53e5\u7ed3\u5c3e\u7684\u5206\u53f7)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0For j = 1 To m &#8216;\u6bcf\u884c\u6253\u5370\u7684\u4e2a\u6570<\/p>\n<p>Print\u5185\u5bb9 ;\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u6253\u5370\u5185\u5bb9(\u6ce8\u610f\u8bed\u53e5\u7ed3\u5c3e\u7684\u5206\u53f7)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Next j<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Print &#8216;\u6362\u884c<\/p>\n<p>Next i<\/p>\n<p>&nbsp;<\/p>\n<ul>\n<li>\u8865\u5145\uff1aVB\u5220\u9664\u6587\u4ef6\u548c\u6587\u4ef6\u5939\u65b9\u6cd5<\/li>\n<\/ul>\n<p>&nbsp;<\/p>\n<p>1\u5220\u9664\u6587\u4ef6\uff1a \u00a0Kill \u76ee\u6807\u6587\u4ef6\u8def\u5f84 &amp; &#8220;\\&#8221; &amp; \u6587\u4ef6\u540d<\/p>\n<p>\u4f8b\uff1a \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Kill &#8220;D:\\\u56fe\u7247&#8221; &amp; &#8220;\\&#8221; &amp; &#8220;\u82b1\u6735.jpg&#8221; \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;Kill\u51fd\u6570\u5220\u9664\u6307\u5b9a\u6587\u4ef6<\/p>\n<p>&nbsp;<\/p>\n<p>2\u5220\u9664\u7a7a\u6587\u4ef6\u5939\uff1aRMDir\u00a0(\u5e26\u5b8c\u6574\u8def\u5f84\u7684\u76ee\u6807\u6587\u4ef6\u5939)<\/p>\n<p>\u4f8b\uff1a RMDir &#8220;D:\\\u56fe\u7247&#8221;<\/p>\n<p>&nbsp;<\/p>\n<p>3\u5220\u9664\u975e\u7a7a\u6587\u4ef6\u5939\uff1a<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Dim fs<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Set fs = CreateObject(&#8220;Scripting.FileSystemObject&#8221;)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0On Error Resume Next \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;\u5982\u679c\u51fa\u9519\u5219\u5ffd\u7565\u5e76\u7ee7\u7eed\u6267\u884c\u540e\u7eed\u4ee3\u7801<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0fs.DeleteFolder (\u5e26\u5b8c\u6574\u8def\u5f84\u7684\u76ee\u6807\u6587\u4ef6\u5939), True \u00a0\u00a0&#8216;\u53c2\u6570True\u53ef\u4ee5\u5220\u9664\u53ea\u8bfb\u6587\u4ef6\u5939 \u00a0<\/p>\n","protected":false},"excerpt":{"rendered":"<p>VB\u7b14\u8bb0 \u25b2 VB\u7a0b\u5e8f\u8bbe\u8ba1\u6b65\u9aa4\uff1a \u00a0\u00a0\u00a0\u00a01 \u65b0\u5efa\u5de5\u7a0b 2\u00a0\u8bbe\u8ba1\u754c\u9762 3\u00a0\u8bbe\u7f6e\u5c5e\u6027 4\u7f16\u5199\u4ee3\u7801 5\u00a0\u8fd0\u884c\u8c03\u8bd5  [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":6817,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"aside","meta":{"footnotes":""},"categories":[68],"tags":[],"class_list":["post-7274","post","type-post","status-publish","format-aside","has-post-thumbnail","hentry","category-zzjy","post_format-post-format-aside"],"_links":{"self":[{"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/posts\/7274","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=7274"}],"version-history":[{"count":0,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/posts\/7274\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/media\/6817"}],"wp:attachment":[{"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=7274"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=7274"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=7274"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}