{"id":26,"date":"2011-08-19T20:26:10","date_gmt":"2011-08-19T12:26:10","guid":{"rendered":"http:\/\/www.tanghongxiu.com\/?p=26"},"modified":"2011-08-19T20:26:10","modified_gmt":"2011-08-19T12:26:10","slug":"%e5%88%a4%e6%96%ad1000%e4%bb%a5%e5%86%85%e7%9a%84%e6%ad%a3%e6%95%b4%e6%95%b0%e6%98%af%e5%90%a6%e6%98%af%e8%b4%a8%e6%95%b0","status":"publish","type":"post","link":"https:\/\/mstang.org\/?p=26","title":{"rendered":"\u5224\u65ad\u4e00\u4e2a\u6b63\u6574\u6570\u662f\u5426\u662f\u8d28\u6570"},"content":{"rendered":"<pre><code>\nPrivate Sub Command1_Click()\n\u00a0\u00a0 Dim M As Single, I As Single\n   M = Inputbox(\"\u8bf7\u8f93\u5165\u6570\")\u00a0\u00a0\n\u00a0\u00a0\u00a0If M = 1 Then\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Print M; \"\u65e2\u4e0d\u662f\u8d28\u6570\u4e5f\u4e0d\u662f\u5408\u6570\"\n\u00a0\u00a0\u00a0Else\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0If M = 2 Then\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0  Print M; \" \u662f\u8d28\u6570\"\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Else\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0I = 1\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Do\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0  I = I + 1\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Loop Until (M Mod I = 0) Or (I = M - 1)\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0If M Mod I = 0 Then\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Print M; \"\u4e0d\u662f\u8d28\u6570\"\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Else\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Print M; \"\u662f\u8d28\u6570\"\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0End If\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0End If\n\u00a0\u00a0\u00a0\u00a0End If\nEnd Sub\n<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Private Sub Command1_Click() \u00a0\u00a0 Dim M As Single, I As S &hellip; <\/p>\n<p class=\"link-more\"><a href=\"https:\/\/mstang.org\/?p=26\" class=\"more-link\">\u7ee7\u7eed\u9605\u8bfb<span class=\"screen-reader-text\">\u201c\u5224\u65ad\u4e00\u4e2a\u6b63\u6574\u6570\u662f\u5426\u662f\u8d28\u6570\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":[14],"class_list":["post-26","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\/26","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=26"}],"version-history":[{"count":0,"href":"https:\/\/mstang.org\/index.php?rest_route=\/wp\/v2\/posts\/26\/revisions"}],"wp:attachment":[{"href":"https:\/\/mstang.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=26"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/mstang.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=26"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/mstang.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=26"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}