{"id":10532,"date":"2024-07-23T09:23:41","date_gmt":"2024-07-23T01:23:41","guid":{"rendered":"http:\/\/www.aiersheng.cc\/?p=10532"},"modified":"2025-06-05T17:45:59","modified_gmt":"2025-06-05T09:45:59","slug":"%e3%80%8avisual-basic%e7%a8%8b%e5%ba%8f%e8%ae%be%e8%ae%a1%e3%80%8b-%e8%87%aa%e5%ad%a6%e8%80%83%e8%af%95%e5%a4%a7%e7%ba%b2","status":"publish","type":"post","link":"https:\/\/www.aiersheng.cc\/?p=10532","title":{"rendered":"\u300aVisual Basic\u7a0b\u5e8f\u8bbe\u8ba1\u300b \u81ea\u5b66\u8003\u8bd5\u5927\u7eb2  [07759]"},"content":{"rendered":"<p>[wshop_downloads<\/p>\n<p><strong>\u300aVisual Basic\u7a0b\u5e8f\u8bbe\u8ba1\u300b \u81ea\u5b66\u8003\u8bd5\u5927\u7eb2<\/strong><\/p>\n<p>\u6d59\u6c5f\u7701\u6559\u80b2\u8003\u8bd5\u9662<\/p>\n<p>\u4e8c\u96f6\u4e00\u516d\u5e74\u5341\u4e8c\u6708<\/p>\n<p>\u81ea\u5b66\u7528\u4e66\uff1aVisual Basic \u7a0b\u5e8f\u8bbe\u8ba1\uff0c\u90ed\u7ea2 \u674e\u8299\u73b2 \u4e3b\u7f16\uff0c\u6e05\u534e\u5927\u5b66\u51fa\u7248\u793e\uff0c2016\u5e743\u6708\u7b2c\u4e00\u7248<\/p>\n<ul>\n<li><strong>\u8bfe\u7a0b\u6027\u8d28\u4e0e\u8bbe\u7f6e\u76ee\u7684\u8981\u6c42<\/strong><\/li>\n<\/ul>\n<p>\u300aVisual Basic \u7a0b\u5e8f\u8bbe\u8ba1\u300b\u8bfe\u7a0b\u662f\u5168\u56fd\u9ad8\u7b49\u6559\u80b2\u81ea\u5b66\u8003\u8bd5\u4fe1\u606f\u7c7b\u4e13\u4e1a\u7684\u8003\u8bd5\u8bfe\u7a0b\u3002Visual Basic\u662f\u5fae\u8f6f\u516c\u53f8\u63a8\u51fa\u7684\u4e00\u79cd\u53ef\u89c6\u5316\u3001\u9762\u5411\u5bf9\u8c61\u548c\u4e8b\u4ef6\u9a71\u52a8\u65b9\u5f0f\u7684\u7ed3\u6784\u5316\u9ad8\u7ea7\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00\uff0c\u80fd\u7528\u4e8eWindows\u73af\u5883\u4e0b\u7684\u5404\u79cd\u5e94\u7528\u8f6f\u4ef6\u7684\u5f00\u53d1\uff0c\u5177\u6709\u7b80\u5355\u6613\u5b66\u3001\u5e94\u7528\u5e7f\u6cdb\u7b49\u7279\u70b9\u3002\u6559\u6750\u300aVisual Basic \u7a0b\u5e8f\u8bbe\u8ba1\u300b\u4ee5Visual Basic 6.0\u4e3a\u96c6\u6210\u5f00\u53d1\u73af\u5883\uff0c<\/p>\n<p>\u8bbe\u7f6e\u672c\u8bfe\u7a0b\u7684\u76ee\u7684\u662f\uff1a\u4f7f\u81ea\u5b66\u5e94\u8003\u8005\u638c\u63e1\u7ed3\u6784\u5316\u7a0b\u5e8f\u8bbe\u8ba1\u65b9\u6cd5\uff0c\u5177\u5907\u53ef\u89c6\u5316\u7a0b\u5e8f\u5f00\u53d1\u80fd\u529b\uff1b\u5177\u6709\u5229\u7528\u8ba1\u7b97\u673a\u89e3\u51b3\u5b9e\u9645\u95ee\u9898\u80fd\u529b\uff0c\u57f9\u517b\u5206\u6790\u548c\u5f52\u7eb3\u95ee\u9898\u7684\u80fd\u529b\uff0c\u4ee5\u6ee1\u8db3\u4e13\u4e1a\u8bfe\u5e94\u7528\u4ee5\u53ca\u7ee7\u7eed\u5b66\u4e60\u7684\u9700\u8981\u3002<\/p>\n<p>\u5b66\u4e60\u672c\u8bfe\u7a0b\u7684\u8981\u6c42\u662f\uff1a\u4ee5\u8fc7\u7a0b\u8bbe\u8ba1\u4e3a\u4e3b\u7ebf\u638c\u63e1\u7ed3\u6784\u5316\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u65b9\u6cd5\uff1b\u719f\u6089VB\u7684\u5e38\u7528\u63a7\u4ef6\u4ee5\u53ca\u4ed6\u4eec\u7684\u5e38\u7528\u65b9\u6cd5\u3001\u5c5e\u6027\u548c\u4e8b\u4ef6\uff1b\u638c\u63e1\u9762\u5411\u5bf9\u8c61\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u65b9\u6cd5\u548c\u7f16\u7a0b\u6280\u5de7\uff0c\u80fd\u591f\u7075\u6d3b\u4f7f\u7528VB\u7f16\u5236\u89e3\u9898\u7a0b\u5e8f\u3002<\/p>\n<p>\u300aVisual Basic \u7a0b\u5e8f\u8bbe\u8ba1\u300b\u4e5f\u662f\u4e00\u95e8\u64cd\u4f5c\u6027\u548c\u5e94\u7528\u6027\u5f88\u5f3a\u7684\u8bfe\u7a0b\uff0c\u5728\u81ea\u5b66\u8fc7\u7a0b\u4e2d\uff0c\u9700\u8981\u5b89\u6392\u4e00\u5b9a\u7684\u65f6\u95f4\u4e0a\u673a\u64cd\u4f5c\u5b9e\u8df5\uff0c\u4ee5\u63d0\u9ad8\u5b66\u4e60\u6548\u7387\u3002<\/p>\n<p>&nbsp;<\/p>\n<ul>\n<li><strong>\u8003\u6838\u5185\u5bb9\u53ca\u76ee\u6807<\/strong><\/li>\n<\/ul>\n<p><strong>\u7b2c1\u7ae0 Visual Basic \u7a0b\u5e8f\u8bbe\u8ba1\u6982\u8ff0<\/strong><\/p>\n<p><strong>1\u3001\u5b66\u4e60\u76ee\u7684\u548c\u8981\u6c42<\/strong><\/p>\n<p>\u901a\u8fc7\u672c\u7ae0\u7684\u5b66\u4e60\uff0c\u4e86\u89e3Visual Basic\u7684\u53d1\u5c55\u548c\u7279\u70b9\uff0c\u719f\u6089Visual Basic 6.0\u7684\u5f00\u53d1\u73af\u5883\uff0c\u638c\u63e1\u521b\u5efa\u7b80\u5355\u7684Visual Basic\u5e94\u7528\u7a0b\u5e8f\u57fa\u672c\u6b65\u9aa4\uff0c\u4e86\u89e3Visual Basic\u5e94\u7528\u7a0b\u5e8f\u7684\u57fa\u672c\u7ec4\u6210\u3002<\/p>\n<p><strong>2\u3001\u8003\u6838\u77e5\u8bc6\u70b9<\/strong><\/p>\n<p>\uff081\uff09Visual Basic\u53d1\u5c55\u548c\u7279\u70b9<\/p>\n<p>\uff082\uff09Visual Basic\u96c6\u6210\u5f00\u53d1\u73af\u5883<\/p>\n<p>\uff083\uff09\u521b\u5efa\u7b80\u5355Visual Basic\u5e94\u7528\u7a0b\u5e8f\u57fa\u672c\u6b65\u9aa4<\/p>\n<p>\uff084\uff09Visual Basic\u5e94\u7528\u7a0b\u5e8f\u57fa\u672c\u7ec4\u6210<\/p>\n<p><strong>3\u3001\u8003\u6838\u8981\u6c42<\/strong><\/p>\n<p>\uff081\uff09\u8bc6\u8bb0\uff1a Visual Basic\u53d1\u5c55\u548c\u7279\u70b9<\/p>\n<p>\uff082\uff09\u7406\u89e3\uff1a Visual Basic\u96c6\u6210\u5f00\u53d1\u73af\u5883\u3001\u521b\u5efa\u7b80\u5355Visual Basic\u5e94\u7528\u7a0b\u5e8f\u57fa\u672c\u6b65\u9aa4\u3001Visual Basic\u5e94\u7528\u7a0b\u5e8f\u57fa\u672c\u7ec4\u6210<\/p>\n<p><strong>\u7b2c2\u7ae0 \u7b80\u5355Visual Basic \u7a0b\u5e8f\u8bbe\u8ba1<\/strong><\/p>\n<p><strong>1\u3001\u5b66\u4e60\u76ee\u7684\u548c\u8981\u6c42<\/strong><\/p>\n<p>\u901a\u8fc7\u672c\u7ae0\u7684\u5b66\u4e60\uff0c\u7406\u89e3\u9762\u5411\u5bf9\u8c61\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u57fa\u672c\u6982\u5ff5\uff0c\u4e86\u89e3\u5bf9\u8c61\u7684\u516c\u5171\u5c5e\u6027\uff0c\u638c\u63e1\u7a97\u4f53\u3001\u6807\u7b7e\u3001\u6587\u672c\u6846\u3001\u547d\u4ee4\u6309\u94ae\u3001\u56fe\u7247\u6846\u548c\u56fe\u50cf\u6846\u7b49\u63a7\u4ef6\u7684\u4f7f\u7528\uff0c\u719f\u6089Visual Basic\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u7801\u89c4\u5219\u3002<\/p>\n<p><strong>2\u3001\u8003\u6838\u77e5\u8bc6\u70b9<\/strong><\/p>\n<p>\uff081\uff09\u9762\u5411\u5bf9\u8c61\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u57fa\u672c\u6982\u5ff5<\/p>\n<p>\uff082\uff09\u5bf9\u8c61\u7684\u516c\u5171\u5c5e\u6027<\/p>\n<p>\uff083\uff09\u7a97\u4f53\u3001\u6807\u7b7e\u3001\u6587\u672c\u6846\u3001\u547d\u4ee4\u6309\u94ae\u3001\u56fe\u7247\u6846\u548c\u56fe\u50cf\u6846\u63a7\u4ef6<\/p>\n<p>\uff084\uff09Visual Basic\u7a0b\u5e8f\u7ed3\u6784<\/p>\n<p>\uff085\uff09Visual Basic\u7f16\u7801\u89c4\u5219<\/p>\n<p><strong>3\u3001\u8003\u6838\u8981\u6c42<\/strong><\/p>\n<p>\uff081\uff09\u8bc6\u8bb0\uff1a\u5bf9\u8c61\u7684\u516c\u5171\u5c5e\u6027\u3001Visual Basic\u7a0b\u5e8f\u7ed3\u6784\u3001Visual Basic\u7f16\u7801\u89c4\u5219<\/p>\n<p>\uff082\uff09\u7406\u89e3\uff1a\u9762\u5411\u5bf9\u8c61\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u57fa\u672c\u6982\u5ff5<\/p>\n<p>\uff083\uff09\u7b80\u5355\u5e94\u7528\uff1a\u80fd\u7528\u7a97\u4f53\u3001\u6807\u7b7e\u3001\u6587\u672c\u6846\u3001\u547d\u4ee4\u6309\u94ae\u3001\u56fe\u7247\u6846\u548c\u56fe\u50cf\u6846\u63a7\u4ef6\u7f16\u5236\u754c\u9762\u7f8e\u89c2\u3001\u4ea4\u4e92\u6027\u597d\u7684\u5e94\u7528\u7a0b\u5e8f<\/p>\n<p><strong>\u7b2c3\u7ae0 Visual Basic \u8bed\u8a00\u57fa\u7840<\/strong><\/p>\n<p><strong>1\u3001\u5b66\u4e60\u76ee\u7684\u548c\u8981\u6c42<\/strong><\/p>\n<p>\u901a\u8fc7\u672c\u7ae0\u7684\u5b66\u4e60\uff0c\u4e86\u89e3Visual Basic\u7684\u6570\u636e\u7c7b\u578b\u3001\u5e38\u91cf\u548c\u53d8\u91cf\uff0c\u638c\u63e1\u8fd0\u7b97\u7b26\u3001\u8868\u8fbe\u5f0f\u548c\u5e38\u7528\u5185\u90e8\u51fd\u6570\u7684\u4f7f\u7528\u3002<\/p>\n<p><strong>2\u3001\u8003\u6838\u77e5\u8bc6\u70b9<\/strong><\/p>\n<p>\uff081\uff09\u6570\u636e\u7c7b\u578b<\/p>\n<p>\uff082\uff09\u5e38\u91cf\u548c\u53d8\u91cf<\/p>\n<p>\uff083\uff09\u8fd0\u7b97\u7b26\u548c\u8868\u8fbe\u5f0f<\/p>\n<p>\uff084\uff09\u5e38\u7528\u5185\u90e8\u51fd\u6570<\/p>\n<p><strong>3\u3001\u8003\u6838\u8981\u6c42<\/strong><\/p>\n<p>\uff081\uff09\u8bc6\u8bb0\uff1a\u6570\u636e\u7c7b\u578b\u3001\u5e38\u91cf\u548c\u53d8\u91cf<\/p>\n<p>\uff082\uff09\u7406\u89e3\uff1a\u8fd0\u7b97\u7b26<\/p>\n<p>\uff083\uff09\u7b80\u5355\u5e94\u7528\uff1a\u80fd\u5229\u7528\u5e38\u7528\u5185\u90e8\u51fd\u6570\uff0c\u80fd\u5c06\u5b9e\u9645\u95ee\u9898\u7528\u6070\u5f53\u7684\u8868\u8fbe\u5f0f\u8fdb\u884c\u8868\u793a<\/p>\n<p><strong>\u7b2c4\u7ae0 \u987a\u5e8f\u7ed3\u6784\u7a0b\u5e8f\u8bbe\u8ba1<\/strong><\/p>\n<p><strong>1\u3001\u5b66\u4e60\u76ee\u7684\u548c\u8981\u6c42<\/strong><\/p>\n<p>\u901a\u8fc7\u672c\u7ae0\u7684\u5b66\u4e60\uff0c\u719f\u6089\u7a0b\u5e8f\u7b97\u6cd5\u548c\u4e09\u79cd\u63a7\u5236\u7ed3\u6784\uff0c\u7406\u89e3\u7a0b\u5e8f\u7684\u8d4b\u503c\u8bed\u53e5\u3001\u7ed3\u675f\u548c\u6682\u505c\u8bed\u53e5\uff0c\u638c\u63e1Print\u65b9\u6cd5\u3001Format\u51fd\u6570\u3001InputBox\u51fd\u6570\u3001MsgBox\u51fd\u6570\u4e0e\u8fc7\u7a0b\u7684\u6570\u636e\u8f93\u5165\u8f93\u51fa\uff0c\u638c\u63e1\u7a0b\u5e8f\u8c03\u8bd5\u65b9\u6cd5\u3002<\/p>\n<p><strong>2\u3001\u8003\u6838\u77e5\u8bc6\u70b9<\/strong><\/p>\n<p>\uff081\uff09\u7a0b\u5e8f\u7b97\u6cd5\u3001\u4e09\u79cd\u7a0b\u5e8f\u63a7\u5236\u7ed3\u6784<\/p>\n<p>\uff082\uff09\u8d4b\u503c\u8bed\u53e5\u3001\u7ed3\u675f\u548c\u6682\u505c\u8bed\u53e5<\/p>\n<p>\uff083\uff09\u6570\u636e\u8f93\u5165\u8f93\u51fa<\/p>\n<p>\uff084\uff09\u7a0b\u5e8f\u8c03\u8bd5<\/p>\n<p><strong>3\u3001\u8003\u6838\u8981\u6c42<\/strong><\/p>\n<p>\uff081\uff09\u8bc6\u8bb0\uff1a\u7a0b\u5e8f\u7b97\u6cd5\u3001\u4e09\u79cd\u7a0b\u5e8f\u63a7\u5236\u7ed3\u6784<\/p>\n<p>\uff082\uff09\u7406\u89e3\uff1a\u8d4b\u503c\u8bed\u53e5\u3001\u7ed3\u675f\u548c\u6682\u505c\u8bed\u53e5\uff0c\u6570\u636e\u8f93\u5165\u8f93\u51fa\uff0c\u7a0b\u5e8f\u8c03\u8bd5\u65b9\u6cd5<\/p>\n<p>\uff083\uff09\u7b80\u5355\u5e94\u7528\uff1a\u7f16\u5199\u987a\u5e8f\u7ed3\u6784\u7a0b\u5e8f<\/p>\n<p><strong>\u7b2c5\u7ae0 \u9009\u62e9\u7ed3\u6784\u7a0b\u5e8f\u8bbe\u8ba1<\/strong><\/p>\n<p><strong>1\u3001\u5b66\u4e60\u76ee\u7684\u548c\u8981\u6c42<\/strong><\/p>\n<p>\u901a\u8fc7\u672c\u7ae0\uff08\u8bfe\u7a0b\u7684\u91cd\u70b9\u7ae0\u8282\u4e4b\u4e00\uff09\u7684\u5b66\u4e60\uff0c\u719f\u7ec3\u638c\u63e1\u9009\u62e9\u7ed3\u6784\u7a0b\u5e8f\u8bbe\u8ba1\u65b9\u9762\u7684\u77e5\u8bc6\uff0c\u5305\u62ecIf\u8bed\u53e5\u3001Select Case\u8bed\u53e5\u3001\u6761\u4ef6\u8bed\u53e5\u7684\u5d4c\u5957\u548c\u6761\u4ef6\u51fd\u6570\u7684\u4f7f\u7528\u3002\u638c\u63e1\u5355\u9009\u6309\u94ae\u3001\u590d\u9009\u6846\u548c\u6846\u67b6\u4e09\u79cd\u57fa\u672c\u63a7\u4ef6\u7684\u4f7f\u7528\u3002<\/p>\n<p><strong>2\u3001\u8003\u6838\u77e5\u8bc6\u70b9<\/strong><\/p>\n<p>\uff081\uff09If\u8bed\u53e5<\/p>\n<p>\uff082\uff09Select Case\u8bed\u53e5<\/p>\n<p>\uff083\uff09\u6761\u4ef6\u8bed\u53e5\u7684\u5d4c\u5957<\/p>\n<p>\uff084\uff09\u6761\u4ef6\u51fd\u6570<\/p>\n<p>\uff085\uff09\u5355\u9009\u6309\u94ae\u3001\u590d\u9009\u6846\u548c\u6846\u67b6<\/p>\n<p><strong>3\u3001\u8003\u6838\u8981\u6c42<\/strong><\/p>\n<p>\uff081\uff09\u8bc6\u8bb0\uff1a\u9009\u62e9\u7ed3\u6784\u7a0b\u5e8f\u6d41\u7a0b<\/p>\n<p>\uff082\uff09\u7406\u89e3\uff1aIf\u8bed\u53e5\u3001Select Case\u8bed\u53e5\u3001\u6761\u4ef6\u51fd\u6570<\/p>\n<p>\uff083\uff09\u7b80\u5355\u5e94\u7528\uff1a\u5355\u9009\u6309\u94ae\u3001\u590d\u9009\u6846\u548c\u6846\u67b6\u7684\u4f7f\u7528<\/p>\n<p>\uff084\uff09\u7efc\u5408\u5e94\u7528\uff1a\u7f16\u5199\u9009\u62e9\u7ed3\u6784\u7a0b\u5e8f<\/p>\n<p><strong>\u7b2c6\u7ae0 \u00a0\u5faa\u73af\u7ed3\u6784\u7a0b\u5e8f\u8bbe\u8ba1<\/strong><\/p>\n<p><strong>1\u3001\u5b66\u4e60\u76ee\u7684\u548c\u8981\u6c42<\/strong><\/p>\n<p>\u901a\u8fc7\u672c\u7ae0\uff08\u8bfe\u7a0b\u7684\u91cd\u70b9\u7ae0\u8282\u4e4b\u4e00\uff09\u7684\u5b66\u4e60\uff0c\u719f\u7ec3\u638c\u63e1\u5faa\u73af\u7ed3\u6784\u7a0b\u5e8f\u8bbe\u8ba1\uff0c\u5305\u62ecFor\u2026Next\u8bed\u53e5\u3001Do\u2026Loop\u8bed\u53e5\u548cWhile\u2026Wend\u8bed\u53e5\u3002\u638c\u63e1\u6eda\u52a8\u6761\u3001\u8fdb\u5ea6\u6761\u548c\u5b9a\u65f6\u5668\u4e09\u79cd\u57fa\u672c\u63a7\u4ef6\u7684\u4f7f\u7528\u3002<\/p>\n<p><strong>2\u3001\u8003\u6838\u77e5\u8bc6\u70b9<\/strong><\/p>\n<p>\uff081\uff09For\u2026Next\u8bed\u53e5<\/p>\n<p>\uff082\uff09Do\u2026Loop\u8bed\u53e5<\/p>\n<p>\uff083\uff09While\u2026Wend\u8bed\u53e5<\/p>\n<p>\uff084\uff09\u4e09\u79cd\u5faa\u73af\u7684\u6bd4\u8f83<\/p>\n<p>\uff085\uff09\u5faa\u73af\u7684\u5d4c\u5957<\/p>\n<p>\uff086\uff09\u6eda\u52a8\u6761\u3001\u8fdb\u5ea6\u6761\u548c\u5b9a\u65f6\u5668<\/p>\n<p><strong>3\u3001\u8003\u6838\u8981\u6c42<\/strong><\/p>\n<p>\uff081\uff09\u8bc6\u8bb0\uff1a\u5faa\u73af\u7ed3\u6784\u7a0b\u5e8f\u6d41\u7a0b<\/p>\n<p>\uff082\uff09\u7406\u89e3\uff1aFor\u2026Next\u8bed\u53e5\u3001Do\u2026Loop\u8bed\u53e5\u3001While\u2026Wend\u8bed\u53e5\u3001\u5faa\u73af\u7684\u5d4c\u5957<\/p>\n<p>\uff083\uff09\u7b80\u5355\u5e94\u7528\uff1a\u6eda\u52a8\u6761\u3001\u8fdb\u5ea6\u6761\u548c\u5b9a\u65f6\u5668\u4e09\u79cd\u57fa\u672c\u63a7\u4ef6\u7684\u4f7f\u7528<\/p>\n<p>\uff084\uff09\u7efc\u5408\u5e94\u7528\uff1a\u7f16\u5199\u5faa\u73af\u7ed3\u6784\u7a0b\u5e8f<\/p>\n<p><strong>\u7b2c7\u7ae0 \u00a0\u6570\u7ec4\u4e0e\u81ea\u5b9a\u4e49\u7c7b\u578b<\/strong><\/p>\n<p><strong>1\u3001\u5b66\u4e60\u76ee\u7684\u548c\u8981\u6c42<\/strong><\/p>\n<p>\u901a\u8fc7\u672c\u7ae0\uff08\u8bfe\u7a0b\u7684\u91cd\u70b9\u7ae0\u8282\u4e4b\u4e00\uff09\u7684\u5b66\u4e60\uff0c\u7406\u89e3\u6570\u7ec4\u7684\u6982\u5ff5\uff0c\u719f\u7ec3\u638c\u63e1\u4e00\u7ef4\u6570\u7ec4\u3001\u4e8c\u7ef4\u6570\u7ec4\u548c\u52a8\u6001\u6570\u7ec4\u7684\u4f7f\u7528\u3002\u638c\u63e1\u5217\u8868\u6846\u548c\u7ec4\u5408\u6846\u63a7\u4ef6\u7684\u4f7f\u7528\u3002<\/p>\n<p><strong>2\u3001\u8003\u6838\u77e5\u8bc6\u70b9<\/strong><\/p>\n<p>\uff081\uff09 \u4e00\u7ef4\u6570\u7ec4<\/p>\n<p>\uff082\uff09 \u4e8c\u7ef4\u6570\u7ec4\u53ca\u591a\u7ef4\u6570\u7ec4<\/p>\n<p>\uff083\uff09\u52a8\u6001\u6570\u7ec4<\/p>\n<p>\uff084\uff09\u63a7\u4ef6\u6570\u7ec4<\/p>\n<p>\uff085\uff09\u81ea\u5b9a\u4e49\u6570\u636e\u7c7b\u578b\u53ca\u5176\u6570\u503c<\/p>\n<p>\uff086\uff09\u5217\u8868\u6846\u548c\u7ec4\u5408\u6846<\/p>\n<p><strong>3\u3001\u8003\u6838\u8981\u6c42<\/strong><\/p>\n<p>\uff081\uff09\u8bc6\u8bb0\uff1a\u63a7\u4ef6\u6570\u7ec4<\/p>\n<p>\uff082\uff09\u7406\u89e3\uff1a\u4e00\u7ef4\u6570\u7ec4\u3001\u4e8c\u7ef4\u6570\u7ec4\u53ca\u591a\u7ef4\u6570\u7ec4\u3001\u52a8\u6001\u6570\u7ec4\u3001\u81ea\u5b9a\u4e49\u6570\u636e\u7c7b\u578b\u53ca\u5176\u6570\u503c<\/p>\n<p>\uff083\uff09\u7b80\u5355\u5e94\u7528\uff1a\u5217\u8868\u6846\u548c\u7ec4\u5408\u6846<\/p>\n<p>\uff084\uff09\u7efc\u5408\u5e94\u7528\uff1a\u5206\u7c7b\u7edf\u8ba1\u3001\u6392\u5e8f\u95ee\u9898\u3001\u67e5\u627e\u95ee\u9898\u3001\u4e8c\u7ef4\u6570\u7ec4\u7684\u6c42\u548c\u548c\u6700\u5927\u503c\uff08\u6700\u5c0f\u503c\uff09\u95ee\u9898\u3001\u6c42\u5e73\u5747\u6570\u3001\u77e9\u9635\u95ee\u9898\u7b49<\/p>\n<p><strong>\u7b2c8\u7ae0 \u00a0\u8fc7\u7a0b<\/strong><\/p>\n<p><strong>1\u3001\u5b66\u4e60\u76ee\u7684\u548c\u8981\u6c42<\/strong><\/p>\n<p>\u901a\u8fc7\u672c\u7ae0\uff08\u8bfe\u7a0b\u7684\u91cd\u70b9\u7ae0\u8282\u4e4b\u4e00\uff09\u7684\u5b66\u4e60\uff0c\u719f\u7ec3\u638c\u63e1\u51fd\u6570\u8fc7\u7a0b\u4e0e\u5b50\u8fc7\u7a0b\u7684\u5b9a\u4e49\u548c\u8c03\u7528\uff0c\u8c03\u7528\u8fc7\u7a0b\u65f6\u7684\u53c2\u6570\u4f20\u9001\u3001\u8fc7\u7a0b\u7684\u5d4c\u5957\u8c03\u7528\u548c\u9012\u5f52\u8c03\u7528\uff0c\u53d8\u91cf\u548c\u8fc7\u7a0b\u7684\u4f5c\u7528\u57df\u3002<\/p>\n<p><strong>2\u3001\u8003\u6838\u77e5\u8bc6\u70b9<\/strong><\/p>\n<p>\uff081\uff09 \u51fd\u6570\u8fc7\u7a0b<\/p>\n<p>\uff082\uff09 \u5b50\u8fc7\u7a0b<\/p>\n<p>\uff083\uff09 \u53c2\u6570\u4f20\u9012<\/p>\n<p>\uff084\uff09 \u8fc7\u7a0b\u7684\u5d4c\u5957\u53ca\u9012\u5f52\u8c03\u7528<\/p>\n<p>\uff085\uff09 \u53d8\u91cf\u3001\u8fc7\u7a0b\u7684\u4f5c\u7528\u57df<\/p>\n<p><strong>3\u3001\u8003\u6838\u8981\u6c42<\/strong><\/p>\n<p>\uff081\uff09\u8bc6\u8bb0\uff1a\u51fd\u6570\u8fc7\u7a0b\u548c\u5b50\u8fc7\u7a0b\u7684\u5b9a\u4e49\u548c\u8c03\u7528<\/p>\n<p>\uff082\uff09\u7406\u89e3\uff1a\u53c2\u6570\u4f20\u9012\u3001\u8fc7\u7a0b\u7684\u5d4c\u5957\u53ca\u9012\u5f52\u8c03\u7528\u3001\u53d8\u91cf\u548c\u8fc7\u7a0b\u7684\u4f5c\u7528\u57df<\/p>\n<p>\uff083\uff09\u7efc\u5408\u5e94\u7528\uff1a\u5c065\u30016\u30017\u30018\u7ae0\u4e2d\u7684\u793a\u4f8b\u6216\u4e60\u9898\u7f16\u5236\u4e3a\u51fd\u6570\u8fc7\u7a0b\u6216\u5b50\u8fc7\u7a0b<\/p>\n<p><strong>\u7b2c9\u7ae0 \u00a0\u83dc\u5355\u4e0e\u5bf9\u8bdd\u6846\u7684\u8bbe\u8ba1<\/strong><\/p>\n<p><strong>1\u3001\u5b66\u4e60\u76ee\u7684\u548c\u8981\u6c42<\/strong><\/p>\n<p>\u901a\u8fc7\u672c\u7ae0\u7684\u5b66\u4e60\uff0c\u719f\u7ec3\u638c\u63e1\u83dc\u5355\u8bbe\u8ba1\u3001\u5bf9\u8bdd\u6846\u548c\u591a\u91cd\u6587\u6863\u754c\u9762\u8bbe\u8ba1\u3002<\/p>\n<p><strong>2\u3001\u8003\u6838\u77e5\u8bc6\u70b9<\/strong><\/p>\n<p>\uff081\uff09\u83dc\u5355\u8bbe\u8ba1<\/p>\n<p>\uff082\uff09\u5bf9\u8bdd\u6846<\/p>\n<p>\uff083\uff09\u591a\u91cd\u6587\u6863\u754c\u9762<\/p>\n<p><strong>3\u3001\u8003\u6838\u8981\u6c42<\/strong><\/p>\n<p>\uff081\uff09\u7b80\u5355\u5e94\u7528\uff1a\u4f7f\u7528\u901a\u7528\u5bf9\u8bdd\u6846\u63a7\u4ef6\u8bbe\u8ba1\u201c\u6253\u5f00\u201d\u5bf9\u8bdd\u6846\u3001\u201c\u53e6\u5b58\u4e3a\u201d\u5bf9\u8bdd\u6846\u3001\u201c\u989c\u8272\u201d\u5bf9\u8bdd\u6846\u548c\u201c\u5b57\u4f53\u201d\u5bf9\u8bdd\u6846<\/p>\n<p>\uff082\uff09\u7efc\u5408\u5e94\u7528\uff1a\u7528\u83dc\u5355\u7f16\u8f91\u5668\u8bbe\u8ba1\u4e0b\u62c9\u5f0f\u83dc\u5355\u8bbe\u8ba1\uff0c\u591a\u91cd\u6587\u6863\u754c\u9762\u8bbe\u8ba1<\/p>\n<p><strong>\u7b2c10\u7ae0 \u00a0\u6587\u4ef6<\/strong><\/p>\n<p><strong>1\u3001\u5b66\u4e60\u76ee\u7684\u548c\u8981\u6c42<\/strong><\/p>\n<p>\u901a\u8fc7\u672c\u7ae0\u7684\u5b66\u4e60\uff0c\u4e86\u89e3\u6587\u4ef6\u7684\u6982\u5ff5\uff0c\u719f\u6089\u987a\u5e8f\u6587\u4ef6\u3001\u968f\u673a\u6587\u4ef6\u548c\u4e8c\u8fdb\u5236\u6587\u4ef6\u7684\u8bfb\u5199\u64cd\u4f5c\uff0c\u719f\u6089\u6587\u4ef6\u63a7\u4ef6\u7684\u4f7f\u7528\u3002<\/p>\n<p><strong>2\u3001\u8003\u6838\u77e5\u8bc6\u70b9<\/strong><\/p>\n<p>\uff081\uff09\u6587\u4ef6\u7684\u6982\u5ff5<\/p>\n<p>\uff082\uff09 \u987a\u5e8f\u6587\u4ef6<\/p>\n<p>\uff083\uff09 \u968f\u673a\u6587\u4ef6<\/p>\n<p>\uff084\uff09 \u4e8c\u8fdb\u5236\u6587\u4ef6\u7684\u64cd\u4f5c<\/p>\n<p>\uff085\uff09 \u6587\u4ef6\u7ba1\u7406\u63a7\u4ef6<\/p>\n<p><strong>3\u3001\u8003\u6838\u8981\u6c42<\/strong><\/p>\n<p>\uff081\uff09\u8bc6\u8bb0\uff1a\u6587\u4ef6\u7684\u6982\u5ff5\u3001\u6587\u672c\u6587\u4ef6\u7684\u6253\u5f00\u4e0e\u5173\u95ed<\/p>\n<p>\uff082\uff09\u7406\u89e3\uff1a\u6587\u4ef6\u7ba1\u7406\u63a7\u4ef6<\/p>\n<p>\uff083\uff09\u7efc\u5408\u5e94\u7528\uff1a\u4ece\u6587\u4ef6\u8f93\u5165\u6570\u636e\uff0c\u7ecf\u5904\u7406\u540e\u8f93\u51fa\u5230\u78c1\u76d8\u6587\u4ef6\u3002<\/p>\n<p><strong>\u7b2c11\u7ae0 \u00a0\u952e\u76d8\u4e8b\u4ef6\u4e0e\u9f20\u6807\u4e8b\u4ef6<\/strong><\/p>\n<p><strong>1\u3001\u5b66\u4e60\u76ee\u7684\u548c\u8981\u6c42<\/strong><\/p>\n<p>\u901a\u8fc7\u672c\u7ae0\u7684\u5b66\u4e60\uff0c\u638c\u63e1\u952e\u76d8KeyPress\u3001KeyDown\u3001KeyUp\u4e8b\u4ef6\uff0c\u9f20\u6807MouseDown\u3001MouseUp\u548cMouseMove\u4e8b\u4ef6\u53ca\u5176\u7f16\u7a0b\u65b9\u6cd5\u3002\u4e86\u89e3\u8bbe\u7f6e\u9f20\u6807\u6307\u9488\u548c\u62d6\u653e\u64cd\u4f5c\u3002<\/p>\n<p><strong>2\u3001\u8003\u6838\u77e5\u8bc6\u70b9<\/strong><\/p>\n<p>\uff081\uff09\u952e\u76d8\u4e8b\u4ef6<\/p>\n<p>\uff082\uff09\u9f20\u6807\u4e8b\u4ef6<\/p>\n<p>\uff083\uff09\u8bbe\u7f6e\u9f20\u6807\u6307\u9488<\/p>\n<p>\uff084\uff09\u62d6\u653e\u64cd\u4f5c<\/p>\n<p><strong>3\u3001\u8003\u6838\u8981\u6c42<\/strong><\/p>\n<p>\uff081\uff09\u8bc6\u8bb0\uff1a\u8bbe\u7f6e\u9f20\u6807\u6307\u9488\u3001\u62d6\u653e\u64cd\u4f5c<\/p>\n<p>\uff082\uff09\u7406\u89e3\uff1a\u952e\u76d8KeyPress\u3001KeyDown\u3001KeyUp\u4e8b\u4ef6\uff0c\u9f20\u6807MouseDown\u3001MouseUp\u548cMouseMove\u4e8b\u4ef6<\/p>\n<p><strong>\u7b2c12\u7ae0 \u00a0\u56fe\u5f62\u64cd\u4f5c<\/strong><\/p>\n<p><strong>1\u3001\u5b66\u4e60\u76ee\u7684\u548c\u8981\u6c42<\/strong><\/p>\n<p>\u901a\u8fc7\u672c\u7ae0\u7684\u5b66\u4e60\uff0c\u638c\u63e1Visual Basic\u7684\u56fe\u5f62\u63a7\u4ef6\u548c\u56fe\u5f62\u65b9\u6cd5\u3002\u719f\u7ec3\u638c\u63e1\u76f4\u7ebfLine\u63a7\u4ef6\u548c\u5f62\u72b6Shape\u63a7\u4ef6\uff0cLine\u3001Circle\u3001PSet\u3001Point\u7b49\u56fe\u5f62\u65b9\u6cd5\u3002\u719f\u6089VB\u5750\u6807\u7cfb\u3001\u81ea\u5b9a\u4e49\u5750\u6807\u7cfb\u3002<\/p>\n<p><strong>2\u3001\u8003\u6838\u77e5\u8bc6\u70b9<\/strong><\/p>\n<p>\uff081\uff09\u56fe\u5f62\u63a7\u4ef6<\/p>\n<p>\uff082\uff09Visual Basic\u5750\u6807\u7cfb<\/p>\n<p>\uff083\uff09\u7ed8\u56fe\u5c5e\u6027<\/p>\n<p>\uff084\uff09\u56fe\u5f62\u65b9\u6cd5<\/p>\n<p><strong>3\u3001\u8003\u6838\u8981\u6c42<\/strong><\/p>\n<p>\uff081\uff09\u8bc6\u8bb0\uff1aVB\u5750\u6807\u7cfb\u3001\u76f4\u7ebfLine\u63a7\u4ef6\u3001\u5f62\u72b6Shape\u63a7\u4ef6\u3001\u7ed8\u56fe\u5c5e\u6027<\/p>\n<p>\uff082\uff09\u7406\u89e3\uff1a\u81ea\u5b9a\u4e49\u5750\u6807\u7cfb\u7684Scale\u65b9\u6cd5<\/p>\n<p>\uff083\uff09\u7efc\u5408\u5e94\u7528\uff1aPset\u3001Point\u3001Line\u3001Circle\u65b9\u6cd5\u5904\u7406\u56fe\u8c61\u3002<\/p>\n<ul>\n<li><strong>\u9898\u578b\u4e3e\u4f8b<\/strong>\uff08\u9898\u578b\u4ec5\u4f5c\u53c2\u8003\uff0c\u5b9e\u9645\u547d\u9898\u65f6\u4e0d\u53d7\u6b64\u9650\uff09<\/li>\n<\/ul>\n<p>\u4e00\u3001\u5224\u65ad\u9898 \u00a0\u5728\u6bcf\u5c0f\u9898\u540e\u7684\u62ec\u53f7\u5185\u586b\u5165\u201c\u221a\u201d\u6216\u201c\u00d7\u201d\u8868\u793a\u5176\u6b63\u786e\u4e0e\u5426\uff08\u517110\u5206\uff0c\u6bcf\u98981\u5206\uff09<\/p>\n<ol>\n<li>Visual Basic\u662f\u4ee5\u7ed3\u6784\u5316\u7684Basic\u8bed\u8a00\u4e3a\u57fa\u7840\u3001\u4ee5\u4e8b\u4ef6\u9a71\u52a8\u4f5c\u4e3a\u8fd0\u884c\u673a\u5236\u7684\u53ef\u89c6\u5316\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00\u3002\u3010 \u00a0\u00a0\u3011<\/li>\n<li>VB\u7684Double\u7c7b\u578b\u6570\u636e\u53ef\u4ee5\u7cbe\u786e\u8868\u793a\u5176\u6570\u503c\u8303\u56f4\u5185\u7684\u4efb\u4f55\u5b9e\u6570\u3010 \u00a0\u00a0\u3011<\/li>\n<li>For\u5faa\u73af\u8bed\u53e5\u4e2d\u7684\u201cSTEP 1\u201d\u53ef\u4ee5\u7f3a\u7701\u3010 \u00a0\u00a0\u3011<\/li>\n<li>\u8981\u5728\u6587\u672c\u6846\u4e2d\u8f93\u51656\u4f4d\u5bc6\u7801\uff0c\u5e76\u6309\u56de\u8f66\u952e\u786e\u8ba4\uff0c\u5219\u6587\u672c\u6846\u7684MaxLength\u5c5e\u6027\u53ef\u8bbe\u7f6e\u4e3a6\u3010 \u00a0\u00a0\u3011<\/li>\n<li>\u7528Public\u58f0\u660e\u7684\u6570\u7ec4\u662f\u5168\u5c40\u91cf\u3010 \u00a0\u00a0\u3011<\/li>\n<li>\u5355\u9009\u6309\u94ae\u63a7\u4ef6\u6570\u7ec4\u7684\u5404\u63a7\u4ef6\u54cd\u5e94\u540c\u4e00\u4e2aClick\u4e8b\u4ef6\uff0c\u7531Index\u503c\u6765\u533a\u5206\u4e0d\u540c\u7684\u6309\u94ae\u3010 \u00a0\u00a0\u3011<\/li>\n<li>\u7528DIM\u5b9a\u4e49\u6570\u503c\u53d8\u91cf\u65f6\uff0c\u8be5\u6570\u503c\u53d8\u91cf\u81ea\u52a8\u8d4b\u521d\u503c\u4e3a0\u3010 \u00a0\u00a0\u3011<\/li>\n<li>\u201c\u65b9\u6cd5\u201d\u662f\u7528\u6765\u5b8c\u6210\u7279\u5b9a\u64cd\u4f5c\u7684\u7279\u6b8a\u5b50\u7a0b\u5e8f\u3010 \u00a0\u00a0\u3011<\/li>\n<li>\u5728VB6.0\u4e2d\u5229\u7528\u83dc\u5355\u7f16\u8f91\u5668\uff0c\u8fd8\u53ef\u4ee5\u8bbe\u8ba1\u5f39\u51fa\u5f0f\u83dc\u5355\u3010 \u00a0\u00a0\u3011<\/li>\n<li>VB\u5ffd\u7565\u7528INPUT\u65b9\u5f0f\u6253\u5f00\u4e00\u4e2a\u4e0d\u5b58\u5728\u7684\u78c1\u76d8\u6587\u4ef6\u3010 \u00a0\u00a0\u3011<\/li>\n<\/ol>\n<p>\u4e8c\u3001\u5355\u9879\u9009\u62e9\u9898 \u00a0\u5728\u6bcf\u5c0f\u9898\u4e2d\u7684\u62ec\u53f7\u5185\u4ee5\u5b57\u6bcdA\u3001B\u3001C\u6216D\u8868\u793a\u9009\u62e9\u7ed3\u679c\uff08\u517120\u5206\uff0c\u6bcf\u98982\u5206\uff09<\/p>\n<ol>\n<li>\u7531\u201cFor i=1 To 16Step 3\u201d\u51b3\u5b9a\u7684\u5faa\u73af\u7ed3\u6784\u88ab\u6267\u884c\uff08\u00a0 \u00a0\uff09\u6b21<\/li>\n<\/ol>\n<p>A\u30014\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 B\u30015\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 C\u30016\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 D\u30017<\/p>\n<ol start=\"2\">\n<li>Int( Rnd * 100 ) \u8868\u793a\u7684\u662f\uff08\u00a0 \u00a0\uff09 \u8303\u56f4\u5185\u7684\u6574\u6570<\/li>\n<\/ol>\n<p>A\u3001(0\uff0c100)\u00a0 \u00a0 B\u3001(1\uff0c99) \u00a0 C\u3001(0\uff0c99)\u00a0\u00a0\u00a0\u00a0 D\u3001(1\uff0c100)<\/p>\n<ol start=\"3\">\n<li>\u4e0b\u5217\uff08\u00a0 \u00a0\uff09\u5c5e\u6027\u7528\u6765\u8868\u793a\u6807\u7b7e\u6216\u7a97\u4f53\u7684\u6807\u9898<\/li>\n<\/ol>\n<p>A\u3001Text \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 B\u3001Caption \u00a0\u00a0\u00a0 C\u3001Left \u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0 \u00a0D\u3001Name<\/p>\n<ol start=\"4\">\n<li>\u5217\u8868\u6846\u63a7\u4ef6List1\u4e2d\uff0c\u6240\u6709\u7684\u8868\u9879\u7684\u603b\u6570\u53ef\u4ee5\u8868\u793a\u4e3a\uff08\u00a0 \u00a0\uff09\u3002<\/li>\n<\/ol>\n<p>\u00a0\u00a0\u00a0A\u3001List1.ListCount \u00a0B\u3001List1.ListCount-1\u00a0\u00a0\u00a0C\u3001List1.AddItem \u00a0D. List1.DataField<\/p>\n<ol start=\"5\">\n<li>\u8bbe\u7f6e\u56fe\u5f62\u7684\u586b\u5145\u6837\u5f0f\uff0c\u5e94\u4f7f\u7528\u7684\u5c5e\u6027\u662f\uff08\u00a0 \u00a0\uff09<\/li>\n<\/ol>\n<p>\u00a0\u00a0\u00a0A\u3001BackStyle \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0B\u3001FillColor \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0C\u3001FillStyle \u00a0\u00a0\u00a0\u00a0\u00a0D\u3001BorderStyle<\/p>\n<ol start=\"6\">\n<li>\u5728\u56fe\u7247\u6846\u63a7\u4ef6pic1\u4e0a\u5750\u6807\uff08x,y)\u5904\u753b\u4e00\u4e2a\u7ea2\u70b9\uff0c\u5199\u4f5c\uff08\u00a0 \u00a0\uff09<\/li>\n<\/ol>\n<p>\u00a0\u00a0\u00a0A\u3001Pset(x,y),Rgb(255,0,0) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0B\u3001Pic1.Pset(x,y),Red<\/p>\n<p>\u00a0\u00a0\u00a0C\u3001Pset(x,y),Red \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0D\u3001Pic1.Pset(x,y),vbRed<\/p>\n<ol start=\"7\">\n<li>RGB\u51fd\u6570\u4e2d\u76843\u4e2a\u6570\u5b57\u5206\u522b\u8868\u793a\uff08\u00a0 \u00a0\uff09<\/li>\n<\/ol>\n<p>\u00a0\u00a0\u00a0A\u3001\u7ea2\u7eff\u767d \u00a0\u00a0\u00a0\u00a0B\u3001\u7ea2\u7eff\u84dd \u00a0\u00a0\u00a0\u00a0C\u3001\u8272\u8c03\u3001\u9971\u548c\u5ea6\u3001\u4eae\u5ea6 \u00a0\u00a0\u00a0\u00a0D\u3001\u5f53\u524d\u8272\u3001\u80cc\u666f\u8272\u3001\u524d\u666f\u8272<\/p>\n<ol start=\"8\">\n<li>\u7528DIM(1,3 TO 7,10)\u58f0\u660e\u7684\u662f\u4e00\u4e2a\uff08\u00a0 \u00a0\uff09\u7ef4\u6570\u7ec4<\/li>\n<\/ol>\n<p>A\u30011 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 B\u30012 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 C\u30013 \u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0D\u30014<\/p>\n<ol start=\"9\">\n<li>\u6267\u884cSub\u8fc7\u7a0b\u4e2d\u7684\u8bed\u53e5\uff08\u00a0 \u00a0\uff09\u53ef\u7ed3\u675f\u8c03\u7528\u8be5Sub\u8fc7\u7a0b\u3002<\/li>\n<\/ol>\n<p>\u00a0\u00a0\u00a0A\u3001Exit Sub \u00a0\u00a0\u00a0\u00a0B\u3001Break Sub \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0C\u3001 Break \u00a0\u00a0\u00a0\u00a0\u00a0D\u3001 Exit<\/p>\n<ol start=\"10\">\n<li>\u540c\u5c42\u6b21\u83dc\u5355\u9879\u7684\uff08\u00a0 \u00a0\uff09\u5c5e\u6027\u8bbe\u7f6e\u4e3a\u76f8\u540c\uff0c\u624d\u53ef\u4ee5\u8bbe\u7f6e\u7d22\u5f15\u503c\u3001\u7ec4\u6210\u63a7\u4ef6\u6570\u7ec4\u3002<\/li>\n<\/ol>\n<p>\u00a0\u00a0\u00a0A\u3001Caption \u00a0\u00a0\u00a0\u00a0\u00a0B\u3001Name \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0C\u3001Index \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0D\u3001ShortCut<\/p>\n<p>\u4e09\u3001\u7a0b\u5e8f\u586b\u7a7a\u9898\uff08\u517122\u5206\uff0c\u6bcf\u5c0f\u98982\u5206\uff09<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u9605\u8bfb\u4e0b\u5217\u5404\u7a0b\u5e8f\uff0c\u6839\u636e\u7a0b\u5e8f\u8bf4\u660e\u5728\u6bcf\u5c0f\u9898\u63d0\u4f9b\u7684\u82e5\u5e72\u53ef\u9009\u7b54\u6848\u4e2d\u6311\u9009\u4e00\u4e2a\u6b63\u786e\u7b54\u6848\uff0c\u7528\u5b57\u6bcdA\u3001B\u3001C\u6216D\u586b\u5199\u5728\u7a0b\u5e8f\u4e2d\u5212\u7ebf\u5904\u3002<\/p>\n<p>1.\u3010\u7a0b\u5e8f\u8bf4\u660e\u3011\u5355\u51fb\u7a97\u4f53\u540e\u8f93\u5165n\uff0c\u8ba1\u7b97\u5e76\u663e\u793a\u8868\u8fbe\u5f0f\u7684\u503c\u3002<\/p>\n<p>\u3010\u7a0b\u5e8f\u3011<\/p>\n<p>\u00a0\u00a0Private Sub Form_Click()<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Dim s As Single, n As Integer, i As Integer, f As Integer<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0n = InputBox(&#8220;n=&#8221;)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0s = 0.5\u00a0:<u>\u00a0\u00a0<\/u><u>\u2474<\/u><u>\u00a0\u00a0\u00a0\u00a0\u00a0<\/u><u>\u00a0<\/u><u>\u00a0<\/u><\/p>\n<p>\u00a0\u00a0\u00a0\u00a0For i = <u>\u2475<\/u><u>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/u><\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0f = -f: \u00a0<u>\u00a0<\/u><u>\u2476<\/u><u>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/u><\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Next i<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Print s<\/p>\n<p>\u00a0\u00a0End Sub<\/p>\n<p>\u3010\u4f9b\u9009\u62e9\u7684\u7b54\u6848\u3011<\/p>\n<p>\u2474\u00a0A\u3001f = 0 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0B\u3001f = 1 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0C\u3001f = -1 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0f = 2<\/p>\n<p>\u2475\u00a0A\u30011 To n \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0B\u30012 To n \u00a0\u00a0\u00a0\u00a0\u00a0C\u30013 To n \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0D\u30010 To n<\/p>\n<p>\u2476\u00a0A\u3001s=s+f*i \u00a0\u00a0\u00a0\u00a0\u00a0B\u3001s=s+f\/i \u00a0\u00a0\u00a0\u00a0C\u3001s= f*i \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0D\u3001s= f\/i<\/p>\n<p>2.\u3010\u7a0b\u5e8f\u8bf4\u660e\u3011\u81ea\u5b9a\u4e49Sub\u8fc7\u7a0bs2\uff0c\u5c06\u4e00\u7ef4\u6570\u7ec4\u4e2dn\u4e2a\u5143\u7d20\u6309\u503c\u4ece\u5c0f\u5230\u5927\u91cd\u65b0\u6392\u5e8f\u3002<\/p>\n<p>\u3010\u7a0b\u5e8f\u3011<\/p>\n<p>\u00a0\u00a0\u00a0Private Sub s2( x() As Single, n As Integer)<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0Dim i\u00a0As Integer, j \u00a0As Integer, k As Integer, t As Single<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0For i = <u>\u2474 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/u><\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<u>\u2475<\/u><u>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/u><\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0For j = i + 1 To n<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0If <u>\u00a0<\/u><u>\u2476<\/u><u>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/u>\u00a0Then k =j<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Next j<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0t = x(i): <u>\u00a0<\/u><u>\u2477<\/u><u>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/u>\u00a0\u00a0: x(k) = t<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0Next i<\/p>\n<p>\u00a0\u00a0\u00a0End Sub<\/p>\n<p>\u3010\u4f9b\u9009\u62e9\u7684\u7b54\u6848\u3011<\/p>\n<p>\u2474 A\u30011 To n \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0B\u30011 To n &#8211; 1 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0C\u30011 To n + 1 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0D\u30010 To n &#8211; 1<\/p>\n<p>\u2475\u00a0A\u3001k = i \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0B\u3001k = j \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0C\u3001k = 1 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0D\u3001i = k<\/p>\n<p>\u2476\u00a0A\u3001x(i) &lt; x(j) \u00a0\u00a0\u00a0\u00a0B\u3001x(i) = x(k) \u00a0\u00a0\u00a0\u00a0\u00a0C\u3001x(i) &gt; x(k) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0D\u3001x(i) &lt; x(k)<\/p>\n<p>\u2477\u00a0A\u3001t = x(k) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0B\u3001x(i) = x(k) \u00a0\u00a0\u00a0\u00a0\u00a0C\u3001x(k) = x(i) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0D\u3001x(k) = t<\/p>\n<ol start=\"3\">\n<li>\u3010\u7a0b\u5e8f\u8bf4\u660e\u3011\u6587\u672c\u6587\u4ef6e:\\score.txt\u4e2d\uff0c\u6bcf\u884c\u5b66\u751f\u4fe1\u606f\u683c\u5f0f\u5982\u4e0b\uff08\u59d3\u540d\u3001\u6210\u7ee91\u3001\u6210\u7ee92\uff09\u3002\u7f16\u5236\u4e8b\u4ef6\u8fc7\u7a0bCommand1_Click\uff0c\u4e3a\u6bcf\u4e2a\u5b66\u751f\u7684\u4fe1\u606f\u4e2d\u589e\u52a0\u6570\u636e\u9879\u603b\u5206\u3002<\/li>\n<\/ol>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8220;\u5f20\u4e09&#8221;,77,66<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8220;\u674e\u56db&#8221;,78,87<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8230;&#8230;.<\/p>\n<p>\u3010\u7a0b\u5e8f\u3011<\/p>\n<p>\u00a0\u00a0Private Sub Command1_Click()<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Dim xm\u00a0As String, cj1 As Integer, cj2 As Integer<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Open &#8220;e:\\score.txt&#8221; For Input As #1<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Open &#8220;xxx.tmp&#8221; For <u>\u00a0\u2474 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/u>\u00a0As #2<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Do While <u>\u00a0<\/u><u>\u2475<\/u><u>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/u><\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Input #1,\u00a0xm, cj1, cj2<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<u>\u00a0<\/u><u>\u2476<\/u><u>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/u><\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Loop<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Kill &#8220;e:\\score.txt&#8221;<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0<u>\u2477<\/u><u>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/u>\u00a0\u00a0<\/p>\n<p>\u00a0\u00a0End Sub<\/p>\n<p>\u3010\u4f9b\u9009\u62e9\u7684\u7b54\u6848\u3011<\/p>\n<p>\u2474 A\u3001Output \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0B\u3001Write \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0C\u3001Output Locked \u00a0\u00a0\u00a0\u00a0\u00a0D\u3001Write Locked<\/p>\n<p>\u2475\u00a0A\u3001Not Eof(1) \u00a0\u00a0\u00a0\u00a0\u00a0B\u3001Not Eof(2) \u00a0\u00a0\u00a0\u00a0C\u3001Eof(1) \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0D\u3001Eof(2)<\/p>\n<p>\u2476\u00a0A\u3001Write #1,xm,cj1,cj2,cj1+cj2 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0B\u3001Print #1,xm,cj1,cj2,cj1+cj2 \u00a0\u00a0\u00a0<\/p>\n<p>\u00a0\u00a0\u00a0C\u3001Write #2,xm,cj1,cj2,cj1+cj2 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0D\u3001Line Print #1,xm,cj1,cj2,cj1+cj2<\/p>\n<p>\u2477\u00a0A\u3001Name &#8220;xxx.tmp&#8221;,&#8221;e:\\score.txt&#8221; \u00a0\u00a0\u00a0\u00a0B\u3001Name &#8220;xxx.tmp&#8221; As &#8220;e:\\score.txt&#8221;<\/p>\n<p>\u00a0\u00a0\u00a0C\u3001Name xxx.tmp As e:\\score.txt\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0D\u3001Name xxx.tmp ,e:\\score.txt<\/p>\n<p>\u56db\u3001\u7a0b\u5e8f\u9605\u8bfb\u9898\uff08\u517122\u5206\uff0c\u6bcf\u5c0f\u98982\u5206\uff09<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u9605\u8bfb\u4e0b\u5217\u5404\u7a0b\u5e8f\u5e76\u56de\u7b54\u95ee\u9898\uff0c\u5728\u6bcf\u5c0f\u9898\u63d0\u4f9b\u7684\u82e5\u5e72\u53ef\u9009\u7b54\u6848\u4e2d\u6311\u9009\u4e00\u4e2a\u6b63\u786e\u7b54\u6848\uff0c\u7528\u5b57\u6bcdA\u3001B\u3001C\u6216D\u586b\u5199\u5728\u6bcf\u5c0f\u9898\u540e\u7684\u62ec\u53f7\u5185\u3002<\/p>\n<p>1.\u3010\u7a0b\u5e8f\u3011<\/p>\n<p>Dim k As Integer<\/p>\n<p>Private Sub f(n As Integer)<\/p>\n<p>\u00a0\u00a0If n Mod k = 0 Then\u00a0Print k;: n = n \\ k\u00a0\u00a0Else\u00a0\u00a0k = k + 1<\/p>\n<p>End Sub<\/p>\n<p>Private Sub Command1_Click()<\/p>\n<p>\u00a0\u00a0Dim m As Integer<\/p>\n<p>\u00a0\u00a0k = 2: m = Val(InputBox(&#8220;m=&#8221;))<\/p>\n<p>\u00a0\u00a0Do While m &gt; 1<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Call f(m)<\/p>\n<p>\u00a0\u00a0Loop<\/p>\n<p>End Sub<\/p>\n<p>\u3010\u95ee\u9898\u4e0e\u4f9b\u9009\u62e9\u7684\u7b54\u6848\u3011<\/p>\n<p>\u00a0\u2474\u00a0\u5355\u51fbCommand1\u540e\u8f93\u51656\uff0c\u7a97\u4f53\u4e0a\u663e\u793a\u7ed3\u679c\u4e3a\u3010 \u00a0\u00a0\u3011<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0A\u30013 \u00a02 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0B\u30012 \u00a03 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0C\u30015 \u00a04 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0D\u30014 \u00a05<\/p>\n<p>\u00a0\u2475\u00a0\u5355\u51fbCommand1\u540e\u8f93\u51658\uff0c\u7a97\u4f53\u4e0a\u7b2c2\u884c\u663e\u793a\u7ed3\u679c\u4e3a\u3010 \u00a0\u00a0\u3011<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0A\u30012 \u00a04 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0B\u30014 \u00a02 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0C\u30012 \u00a02 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0D\u30012 \u00a02 \u00a02<\/p>\n<p>\u00a0\u2476\u00a0\u5355\u51fbCommand1\u540e\u8f93\u516530\uff0c\u7a97\u4f53\u4e0a\u7b2c3\u884c\u663e\u793a\u7ed3\u679c\u4e3a\u3010 \u00a0\u00a0\u3011<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0A\u30015 \u00a06 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0B\u30012 \u00a03 \u00a05 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0C\u30012 \u00a05 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0D\u30012 \u00a05 \u00a03<\/p>\n<p>\u00a0\u2477\u00a0\u5355\u51fbCommand1\u540e\u8f93\u516560\uff0c\u7a97\u4f53\u4e0a\u7b2c4\u884c\u663e\u793a\u7ed3\u679c\u4e3a\u3010 \u00a0\u00a0\u3011<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0A\u30012 \u00a03 \u00a05 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0B\u30012 \u00a02 \u00a03 \u00a05 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0C\u30012 \u00a05 \u00a06 \u00a0\u00a0\u00a0\u00a0\u00a0D\u30012 \u00a06 \u00a05<\/p>\n<p>2.\u3010\u7a0b\u5e8f\u3011<\/p>\n<p>Private Sub Command1_Click()<\/p>\n<p>\u00a0\u00a0Do<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0If List1.List(0) &lt; List2.List(0) Then<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0List3.AddItem List1.List(0):\u00a0List1.RemoveItem 0<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0Else<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0List3.AddItem List2.List(0): List2.RemoveItem 0<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0End If<\/p>\n<p>\u00a0\u00a0Loop Until List1.ListCount = 0 Or List2.ListCount = 0<\/p>\n<p>End Sub<\/p>\n<p>\u3010\u95ee\u9898\u4e0e\u4f9b\u9009\u62e9\u7684\u7b54\u6848\u3011<\/p>\n<p>\u2474\u00a0\u5982List1\u4e2d\u5404\u8868\u9879\u4e3a2\u30016\u30019\uff0cList1\u4e2d\u5404\u8868\u9879\u4e3a1\u30015\u30018\uff0cList3\u539f\u4e3a\u7a7a\u8868\uff0c\u5355\u51fbCommand1\u540eList3\u4e2d\u5404\u8868\u9879\u4f9d\u6b21\u4e3a\u3010 \u00a0\u00a0\u3011<\/p>\n<p>\u00a0A\u30011 \u00a06 \u00a09 \u00a0\u00a0\u00a0\u00a0\u00a0B\u30011 \u00a02 \u00a05 \u00a06 \u00a08 \u00a0\u00a0\u00a0\u00a0C\u30011 \u00a02 \u00a05 \u00a06 \u00a08 \u00a09 \u00a0\u00a0\u00a0\u00a0\u00a0D\u30012 \u00a05 \u00a0\u00a08<\/p>\n<p>\u2475\u00a0\u5982List1\u4e2d\u5404\u8868\u9879\u4e3a1\u30015\u30018\uff0cList1\u4e2d\u5404\u8868\u9879\u4e3a2\u30016\u30019\uff0cList3\u539f\u4e3a\u7a7a\u8868\uff0c\u5355\u51fbCommand1\u540eList3\u4e2d\u5404\u8868\u9879\u4f9d\u6b21\u4e3a\u3010 \u00a0\u00a0\u3011<\/p>\n<p>\u00a0A\u30011 \u00a06 \u00a09 \u00a0\u00a0\u00a0\u00a0\u00a0B\u30011 \u00a02 \u00a05 \u00a06 \u00a08 \u00a0\u00a0\u00a0\u00a0C\u30011 \u00a02 \u00a05 \u00a06 \u00a0\u00a09 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0D\u30012 \u00a05 \u00a0\u00a08<\/p>\n<p>\u2476\u00a0\u5982\u9898\u2475\uff0c\u5355\u51fbCommand1\u540eList1\u6216List2\u4e2d\u975e\u7a7a\u8868\u4ee5\u53ca\u8868\u4e2d\u5269\u4f59\u8868\u9879\u4e3a\u3010 \u00a0\u00a0\u3011<\/p>\n<p>\u00a0A\u3001\u65e0 \u00a0\u00a0\u65e0 \u00a0\u00a0\u00a0\u00a0\u00a0B\u3001List1 \u00a0\u00a08 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0C\u3001List2 \u00a0\u00a09 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0D\u3001List1 \u00a0\u00a08<\/p>\n<p>3.\u3010\u7a0b\u5e8f\u3011<\/p>\n<p>Dim k As Integer<\/p>\n<p>Private Sub Form_Load()<\/p>\n<p>\u00a0\u00a0P1.Scale (-100, 100)-(100, -100):\u00a0k = 0: P1.DrawWidth = 5<\/p>\n<p>\u00a0\u00a0Timer1.Interval = 10: Timer1.Enabled = True<\/p>\n<p>End Sub<\/p>\n<p>Private Sub Timer1_Timer()<\/p>\n<p>\u00a0\u00a0P1.Circle(0,0),80,vbRed,k*3.141593\/180,(k+1)*3.141593\/180<\/p>\n<p>\u00a0\u00a0k = k + 1<\/p>\n<p>\u00a0\u00a0If k = 360 Then Timer1.Enabled = False<\/p>\n<p>End Sub<\/p>\n<p>\u3010\u95ee\u9898\u4e0e\u4f9b\u9009\u62e9\u7684\u7b54\u6848\u3011<\/p>\n<p>\u2474\u00a0\u8fd0\u884c\u7ec8\u6b62\u65f6\uff0c\u56fe\u7247\u6846\u63a7\u4ef6P1\u4e2d\u7684\u663e\u793a\u4e3a\uff1a<\/p>\n<p>\u00a0\u00a0A\u3001\u6247\u5f62 \u00a0\u00a0\u00a0\u00a0B\u3001\u7ea2\u8272\u5b9e\u5fc3\u5706 \u00a0\u00a0\u00a0\u00a0C\u3001\u7ea2\u8272\u8fb9\u7ebf\u7684\u4e00\u6bb5\u5706\u5f27 \u00a0\u00a0\u00a0D\u3001\u7ea2\u8272\u8fb9\u7ebf\u7684\u5706<\/p>\n<p>\u2475\u00a0\u8fd0\u884c\u65f6P1\u4e2d\u7684\u5706\u6216\u5706\u5f27\u6216\u6247\u5f62\u7684\u7ed8\u5236\u65b9\u5f0f\u662f\uff1a<\/p>\n<p>\u00a0\u00a0A\u3001\u987a\u65f6\u9488 \u00a0\u00a0B\u3001\u9006\u65f6\u9488 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0C\u3001\u8d77\u70b9\u572812\u70b9\u65b9\u5411 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0D\u3001\u8d77\u70b9\u57289\u70b9\u65b9\u5411<\/p>\n<p>\u2476\u00a0\u8fd0\u884c\u65f6P1\u4e2d\u7684\u5706\u6216\u5706\u5f27\u6216\u6247\u5f62\u7684\u534a\u5f84\u4e3a\uff1a<\/p>\n<p>\u00a0\u00a0A\u30015 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0B\u300110 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0C\u300180 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0D\u3001100<\/p>\n<p>4\u00a0\u5c06Timer\u8fc7\u7a0b\u4e2dCircle\u8bed\u53e5\u5185\u7684\u201ck*3.141593\/180,(k+1)*3.141593\/180\u201d\u6539\u4e3a\u201c-k*3.141593\/180,-(k+1)*3.141593\/180\u201d\uff0c\u7ed8\u56fe\u7ec8\u6b62\u65f6p1\u4e2d\u663e\u793a\uff1a<\/p>\n<p>\u00a0\u00a0A\u3001\u7ea2\u8272\u5b9e\u5fc3\u5706 \u00a0\u00a0\u00a0B\u3001 \u9ed1\u8272\u5b9e\u5fc3\u5706 \u00a0\u00a0\u00a0C\u3001\u534a\u5706\u5f62 \u00a0\u00a0\u00a0D\u3001\u534a\u4e2a\u5706\u5f27<\/p>\n<p>&nbsp;<\/p>\n<p>\u4e94\u3001\u7a0b\u5e8f\u8bbe\u8ba1\u9898\uff08\u6bcf\u989813\u5206\uff0c\u517126\u5206\uff09<\/p>\n<ol>\n<li>\u7f16\u5236\u4e8b\u4ef6\u8fc7\u7a0bCommand1_Click\uff0c\u8f93\u5165n\uff08n\u4e3a1\u4f4d\u6b63\u6574\u6570\uff09\uff0c\u8f93\u51fan+1\u5c42\u7684\u6768\u8f89\u4e09\u89d2\u5f62\u3002\u5982n\u4e3a6\u65f6\uff0c\u8f93\u51fa\u7ed3\u679c\u5982\u56fe\u6240\u793a\u3002<\/li>\n<\/ol>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n<ol start=\"2\">\n<li>\u7f16\u5236\u901a\u7528Sub\u8fc7\u7a0b\uff0c\u5728\u4e00\u4e2am\u884cn\u5217\u4e8c\u7ef4\u6570\u7ec4\u4e2d\u67e5\u627e\u7edd\u5bf9\u503c\u6700\u5927\u7684\u5143\u7d20\uff0c\u4ee5\u53ca\u8be5\u5143\u7d20\u7684\u884c\u53f7\u3001\u5217\u53f7\uff08\u63d0\u793a\uff1aSub\u8fc7\u7a0b\u7684\u5f62\u53c2\u5217\u8868\u5982x() As Single, m As byte, n As Byte, xmax As Single,ki As Byte,kj As Byte\uff09\u3002<\/li>\n<\/ol>\n<p>]<\/p>\n","protected":false},"excerpt":{"rendered":"<p>[wshop_downloads \u300aVi&#8230;<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[615],"tags":[],"class_list":["post-10532","post","type-post","status-publish","format-standard","hentry","category-zikao"],"_links":{"self":[{"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/posts\/10532","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=10532"}],"version-history":[{"count":0,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/posts\/10532\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=10532"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=10532"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=10532"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}