{"id":1579,"date":"2023-04-29T20:18:08","date_gmt":"2023-04-29T12:18:08","guid":{"rendered":"http:\/\/www.aiersheng.cc\/?p=1579"},"modified":"2023-04-29T20:18:08","modified_gmt":"2023-04-29T12:18:08","slug":"%e9%ab%98%e4%b8%ad%e5%ad%a6%e8%80%83%e9%80%89%e8%80%83vb%e5%b8%b8%e7%94%a8%e7%ae%97%e6%b3%95","status":"publish","type":"post","link":"https:\/\/www.aiersheng.cc\/?p=1579","title":{"rendered":"\u9ad8\u4e2d\u5b66\u8003\u9009\u8003VB\u5e38\u7528\u7b97\u6cd5"},"content":{"rendered":"

\u9ad8\u4e2d\u5b66\u8003\u9009\u8003VB\u5e38\u7528\u7b97\u6cd5<\/p>\n

\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u5e38\u7528\u7b97\u6cd5
\n\u7b97\u6cd5\uff08Algorithm\uff09\uff1a\u8ba1\u7b97\u673a\u89e3\u9898\u7684\u57fa\u672c\u601d\u60f3\u65b9\u6cd5\u548c\u6b65\u9aa4\u3002\u7b97\u6cd5\u7684\u63cf\u8ff0\uff1a\u662f\u5bf9\u8981\u89e3\u51b3\u4e00\u4e2a\u95ee\u9898
\n\u6216\u8981\u5b8c\u6210\u4e00\u9879\u4efb\u52a1\u6240\u91c7\u53d6\u7684\u65b9\u6cd5\u548c\u6b65\u9aa4\u7684\u63cf\u8ff0\uff0c\u5305\u62ec\u9700\u8981\u4ec0\u4e48\u6570\u636e\uff08\u8f93\u5165\u4ec0\u4e48\u6570\u636e\u3001\u8f93\u51fa\u4ec0
\n\u4e48\u7ed3\u679c\uff09\u3001\u91c7\u7528\u4ec0\u4e48\u7ed3\u6784\u3001\u4f7f\u7528\u4ec0\u4e48\u8bed\u53e5\u4ee5\u53ca\u5982\u4f55\u5b89\u6392\u8fd9\u4e9b\u8bed\u53e5\u7b49\u3002\u901a\u5e38\u4f7f\u7528\u81ea\u7136\u8bed\u8a00\u3001\u7ed3
\n\u6784\u5316\u6d41\u7a0b\u56fe\u3001\u4f2a\u4ee3\u7801\u7b49\u6765\u63cf\u8ff0\u7b97\u6cd5\u3002
\n\u6b64\u7c7b\u95ee\u9898\u90fd\u8981\u4f7f\u7528\u5faa\u73af\uff0c\u8981\u6ce8\u610f\u6839\u636e\u95ee\u9898\u786e\u5b9a\u5faa\u73af\u53d8\u91cf\u7684\u521d\u503c\u3001\u7ec8\u503c\u6216\u7ed3\u675f\u6761\u4ef6\uff0c\u66f4\u8981\u6ce8\u610f
\n\u7528\u6765\u8868\u793a\u8ba1\u6570\u3001\u548c\u3001\u9636\u4e58\u7684\u53d8\u91cf\u7684\u521d\u503c\u3002
\n\u4f8b\uff1a\u7528\u968f\u673a\u51fd\u6570\u4ea7\u751f100\u4e2a[0\uff0c99]\u8303\u56f4\u5185\u7684\u968f\u673a\u6574\u6570\uff0c\u7edf\u8ba1\u4e2a\u4f4d\u4e0a\u7684\u6570\u5b57\u5206\u522b\u4e3a1\uff0c2\uff0c3\uff0c
\n4\uff0c5\uff0c6\uff0c7\uff0c8\uff0c9\uff0c0\u7684\u6570\u7684\u4e2a\u6570\u5e76\u6253\u5370\u51fa\u6765\u3002
\n\u672c\u9898\u4f7f\u7528\u6570\u7ec4\u6765\u5904\u7406\uff0c\u7528\u6570\u7ec4a(1 to 100)\u5b58\u653e\u4ea7\u751f\u7684\u786e100\u4e2a\u968f\u673a\u6574\u6570\uff0c\u6570\u7ec4x(1 to 10)\u6765\u5b58
\n\u653e\u4e2a\u4f4d\u4e0a\u7684\u6570\u5b57\u5206\u522b\u4e3a1\uff0c2\uff0c3\uff0c4\uff0c5\uff0c6\uff0c7\uff0c8\uff0c9\uff0c0\u7684\u6570\u7684\u4e2a\u6570\u3002\u5373\u4e2a\u4f4d\u662f1\u7684\u4e2a\u6570\u5b58
\n\u653e\u5728x(1)\u4e2d\uff0c\u4e2a\u4f4d\u662f2\u7684\u4e2a\u6570\u5b58\u653e\u5728x(2)\u4e2d\uff0c\u2026\u2026\u4e2a\u4f4d\u662f0\u7684\u4e2a\u6570\u5b58\u653e\u5728x(10)\u3002
\n\u5c06\u7a0b\u5e8f\u7f16\u5199\u5728\u4e00\u4e2aGetTJput\u8fc7\u7a0b\u4e2d\uff0c\u4ee3\u7801\u5982\u4e0b\uff1a
\nPublic Sub GetTJput()
\nDim a(1 To 100) As Integer
\nDim x(1 To 10) As Integer
\nDim i As Integer, p As Integer
\n‘\u4ea7\u751f100\u4e2a[0\uff0c99]\u8303\u56f4\u5185\u7684\u968f\u673a\u6574\u6570\uff0c\u6bcf\u884c10\u4e2a\u6253\u5370\u51fa\u6765
\nFor i = 1 To 100
\na(i) = Int(Rnd * 100)
\nIf a(i) < 10 Then\nForm1.Print Space(2); a(i);\nElse\nForm1.Print Space(1); a(i);\nEnd If\nIf i Mod 10 = 0 Then Form1.Print\nNext i\n'\u7edf\u8ba1\u4e2a\u4f4d\u4e0a\u7684\u6570\u5b57\u5206\u522b\u4e3a1\uff0c2\uff0c3\uff0c4\uff0c5\uff0c6\uff0c7\uff0c8\uff0c9\uff0c0\u7684\u6570\u7684\u4e2a\u6570\uff0c\u5e76\u5c06\u7edf\u8ba1\u7ed3\u679c\u4fdd\u5b58\n\u5728\u6570\u7ec4x(1),x(2),...,x(10)\u4e2d\uff0c\u5c06\u7edf\u8ba1\u7ed3\u679c\u6253\u5370\u51fa\u6765\nFor i = 1 To 100\np = a(i) Mod 10 ' \u6c42\u4e2a\u4f4d\u4e0a\u7684\u6570\u5b57\nIf p = 0 Then p = 10\nx(p) = x(p) + 1\nNext i\nForm1.Print \"\u7edf\u8ba1\u7ed3\u679c\"\nFor i = 1 To 10\np = i\nIf i = 10 Then p = 0\nForm1.Print \"\u4e2a\u4f4d\u6570\u4e3a\" + Str(p) + \"\u5171\" + Str(x(i)) + \"\u4e2a\"\nNext i\nEnd Sub\n\u5206\u6790\uff1a\u6c42\u6700\u5927\u516c\u7ea6\u6570\u7684\u7b97\u6cd5\u601d\u60f3\uff1a(\u6700\u5c0f\u516c\u500d\u6570=\u4e24\u4e2a\u6574\u6570\u4e4b\u79ef\/\u6700\u5927\u516c\u7ea6\u6570)\n(1) \u5bf9\u4e8e\u5df2\u77e5\u4e24\u6570m\uff0cn\uff0c\u4f7f\u5f97m>n\uff1b
\n(2) m\u9664\u4ee5n\u5f97\u4f59\u6570r\uff1b <\/p>\n

(3) \u82e5r=0\uff0c\u5219n\u4e3a\u6c42\u5f97\u7684\u6700\u5927\u516c\u7ea6\u6570\uff0c\u7b97\u6cd5\u7ed3\u675f\uff1b\u5426\u5219\u6267\u884c(4)\uff1b
\n(4) m\u2190n\uff0cn\u2190r\uff0c\u518d\u91cd\u590d\u6267\u884c(2)\u3002
\n\u4f8b\u5982: \u6c42 m=14 ,n=6 \u7684\u6700\u5927\u516c\u7ea6\u6570. m n r
\n14 6 2
\n6 2 0
\nm=inputBox(“m=”)
\nn=inputBox(“n=”)
\nnm=n*m
\nIf m < n Then t = m: m = n: n = t\nr=m mod n\nDo While (r <> 0)
\nm=n
\nn=r
\nr= m mod n
\nLoop
\nPrint “\u6700\u5927\u516c\u7ea6\u6570=”, n
\nPrint “\u6700\u5c0f\u516c\u500d\u6570=”, nm\/n
\n\u53ea\u80fd\u88ab1\u6216\u672c\u8eab\u6574\u9664\u7684\u6570\u79f0\u4e3a\u7d20\u6570 \u57fa\u672c\u601d\u60f3\uff1a\u628am\u4f5c\u4e3a\u88ab\u9664\u6570\uff0c\u5c062\u2014INT\uff08 \uff09\u4f5c\u4e3a\u9664
\n\u6570\uff0c\u5982\u679c\u90fd\u9664\u4e0d\u5c3d\uff0cm\u5c31\u662f\u7d20\u6570\uff0c\u5426\u5219\u5c31\u4e0d\u662f\u3002\uff08\u53ef\u7528\u4ee5\u4e0b\u7a0b\u5e8f\u6bb5\u5b9e\u73b0\uff09
\nm =val( InputBox(“\u8bf7\u8f93\u5165\u4e00\u4e2a\u6570”))
\nFor i=2 To int(sqr(m))
\nIf m Mod i = 0 Then Exit For
\nNext i
\nIf i > int(sqr(m)) Then
\nPrint “\u8be5\u6570\u662f\u7d20\u6570”
\nElse
\nPrint “\u8be5\u6570\u4e0d\u662f\u7d20\u6570”
\nEnd If
\n\u5c06\u5176\u5199\u6210\u4e00\u51fd\u6570,\u82e5\u4e3a\u7d20\u6570\u8fd4\u56deTrue\uff0c\u4e0d\u662f\u5219\u8fd4\u56deFalse
\nPrivate Function Prime( m as Integer) As Boolean
\nDim i%
\nPrime=True
\nFor i=2 To int(sqr(m))
\nIf m Mod i = 0 Then Prime=False: Exit For
\nNext i
\nEnd Function
\n\uff08\u4efb\u610f\u4e00\u4e2a\u5927\u4e8e\u7b49\u4e8e6\u7684\u5076\u6570\u90fd\u53ef\u4ee5\u5206\u89e3\u4e3a\u4e24\u4e2a\u7d20\u6570\u4e4b\u548c\uff09
\n\u57fa\u672c\u601d\u60f3\uff1an\u4e3a\u5927\u4e8e\u7b49\u4e8e6\u7684\u4efb\u4e00\u5076\u6570\uff0c\u53ef\u5206\u89e3\u4e3an1\u548cn2\u4e24\u4e2a\u6570\uff0c\u5206\u522b\u68c0\u67e5n1\u548cn2\u662f\u5426
\n\u4e3a\u7d20\u6570\uff0c\u5982\u90fd\u662f\uff0c\u5219\u4e3a\u4e00\u7ec4\u89e3\u3002\u5982n1\u4e0d\u662f\u7d20\u6570\uff0c\u5c31\u4e0d\u5fc5\u518d\u68c0\u67e5n2\u662f\u5426\u7d20\u6570\u3002\u5148\u4ecen1=3\u5f00
\n\u59cb\uff0c\u68c0\u9a8cn1\u548cn2\uff08n2=N-n1\uff09\u662f\u5426\u7d20\u6570\u3002\u7136\u540e\u4f7fn1+2 \u518d\u68c0\u9a8cn1\u3001n2\u662f\u5426\u7d20\u6570\uff0c\u2026 \u76f4\u5230
\nn1=n\/2\u4e3a\u6b62\u3002
\n\u5229\u7528\u4e0a\u9762\u7684prime\u51fd\u6570\uff0c\u9a8c\u8bc1\u54e5\u5fb7\u5df4\u8d6b\u731c\u60f3\u7684\u7a0b\u5e8f\u4ee3\u7801\u5982\u4e0b\uff1a
\nDim n%,n1%,n2%
\nn=Val(InputBox(“\u8f93\u5165\u5927\u4e8e6\u7684\u6b63\u6574\u6570”))<\/p>\n

For n1=3 to n\\2 step 2
\nn2=n-n1
\nIf prime(n1) Then
\nIf prime(n2) then
\nPrint n & “=” & n1 & “+” & n2
\nExit For ‘\u7ed3\u675f\u5faa\u73af
\nEnd if
\nEnd if
\nNext n1
\n1\uff0e\u9009\u62e9\u6cd5\u6392\u5e8f\uff08\u5347\u5e8f\uff09
\n\u57fa\u672c\u601d\u60f3\uff1a
\n1\uff09\u5bf9\u6709n\u4e2a\u6570\u7684\u5e8f\u5217\uff08\u5b58\u653e\u5728\u6570\u7ec4a(n)\u4e2d\uff09\uff0c\u4ece\u4e2d\u9009\u51fa\u6700\u5c0f\u7684\u6570\uff0c\u4e0e\u7b2c1\u4e2a\u6570\u4ea4\u6362\u4f4d\u7f6e\uff1b
\n2\uff09\u9664\u7b2c1 \u4e2a\u6570\u5916\uff0c\u5176\u4f59n-1\u4e2a\u6570\u4e2d\u9009\u6700\u5c0f\u7684\u6570\uff0c\u4e0e\u7b2c2\u4e2a\u6570\u4ea4\u6362\u4f4d\u7f6e\uff1b
\n3\uff09\u4f9d\u6b21\u7c7b\u63a8\uff0c\u9009\u62e9\u4e86n-1\u6b21\u540e\uff0c\u8fd9\u4e2a\u6570\u5217\u5df2\u6309\u5347\u5e8f\u6392\u5217\u3002
\n\u7a0b\u5e8f\u4ee3\u7801\u5982\u4e0b\uff1a
\nFor i = 1 To n – 1
\nimin = i
\nFor j = i + 1 To n
\nIf a(imin) > a(j) Then imin = j
\nNext j
\ntemp = a(i)
\na(i) = a(imin)
\na(imin) = temp
\nNext I
\n2\uff0e\u5192\u6ce1\u6cd5\u6392\u5e8f\uff08\u5347\u5e8f\uff09
\n\u57fa\u672c\u601d\u60f3\uff1a(\u5c06\u76f8\u90bb\u4e24\u4e2a\u6570\u6bd4\u8f83\uff0c\u5c0f\u7684\u8c03\u5230\u524d\u5934)
\n1\uff09\u6709n\u4e2a\u6570\uff08\u5b58\u653e\u5728\u6570\u7ec4a(n)\u4e2d\uff09\uff0c\u7b2c\u4e00\u8d9f\u5c06\u6bcf\u76f8\u90bb\u4e24\u4e2a\u6570\u6bd4\u8f83\uff0c\u5c0f\u7684\u8c03\u5230\u524d\u5934\uff0c\u7ecfn-1\u6b21
\n\u4e24\u4e24\u76f8\u90bb\u6bd4\u8f83\u540e\uff0c\u6700\u5927\u7684\u6570\u5df2\u201c\u6c89\u5e95\u201d\uff0c\u653e\u5728\u6700\u540e\u4e00\u4e2a\u4f4d\u7f6e\uff0c\u5c0f\u6570\u4e0a\u5347\u201c\u6d6e\u8d77\u201d\uff1b
\n2\uff09\u7b2c\u4e8c\u8d9f\u5bf9\u4f59\u4e0b\u7684n-1\u4e2a\u6570\uff08\u6700\u5927\u7684\u6570\u5df2\u201c\u6c89\u5e95\u201d\uff09\u6309\u4e0a\u6cd5\u6bd4\u8f83\uff0c\u7ecfn-2\u6b21\u4e24\u4e24\u76f8\u90bb\u6bd4\u8f83\u540e
\n\u5f97\u6b21\u5927\u7684\u6570\uff1b
\n3\uff09\u4f9d\u6b21\u7c7b\u63a8\uff0cn\u4e2a\u6570\u5171\u8fdb\u884cn-1\u8d9f\u6bd4\u8f83\uff0c\u5728\u7b2cj\u8d9f\u4e2d\u8981\u8fdb\u884cn-j\u6b21\u4e24\u4e24\u6bd4\u8f83\u3002
\n\u7a0b\u5e8f\u6bb5\u5982\u4e0b
\nFor i = 1 To n – 1
\nFor j = 1 To n-i
\nIf a(j) > a(j+1) Then
\ntemp=a(j)\uff1a a(j)=a(j+1)\uff1a a(j+1)=temp
\nEnd if
\nNext j
\nNext i
\n3\uff0e\u5408\u5e76\u6cd5\u6392\u5e8f\uff08\u5c06\u4e24\u4e2a\u6709\u5e8f\u6570\u7ec4A\u3001B\u5408\u5e76\u6210\u53e6\u4e00\u4e2a\u6709\u5e8f\u7684\u6570\u7ec4C\uff0c\u5347\u5e8f\uff09
\n\u57fa\u672c\u601d\u60f3\uff1a
\n1\uff09\u5148\u5728A\u3001B\u6570\u7ec4\u4e2d\u5404\u53d6\u7b2c\u4e00\u4e2a\u5143\u7d20\u8fdb\u884c\u6bd4\u8f83\uff0c\u5c06\u5c0f\u7684\u5143\u7d20\u653e\u5165C\u6570\u7ec4\uff1b
\n2\uff09\u53d6\u5c0f\u7684\u5143\u7d20\u6240\u5728\u6570\u7ec4\u7684\u4e0b\u4e00\u4e2a\u5143\u7d20\u4e0e\u53e6\u4e00\u6570\u7ec4\u4e2d\u4e0a\u6b21\u6bd4\u8f83\u540e\u8f83\u5927\u7684\u5143\u7d20\u6bd4\u8f83\uff0c\u91cd\u590d\u4e0a\u8ff0
\n\u6bd4\u8f83\u8fc7\u7a0b\uff0c\u76f4\u5230\u67d0\u4e2a\u6570\u7ec4\u88ab\u5148\u6392\u5b8c\uff1b <\/p>\n

3\uff09\u5c06\u53e6\u4e00\u4e2a\u6570\u7ec4\u5269\u4f59\u5143\u7d20\u6284\u5165C\u6570\u7ec4\uff0c\u5408\u5e76\u6392\u5e8f\u5b8c\u6210\u3002
\n\u7a0b\u5e8f\u6bb5\u5982\u4e0b\uff1a
\nDo While ia <= UBound(A) And ib <= UBound(B) '\u5f53A\u548cB\u6570\u7ec4\u5747\u672a\u6bd4\u8f83\u5b8c\nIf A(ia) < B(ib) Then\nC(ic) = A(ia)\uff1a ia = ia + 1\nElse\nC(ic) = B(ib)\uff1a ib = ib + 1\nEnd If\nic = ic + 1\nLoop\nDo While ia <= UBound(A) 'A\u6570\u7ec4\u4e2d\u7684\u5269\u4f59\u5143\u7d20\u6284\u5165C\u6570\u7ec4\nC(ic) = A(ia)\nia = ia + 1\uff1a ic = ic + 1\nLoop\nDo While ib <= UBound(B) 'B\u6570\u7ec4\u4e2d\u7684\u5269\u4f59\u5143\u7d20\u6284\u5165C\u6570\u7ec4\nC(ic) = B(ib)\nib = ib + 1\uff1a ic = ic + 1\nLoop\n1\uff0e\u2460\u987a\u5e8f\u67e5\u627e\u6cd5\uff08\u5728\u4e00\u5217\u6570\u4e2d\u67e5\u627e\u67d0\u6570x\uff09 \n\u57fa\u672c\u601d\u60f3\uff1a\u4e00\u5217\u6570\u653e\u5728\u6570\u7ec4a(1)---a(n)\u4e2d\uff0c\u5f85\u67e5\u627e\u7684\u6570\u653e\u5728x \u4e2d\uff0c\u628ax\u4e0ea\u6570\u7ec4\u4e2d\u7684\u5143\u7d20\u4ece\n\u5934\u5230\u5c3e\u4e00\u4e00\u8fdb\u884c\u6bd4\u8f83\u67e5\u627e\u3002\u7528\u53d8\u91cfp\u8868\u793aa\u6570\u7ec4\u5143\u7d20\u4e0b\u6807\uff0cp\u521d\u503c\u4e3a1\uff0c\u4f7fx\u4e0ea(p)\u6bd4\u8f83\uff0c\n\u5982\u679cx\u4e0d\u7b49\u4e8ea(p)\uff0c\u5219\u4f7fp=p+1\uff0c\u4e0d\u65ad\u91cd\u590d\u8fd9\u4e2a\u8fc7\u7a0b\uff1b\u4e00\u65e6x\u7b49\u4e8ea(p)\u5219\u9000\u51fa\u5faa\u73af\uff1b\u53e6\u5916\uff0c\n\u5982\u679cp\u5927\u4e8e\u6570\u7ec4\u957f\u5ea6\uff0c\u5faa\u73af\u4e5f\u5e94\u8be5\u505c\u6b62\u3002\uff08\u8fd9\u4e2a\u8fc7\u7a0b\u53ef\u7531\u4e0b\u8bed\u53e5\u5b9e\u73b0\uff09\np = 1\nDo While x <> a(p) And p < =n\np = p + 1\nLoop\n\u4e0b\u9762\u5199\u4e00\u67e5\u627e\u51fd\u6570Find\uff0c\u82e5\u627e\u5230\u5219\u8fd4\u56de\u4e0b\u6807\u503c\uff0c\u627e\u4e0d\u5230\u8fd4\u56de0\nOption Base 1\nPrivate Function Find( a( ) As Single,x As Single) As Integer\nDim n%,p%\nn=Ubound( a )\np = 1\nDo While x <> a(p) And p < =n\np = p + 1\nLoop\nIf p>n then p=0
\nFind=p
\nEnd Function
\n\u2461\u57fa\u672c\u601d\u60f3\uff1a\u4e00\u5217\u6570\u653e\u5728\u6570\u7ec4a(1)—a(n)\u4e2d\uff0c\u5f85\u67e5\u627e\u7684\u5173\u952e\u503c\u4e3akey\uff0c\u628akey\u4e0ea\u6570\u7ec4\u4e2d\u7684\u5143
\n\u7d20\u4ece\u5934\u5230\u5c3e\u4e00\u4e00\u8fdb\u884c\u6bd4\u8f83\u67e5\u627e\uff0c\u82e5\u76f8\u540c\uff0c\u67e5\u627e\u6210\u529f\uff0c\u82e5\u627e\u4e0d\u5230\uff0c\u5219\u67e5\u627e\u5931\u8d25\u3002(\u67e5\u627e\u5b50\u8fc7\u7a0b\u5982
\n\u4e0b\u3002index\uff1a\u5b58\u653e\u627e\u5230\u5143\u7d20\u7684\u4e0b\u6807\u3002)
\nPublic Sub Search(a() As Variant, key As Variant, index%)
\nDim i%<\/p>\n

For i = LBound(a) To UBound(a)
\nIf key = a(i) Then
\nindex = i
\nExit Sub
\nEnd If
\nNext i
\nindex = -1
\nEnd Sub
\n2\uff0e\u6298\u534a\u67e5\u627e\u6cd5\uff08\u53ea\u80fd\u5bf9\u6709\u5e8f\u6570\u5217\u8fdb\u884c\u67e5\u627e\uff09
\n\u57fa\u672c\u601d\u60f3\uff1a\u8bben\u4e2a\u6709\u5e8f\u6570\uff08\u4ece\u5c0f\u5230\u5927\uff09\u5b58\u653e\u5728\u6570\u7ec4a(1)—-a(n)\u4e2d\uff0c\u8981\u67e5\u627e\u7684\u6570\u4e3ax\u3002\u7528\u53d8\u91cf
\nbot\u3001top\u3001mid \u5206\u522b\u8868\u793a\u67e5\u627e\u6570\u636e\u8303\u56f4\u7684\u5e95\u90e8\uff08\u6570\u7ec4\u4e0b\u754c\uff09\u3001\u9876\u90e8\uff08\u6570\u7ec4\u7684\u4e0a\u754c\uff09\u548c\u4e2d\u95f4\uff0c
\nmid=(top+bot)\/2\uff0c\u6298\u534a\u67e5\u627e\u7684\u7b97\u6cd5\u5982\u4e0b\uff1a
\n\uff081\uff09x=a(mid)\uff0c\u5219\u5df2\u627e\u5230\u9000\u51fa\u5faa\u73af\uff0c\u5426\u5219\u8fdb\u884c\u4e0b\u9762\u7684\u5224\u65ad\uff1b
\n\uff082\uff09xa(mid)\uff0cx\u5fc5\u5b9a\u843d\u5728mid+1\u548ctop\u7684\u8303\u56f4\u4e4b\u5185\uff0c\u5373bot=mid+1\uff1b
\n\uff084\uff09\u5728\u786e\u5b9a\u4e86\u65b0\u7684\u67e5\u627e\u8303\u56f4\u540e\uff0c\u91cd\u590d\u8fdb\u884c\u4ee5\u4e0a\u6bd4\u8f83\uff0c\u76f4\u5230\u627e\u5230\u6216\u8005bot<=top\u3002\n\u5c06\u4e0a\u9762\u7684\u7b97\u6cd5\u5199\u6210\u5982\u4e0b\u51fd\u6570\uff0c\u82e5\u627e\u5230\u5219\u8fd4\u56de\u8be5\u6570\u6240\u5728\u7684\u4e0b\u6807\u503c\uff0c\u6ca1\u627e\u5230\u5219\u8fd4\u56de-1\u3002\nFunction search(a() As Integer, x As Integer) As Integer\nDim bot%, top%, mid%\nDim find As Boolean '\u4ee3\u8868\u662f\u5426\u627e\u5230\nbot = LBound(a)\ntop = UBound(a)\nfind = False '\u5224\u65ad\u662f\u5426\u627e\u5230\u7684\u903b\u8f91\u53d8\u91cf\uff0c\u521d\u503c\u4e3aFalse\nDo While bot <= top And Not find\nmid = (top + bot) \\ 2\nIf x = a(mid) Then\nfind = True\nExit Do\nElseIf x < a(mid) Then\ntop = mid - 1\nElse\nbot = mid + 1\nEnd If\nLoop\nIf find Then\nsearch = mid\nElse\nsearch = -1\nEnd If\nEnd Function\n\u628a\u4e00\u4e2a\u6570\u63d2\u5230\u6709\u5e8f\u6570\u5217\u4e2d\uff0c\u63d2\u5165\u540e\u6570\u5217\u4ecd\u7136\u6709\u5e8f \n\u57fa\u672c\u601d\u60f3\uff1an\u4e2a\u6709\u5e8f\u6570\uff08\u4ece\u5c0f\u5230\u5927\uff09\u5b58\u653e\u5728\u6570\u7ec4a(1)\u2014a(n)\u4e2d\uff0c\u8981\u63d2\u5165\u7684\u6570x\u3002\u9996\u5148\u786e\u5b9ax\u63d2\n\u5728\u6570\u7ec4\u4e2d\u7684\u4f4d\u7f6eP\uff1b\uff08\u53ef\u7531\u4ee5\u4e0b\u8bed\u53e5\u5b9e\u73b0\uff09\np=1\n\ndo while x>a(p) and p<=n\np=p+1\nloop\na(p)\u2014a(n)\u5143\u7d20\u5411\u540e\u987a\u79fb\u4e00\u4e2a\u4f4d\u7f6e\u4ee5\u7a7a\u51faa(p)\u5143\u7d20\u653e\u5165x\uff0c\u53ef\u7531\u4ee5\u4e0b\u8bed\u53e5\u5b9e\u73b0\uff1a\nfor i=n to p step-1\na(i+1)=a(i)\nnext i\na(p)=x\n\u5c06\u5176\u5199\u6210\u4e00\u63d2\u5165\u51fd\u6570 \nPrivate Sub Instert(a() As Single, x As Single)\nDim p%, n%, i%\nn = UBound(a)\nReDim Preserve a(n + 1)\np = 0\nDo While x > a(p) And p < =n ' \u786e\u5b9ax\u5e94\u63d2\u5165\u7684\u4f4d\u7f6e\np = p + 1\nLoop\nFor i = n To p Step -1\na(i + 1) = a(i)\nNext i\na(p) = x\nEnd Sub\n\uff081\uff09\u77e9\u9635\u7684\u52a0\u3001\u51cf\u8fd0\u7b97 \nC(i,j)=a(i,j)+b(i,j) \u52a0\u6cd5\nC(i,j)=a(i,j)-b(i,j) \u51cf\u6cd5\n\uff082\uff09\u77e9\u9635\u76f8\u4e58 \n\uff08\u77e9\u9635A\u6709M*L\u4e2a\u5143\u7d20\uff0c\u77e9\u9635B\u6709L*N\u4e2a\u5143\u7d20\uff0c\u5219\u77e9\u9635C=A*B\u6709M*N\u4e2a\u5143\u7d20\uff09\u3002\u77e9\u9635C\u4e2d\n\u4efb\u4e00\u5143\u7d20 (i=1,2,\u2026,m; j=1,2,\u2026,n)\nFor i = 0 To m\nFor j = 0 To n\nc(i, j) = 0\nFor k = 0 To l\nc(i, j) = c(i, j) + a(i, k) * b(k, j)\nNext k\nNext j\nNext i\n\uff083\uff09\u77e9\u9635\u4f20\u7f6e \n\u4f8b:\u6709\u4e8c\u7ef4\u6570\u7ec4a(5,5)\uff0c\u8981\u5bf9\u5b83\u5b9e\u73b0\u8f6c\u7f6e\uff0c\u53ef\u7528\u4e0b\u9762\u4e24\u79cd\u65b9\u5f0f\uff1a \nFor i=1 to 5 (2) \nFor i=2 to 5\nFor j=i+1 to 5 \nFor j=1 to i\nt=a(i,j) \nt=a(i,j)\n\na(i,j)= a(j,i) a(i,j)= a(j,i)\na(j,i)=t a(j,i)=t\nNext j \nNext j\nNext i \nNext i\n\uff084\uff09\u6c42\u4e8c\u7ef4\u6570\u7ec4\u4e2d\u6700\u5c0f\u5143\u7d20\u53ca\u5176\u6240\u5728\u7684\u884c\u548c\u5217 \n\u57fa\u672c\u601d\u8def\u540c\u4e00\u7ef4\u6570\u7ec4\uff0c\u53ef\u7528\u4e0b\u9762\u7a0b\u5e8f\u6bb5\u5b9e\u73b0\uff08\u4ee5\u4e8c\u7ef4\u6570\u7ec4a(2,3)\u4e3a\u4f8b\uff09\uff1a\n'\u53d8\u91cfmax\u4e2d\u5b58\u653e\u6700\u5927\u503c\uff0crow,column\u5b58\u653e\u6700\u5927\u503c\u6240\u5728\u884c\u5217\u53f7\nMax = a(1, 1): row = 1: Column = 1\nFor i = 1 To 2\nFor j = 1 To 3\nIf a(i, j) > a(row, Column) Then
\nMax = a(i, j)
\nrow = i
\nColumn = j
\nEnd If
\nNext j
\nNext i
\nPrint “\u6700\u5927\u5143\u7d20\u662f”; Max
\nPrint “\u5728\u7b2c” & row & “\u884c,”; “\u7b2c” & Column & “\u5217”
\n\u7b97\u6cd5\u601d\u60f3\uff1a
\n\u5bf9\u4e8e\u4e00\u4e2a\u95ee\u9898\u7684\u6c42\u89e3x\uff0c\u53ef\u7531\u7ed9\u5b9a\u7684\u4e00\u4e2a\u521d\u503cx0\uff0c\u6839\u636e\u67d0\u4e00\u8fed\u4ee3\u516c\u5f0f\u5f97\u5230\u4e00\u4e2a\u65b0\u7684\u503cx1\uff0c\u8fd9
\n\u4e2a\u65b0\u503cx1\u6bd4\u521d\u503cx0\u66f4\u63a5\u8fd1\u8981\u6c42\u7684\u503cx\uff1b\u518d\u4ee5\u65b0\u503c\u4f5c\u4e3a\u521d\u503c\uff0c\u5373\uff1ax1\u2192x0,\u91cd\u65b0\u6309\u539f\u6765\u7684\u65b9\u6cd5
\n\u6c42x1,\u91cd\u590d\u8fd9\u4e00\u8fc7\u548c\u76f4\u5230|x1-x0|<\u03b5(\u67d0\u4e00\u7ed9\u5b9a\u7684\u7cbe\u5ea6)\u3002\u6b64\u65f6\u53ef\u5c06x1\u4f5c\u4e3a\u95ee\u9898\u7684\u89e3\u3002\n\u4f8b\uff1a\u7528\u8fed\u4ee3\u6cd5\u6c42\u67d0\u4e2a\u6570\u7684\u5e73\u65b9\u6839\u3002 \u5df2\u77e5\u6c42\u5e73\u65b9\u6839\u7684\u8fed\u4ee3\u516c\u5f0f\u4e3a\uff1a\nPrivate Function Fsqrt( a As single ) AS single\nDim x0 As Single, x1 As Single\nx0 =a\/2 '\u8fed\u4ee3\u521d\u503c\nx1 = 0.5*(x0 + a\/x0)\nDo\nx0 = x1 '\u4e3a\u4e0b\u4e00\u6b21\u8fed\u4ee3\u4f5c\u51c6\u5907\nx1 = 0.5*(x0 + a\/x0)\nLoop While Abs(x1 - x0) > 0.00001
\nFsqrt=x1
\nEnd Function
\n\u5c06\u4e00\u4e2a\u5341\u8fdb\u5236\u6574\u6570m\u8f6c\u6362\u6210 \u2192r(2\uff0d16)\u8fdb\u5236\u5b57\u7b26\u4e32\u3002
\n\u65b9\u6cd5\uff1a\u5c06m\u4e0d\u65ad\u9664 r \u53d6\u4f59\u6570\uff0c\u76f4\u5230\u5546\u4e3a\u96f6\uff0c\u4ee5\u53cd\u5e8f\u5f97\u5230\u7ed3\u679c\u3002\u4e0b\u9762\u5199\u51fa\u4e00\u8f6c\u6362\u51fd\u6570\uff0c\u53c2\u6570
\nidec\u4e3a\u5341\u8fdb\u5236\u6570\uff0cibase\u4e3a\u8981\u8f6c\u6362\u6210\u6570\u7684\u57fa\uff08\u5982\u4e8c\u8fdb\u5236\u7684\u57fa\u662f2\uff0c\u516b\u8fdb\u5236\u7684\u57fa\u662f8\u7b49\uff09\uff0c\u51fd\u6570
\n\u8f93\u51fa\u7ed3\u679c\u662f\u5b57\u7b26\u4e32\u3002
\nPrivate Function TrDec(idec As Integer, ibase As Integer) As String
\nDim strDecR$, iDecR%
\nstrDecR = “”
\nDo While idec <> 0<\/p>\n

iDecR = idec Mod ibase
\nIf iDecR >= 10 Then
\nstrDecR = Chr$(65 + iDecR – 10) & strDecR
\nElse
\nstrDecR = iDecR & strDecR
\nEnd If
\nidec = idec \\ ibase
\nLoop
\nTrDec = strDecR
\nEnd Function
\n1\uff0e\u7b80\u5355\u52a0\u5bc6\u548c\u89e3\u5bc6
\n\u52a0\u5bc6\u7684\u601d\u60f3\u662f\uff1a
\n\u5c06\u6bcf\u4e2a\u5b57\u6bcdC\u52a0\uff08\u6216\u51cf\uff09\u4e00\u5e8f\u6570K\uff0c\u5373\u7528\u5b83\u540e\u7684\u7b2cK\u4e2a\u5b57\u6bcd\u4ee3\u66ff\uff0c\u53d8\u6362\u5f0f\u516c\u5f0f\uff1a c=chr(Asc(c)+k)
\n\u4f8b\u5982\u5e8f\u6570k\u4e3a5\uff0c\u8fd9\u65f6”A”\u2192”F”\uff0c “a”\u2192?”f”\uff0c”B”\u2192?”G”\u2026
\n\u5f53\u52a0\u5e8f\u6570\u540e\u7684\u5b57\u6bcd\u8d85\u8fc7”Z”\u6216”z”\u5219 c=Chr(Asc(c)+k -26)
\n\u4f8b\u5982\uff1aYou are good\u2192 Dtz fwj ltti
\n\u89e3\u5bc6\u4e3a\u52a0\u5bc6\u7684\u9006\u8fc7\u7a0b
\n\u5c06\u6bcf\u4e2a\u5b57\u6bcdC\u51cf\uff08\u6216\u52a0\uff09\u4e00\u5e8f\u6570K\uff0c\u5373 c=chr(Asc(c)-k),
\n\u4f8b\u5982\u5e8f\u6570k\u4e3a5\uff0c\u8fd9\u65f6”Z”\u2192”U”\uff0c “z”\u2192”u”\uff0c”Y”\u2192”T”\u2026
\n\u5f53\u52a0\u5e8f\u6570\u540e\u7684\u5b57\u6bcd\u5c0f\u4e8e”A”\u6216”a”\u5219 c=Chr(Asc(c)-k +26)
\n\u4e0b\u6bb5\u7a0b\u5e8f\u662f\u52a0\u5bc6\u5904\u7406\uff1a
\ni = 1: strp = “”
\nnL = Len(RTrim(strI))
\nDo While (i <= nL)\nstrT = Mid$(strI, i, 1) '\u53d6\u7b2ci\u4e2a\u5b57\u7b26\nIf (strT >= “A” And strT <= \"Z\") Then\niA = Asc(strT) + 5\nIf iA > Asc(“Z”) Then iA = iA – 26
\nstrp = strp + Chr$(iA)
\nElseIf (strT >= “a” And strT <= \"z\") Then\niA = Asc(strT) + 5\nIf iA > Asc(“z”) Then iA = iA – 26
\nstrp = strp + Chr$(iA)
\nElse
\nstrp = strp + strT
\nEnd If
\ni = i + 1
\nLoop
\nPrint strp
\n2\uff0e\u7edf\u8ba1\u6587\u672c\u5355\u8bcd\u7684\u4e2a\u6570
\n\u7b97\u6cd5\u601d\u8def\uff1a
\n\uff081\uff09\u4ece\u6587\u672c\uff08\u5b57\u7b26\u4e32\uff09\u7684\u5de6\u8fb9\u5f00\u59cb\uff0c\u53d6\u51fa\u4e00\u4e2a\u5b57\u7b26\uff1b\u8bbe\u903b\u8f91\u91cfWT\u8868\u793a\u6240\u53d6\u5b57\u7b26\u662f\u5426\u662f\u5355
\n\u8bcd\u5185\u7684\u5b57\u7b26\uff0c\u521d\u503c\u8bbe\u4e3aFalse
\n\uff082\uff09\u82e5\u6240\u53d6\u5b57\u7b26\u4e0d\u662f\u201c\u7a7a\u683c\u201d\uff0c\u201c\u9017\u53f7\u201d\uff0c\u201c\u5206\u53f7\u201d\u6216\u201c\u611f\u53f9\u53f7\u201d\u7b49\u5355\u8bcd\u7684\u5206\u9694\u7b26\uff0c\u518d\u5224\u65adWT<\/p>\n

\u662f\u5426\u4e3aTrue\uff0c\u82e5WT\u4e0d\u4e3aTrue\u5219\u8868\u662f\u65b0\u5355\u8bcd\u7684\u5f00\u59cb\uff0c\u8ba9\u5355\u8bcd\u6570Nw=Nw+1\uff0c\u8ba9WT=True;
\n\uff083\uff09\u82e5\u6240\u53d6\u5b57\u7b26\u662f\u201c\u7a7a\u683c\u201d\uff0c\u201c\u9017\u53f7\u201d\uff0c\u201c\u5206\u53f7\u201d\u6216\u201c\u611f\u53f9\u53f7\u201d\u7b49\u5355\u8bcd\u7684\u5206\u9694\u7b26\uff0c \u5219\u8868\u793a\u5b57\u7b26
\n\u4e0d\u662f\u5355\u8bcd\u5185\u5b57\u7b26\uff0c\u8ba9WT=False;
\n(4) \u518d\u4f9d\u6b21\u53d6\u4e0b\u4e00\u4e2a\u5b57\u7b26\uff0c\u91cd\u5f97\uff082\uff09(3)\u76f4\u5230\u6587\u672c\u7ed3\u675f\u3002
\n\u4e0b\u9762\u7a0b\u5e8f\u6bb5\u662f\u5b57\u7b26\u4e32strI\u4e2d\u5305\u542b\u7684\u5355\u8bcd\u6570
\nNw = 0: Wt = False
\nnL = Len(RTrim(strI))
\nFor i = 1 To nL
\nstrT = Mid$(strI, i, 1) ‘\u53d6\u7b2ci\u4e2a\u5b57\u7b26
\nSelect Case strT
\nCase ” “, “,”, “;”, “!”
\nWt = False
\nCase Else
\nIf Not Wt Then
\nNw = Nw + 1
\nWt = True
\nEnd If
\nEnd Select
\nNext i
\nPrint “\u5355\u8bcd\u6570\u4e3a\uff1a”, Nw
\n\u7a77\u4e3e\u6cd5\uff08\u53c8\u79f0\u201c\u679a\u4e3e\u6cd5\u201d\uff09\u7684\u57fa\u672c\u601d\u60f3\u662f\uff1a\u4e00\u4e00\u5217\u4e3e\u5404\u79cd\u53ef\u80fd\u7684\u60c5\u51b5\uff0c\u5e76\u5224\u65ad\u54ea\u4e00\u79cd\u53ef\u80fd\u662f
\n\u7b26\u5408\u8981\u6c42\u7684\u89e3\uff0c\u8fd9\u662f\u4e00\u79cd\u201c\u5728\u6ca1\u6709\u5176\u5b83\u529e\u6cd5\u7684\u60c5\u51b5\u7684\u65b9\u6cd5\u201d\uff0c\u662f\u4e00\u79cd\u6700\u201c\u7b28\u201d\u7684\u65b9\u6cd5\uff0c\u7136\u800c
\n\u5bf9\u4e00\u4e9b\u65e0\u6cd5\u7528\u89e3\u6790\u6cd5\u6c42\u89e3\u7684\u95ee\u9898\u5f80\u5f80\u80fd\u594f\u6548\uff0c\u901a\u5e38\u91c7\u7528\u5faa\u73af\u6765\u5904\u7406\u7a77\u4e3e\u95ee\u9898\u3002
\n\u4f8b\uff1a \u5c06\u4e00\u5f20\u9762\u503c\u4e3a100\u5143\u7684\u4eba\u6c11\u5e01\u7b49\u503c\u6362\u6210100\u5f205\u5143\u30011\u5143\u548c0.5\u5143\u7684\u96f6\u949e\uff0c\u8981\u6c42\u6bcf\u79cd
\n\u96f6\u949e\u4e0d\u5c11\u4e8e1\u5f20\uff0c\u95ee\u6709\u54ea\u51e0\u79cd\u7ec4\u5408\uff1f
\nDim i%, j%, k%
\nPrint “5\u5143 1\u5143 0.5\u5143”
\nFor i = 1 To 20
\nFor j = 1 To 100 – i
\nk = 100 – i – j
\nIf 5.0 * i + 1.0 * j + 0.5 * k = 100 Then
\nPrint i, j, k
\nEnd If
\nNext j
\nNext i
\n\u7528\u81ea\u8eab\u7684\u7ed3\u6784\u6765\u63cf\u8ff0\u81ea\u8eab\uff0c\u79f0\u9012\u5f52
\nVB\u5141\u8bb8\u5728\u4e00\u4e2aSub\u5b50\u8fc7\u7a0b\u548cFunction\u8fc7\u7a0b\u7684\u5b9a\u4e49\u5185\u90e8\u8c03\u7528\u81ea\u5df1\uff0c\u5373\u9012\u5f52Sub\u5b50\u8fc7\u7a0b\u548c\u9012\u5f52
\nFunction\u51fd\u6570\u3002\u9012\u5f52\u5904\u7406\u4e00\u822c\u7528\u6808\u6765\u5b9e\u73b0\uff0c\u6bcf\u8c03\u7528\u4e00\u6b21\u81ea\u8eab\uff0c\u628a\u5f53\u524d\u53c2\u6570\u538b\u6808\uff0c\u76f4\u5230\u9012\u5f52\u7ed3
\n\u675f\u6761\u4ef6\uff1b\u7136\u540e\u4ece\u6808\u4e2d\u5f39\u51fa\u5f53\u524d\u53c2\u6570\uff0c\u76f4\u5230\u6808\u7a7a\u3002
\n\u9012\u5f52\u6761\u4ef6\uff1a\uff081\uff09\u9012\u5f52\u7ed3\u675f\u6761\u4ef6\u53ca\u7ed3\u675f\u65f6\u7684\u503c\uff1b\uff082\uff09\u80fd\u7528\u9012\u5f52\u5f62\u5f0f\u8868\u793a\uff0c\u4e14\u9012\u5f52\u5411\u7ec8\u6b62\u6761\u4ef6\u53d1
\n\u5c55\u3002
\n\u4f8b\uff1a\u7f16fac(n)=n! \u7684\u9012\u5f52\u51fd\u6570
\nFunction fac(n As Integer) As Integer
\nIf n = 1 Then<\/p>\n

fac = 1
\nElse
\nfac = n * fac(n – 1)
\nEnd If
\nEnd Function<\/p>\n","protected":false},"excerpt":{"rendered":"

\u9ad8\u4e2d\u5b66\u8003\u9009\u8003VB\u5e38\u7528\u7b97\u6cd5 \u7a0b\u5e8f\u8bbe\u8ba1\u7684\u5e38\u7528\u7b97\u6cd5 \u7b97\u6cd5\uff08Algorithm\uff09\uff1a\u8ba1\u7b97\u673a\u89e3\u9898\u7684\u57fa\u672c\u601d\u60f3\u65b9\u6cd5\u548c\u6b65\u9aa4\u3002\u7b97\u6cd5 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[68],"tags":[],"content_type":[],"class_list":["post-1579","post","type-post","status-publish","format-standard","hentry","category-zzjy"],"_links":{"self":[{"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/posts\/1579","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=1579"}],"version-history":[{"count":0,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/posts\/1579\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1579"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1579"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1579"},{"taxonomy":"content_type","embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcontent_type&post=1579"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}