{"id":9620,"date":"2024-06-13T13:54:35","date_gmt":"2024-06-13T05:54:35","guid":{"rendered":"http:\/\/www.aiersheng.cc\/?p=9620"},"modified":"2024-06-13T14:56:22","modified_gmt":"2024-06-13T06:56:22","slug":"vb%e8%be%85%e5%af%bc%e5%ae%9e%e4%be%8b%e7%bc%96%e7%a8%8b11","status":"publish","type":"post","link":"https:\/\/www.aiersheng.cc\/?p=9620","title":{"rendered":"VB\u8f85\u5bfc\u5b9e\u4f8b\u7f16\u7a0b(11)"},"content":{"rendered":"

\u4e94\u5f69\u7f24\u7eb7\u7684\u6e05\u5c4f\u6548\u679c<\/strong><\/p>\n

\u3000\u3000\u5728\u4e00\u4e9b\u8f6f\u4ef6\u6f14\u793a\u4e2d\uff0c\u8fd9\u4e00\u5c4f\u5185\u5bb9\u5230\u4e0b\u4e00\u5c4f\u5185\u5bb9\u95f4\u5f80\u5f80\u4ee5\u4e00\u4e9b\u6709\u8da3\u7684\u6e05\u5c4f\u56fe\u6848\u6765\u76f8\u4e92\u5207\u6362\uff0c\u6709\u7684\u50cf\u6f14\u51fa\u821e\u53f0\u4e0a\u7684\u5f00\u5e55\u3001\u95ed\u5e55\uff0c\u6709\u7684\u50cf\u767e\u53f6\u7a97\uff0c\u4e5f\u6709\u4e00\u4e9b\u5706\u5f62\u3001\u83f1\u5f62\u7b49\u5f62\u6001\u5404\u5f02\u7684\u6e05\u5c4f\u56fe\u6848\u3002VB\u4f5c\u4e3a\u4e00\u95e8\u4f18\u79c0\u7684WINDOWS\u4e0b\u7684\u5f00\u53d1\u8bed\u8a00\uff0c\u5176\u56fe\u5f62\u529f\u80fd\u4e5f\u5f88\u5f3a\u3002\u6211\u4eec\u5b8c\u5168\u53ef\u4ee5\u7528\u5176\u63d0\u4f9b\u7684\u753b\u7ebf\u8bed\u53e5\u4f5c\u51fa\u4e0a\u8ff0\u7684\u6e05\u5c4f\u56fe\u6848\uff0c\u4e0b\u9762\u7684\u7a0b\u5e8f\u7ed9\u51fa\u4e86\u5e38\u89c1\u7684\u6e05\u5c4f\u56fe\u6848\u7a0b\u5e8f\uff1a<\/p>\n

\u3000\u3000Sub FilSCrO’\u8bbe\u7f6e\u80cc\u666f\u8272<\/p>\n

\u3000\u3000Me.BackColor=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))<\/p>\n

\u3000\u3000End Sub<\/p>\n

\u3000\u3000Sub ClrScrl()’\u4ece\u5de6\u53f3\u4e24\u8fb9\u5230\u4e2d\u95f4\u6e05\u5c4f<\/p>\n

\u3000\u3000Dim i As Integer\uff1aRandomize\uff1acolor=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))<\/p>\n

\u3000\u3000For i=0 To ScaleWidth\/2<\/p>\n

\u3000\u3000Line(i,0)-(i,ScaleHeight),color<\/p>\n

\u3000\u3000Line(ScaleWidth-i,0)-(ScaleWidth-i,ScaleHeight),color<\/p>\n

\u3000\u3000Next i<\/p>\n

\u3000\u3000End Sub<\/p>\n

\u3000\u3000Sub ClrSer20’\u4ece\u4e2d\u95f4\u5230\u5de6\u53f3\u4e24\u8fb9\u6e05\u5c4f<\/p>\n

\u3000\u3000Dim i As Integer\uff1aRandomize\uff1acolor=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))<\/p>\n

\u3000\u3000for i=ScaleWidth\/2 To 0 Step -1<\/p>\n

\u3000\u3000Line(i,0)-(i,ScaleHeight-1),color<\/p>\n

\u3000\u3000Line(ScaleWidth-i,0)-(ScaleWidth-i,ScaleHeight),color<\/p>\n

\u3000\u3000Next i<\/p>\n

\u3000\u3000End Sub<\/p>\n

\u3000\u3000Sub ClrScr30’\u4ece\u4e0a(\u9876)\u4e0b(\u4f4e)\u5230\u4e2d\u95f4\u6e05\u5c4f<\/p>\n

\u3000\u3000Dim i As Integer\uff1aRandomize\uff1acolor=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))<\/p>\n

\u3000\u3000For i=0 To ScaleHeight\/2<\/p>\n

\u3000\u3000Line(0,i)-(ScaleWidth,i),color<\/p>\n

\u3000\u3000Line(0,ScaleHeight-i)-(ScaleWidth,ScaleHeight-i),color<\/p>\n

\u3000\u3000next i<\/p>\n

\u3000\u3000End Sub<\/p>\n

\u3000Sub ClrScr40’\u4ece\u4e2d\u95f4\u5230\u4e0a(\u9876)\u4e0b(\u5e95)\u6e05\u5c4f<\/p>\n

\u3000\u3000Dim i As Integer:Randomize:color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))<\/p>\n

\u3000\u3000For i=ScaleHeight\/2 To 0 Step -1<\/p>\n

\u3000\u3000Line(0,i)_(ScaleWidth,i),color<\/p>\n

\u3000\u3000Line(0,ScaleHeight-i)-(ScaleWidth,ScaleHeight-i),color<\/p>\n

\u3000\u3000Next i<\/p>\n

\u3000\u3000End Sub<\/p>\n

\u3000\u3000Sub ClrScr50’\u83f1\u5f62\u6e05\u5c4f\uff0c\u4ece\u56db\u89d2\u5411\u4e2d\u5fc3<\/p>\n

\u3000\u3000Dim i,j As Integer:Randomize:color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))<\/p>\n

\u3000\u3000For i=0 To ScaleWidth Sep 200<\/p>\n

\u3000\u3000For j=0 To ScaleHeight Step200*ScaleHeight\/ScaleWidth<\/p>\n

\u3000\u3000Line(i,0)-(0,j),color<\/p>\n

\u3000\u3000Line(ScaleWidth-i,ScaleHeight)-(ScaleWidth,ScaleHeight-j),color<\/p>\n

\u3000\u3000Line(0,ScaleHeight-j)-(i,ScaleHeight),color<\/p>\n

\u3000\u3000Line(ScaleWidth-i,0)-(ScaleWidth,ScaleHeight-j),color<\/p>\n

\u3000\u3000Next j<\/p>\n

\u3000\u3000Next i<\/p>\n

\u3000\u3000End Sub<\/p>\n

\u3000\u3000Sub ClrScr60’\u5706\u5f62\u6e05\u5c4f\uff0c\u7531\u5927\u81f3\u5c0f\u4ece\u5916\u56f4\u5411\u4e2d\u5fc3<\/p>\n

\u3000\u3000Dim i As Integer:Randomize:color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))<\/p>\n

\u3000\u3000For i=ScaleWidth To 0 Step-3<\/p>\n

\u3000\u3000Circle(ScaleWidth\/2,ScaleHeight\/2,i\/2,color<\/p>\n

\u3000\u3000Next i<\/p>\n

\u3000\u3000End Sub<\/p>\n

\u3000\u3000Sub ClrScr70’\u5706\u5f62\u6e05\u5c4f\uff0c\u7531\u5c0f\u81f3\u5927\u4ece\u4e2d\u5fc3\u5411\u5916\u56f4<\/p>\n

\u3000\u3000Dim i As Integer:Randomize:color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))<\/p>\n

\u3000\u3000For i=0 To ScaleHeight Step 3<\/p>\n

\u3000\u3000Circle(ScaleWidth\/2,ScaleHeight\/2),i\/2,color<\/p>\n

\u3000\u3000Next i<\/p>\n

\u3000\u3000End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"

\u4e94\u5f69\u7f24\u7eb7\u7684\u6e05\u5c4f\u6548\u679c \u3000\u3000\u5728\u4e00\u4e9b\u8f6f\u4ef6\u6f14\u793a\u4e2d\uff0c\u8fd9\u4e00\u5c4f\u5185\u5bb9\u5230\u4e0b\u4e00\u5c4f\u5185\u5bb9\u95f4\u5f80\u5f80\u4ee5\u4e00\u4e9b\u6709\u8da3\u7684\u6e05\u5c4f\u56fe\u6848\u6765\u76f8\u4e92\u5207\u6362\uff0c\u6709\u7684\u50cf\u6f14 […]<\/p>\n","protected":false},"author":1,"featured_media":9586,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[68],"tags":[],"content_type":[],"class_list":["post-9620","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-zzjy"],"_links":{"self":[{"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/posts\/9620","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=9620"}],"version-history":[{"count":0,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/posts\/9620\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/media\/9586"}],"wp:attachment":[{"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=9620"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=9620"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=9620"},{"taxonomy":"content_type","embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcontent_type&post=9620"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}