{"id":28,"date":"2011-08-19T20:47:57","date_gmt":"2011-08-19T12:47:57","guid":{"rendered":"http:\/\/www.tanghongxiu.com\/?p=28"},"modified":"2011-08-19T20:47:57","modified_gmt":"2011-08-19T12:47:57","slug":"%e8%be%93%e5%87%ba1000%e4%bb%a5%e5%86%85%e7%9a%84%e6%89%80%e6%9c%89%e8%b4%a8%e6%95%b0%e7%9a%84%e7%a8%8b%e5%ba%8f","status":"publish","type":"post","link":"https:\/\/mstang.org\/?p=28","title":{"rendered":"\u8f93\u51fa1000\u4ee5\u5185\u7684\u6240\u6709\u8d28\u6570\u7684\u7a0b\u5e8f"},"content":{"rendered":"<pre><code>\nPrivate Sub Command1_Click()\n\u00a0Dim M As Single, I As Single\n J = 0\n\u00a0For M = 2 To 1000\n\u00a0 If M = 2 Then Print M;\n\u00a0\u00a0\u00a0 I = 1\n\u00a0\u00a0\u00a0 Do\n\u00a0\u00a0\u00a0\u00a0\u00a0 I = I + 1\n\u00a0\u00a0\u00a0 Loop Until (M Mod I = 0) Or (I = M - 1)\n\u00a0\u00a0\u00a0 If M Mod I &lt;&gt; 0 Then \n      Print M;\n      J = J + 1\n      If J Mod 10 = 0 Then Print\n    End If\n\u00a0Next M\nEnd Sub\n<\/code>\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Private Sub Command1_Click() \u00a0Dim M As Single, I As Sin &hellip; <\/p>\n<p class=\"link-more\"><a href=\"https:\/\/mstang.org\/?p=28\" class=\"more-link\">\u7ee7\u7eed\u9605\u8bfb<span class=\"screen-reader-text\">\u201c\u8f93\u51fa1000\u4ee5\u5185\u7684\u6240\u6709\u8d28\u6570\u7684\u7a0b\u5e8f\u201d<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3],"tags":[10],"class_list":["post-28","post","type-post","status-publish","format-standard","hentry","category-3","tag---vb"],"_links":{"self":[{"href":"https:\/\/mstang.org\/index.php?rest_route=\/wp\/v2\/posts\/28","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/mstang.org\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/mstang.org\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/mstang.org\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/mstang.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=28"}],"version-history":[{"count":0,"href":"https:\/\/mstang.org\/index.php?rest_route=\/wp\/v2\/posts\/28\/revisions"}],"wp:attachment":[{"href":"https:\/\/mstang.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=28"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/mstang.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=28"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/mstang.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=28"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}