Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

vb×öÇúÏߣ¬²¢ÄâºÏºÍ½øÐиß˹ÏûÈ¥

´ó¼ÒºÃ£¬ÎÒÊÇÐÂÊÖ£¬Ô­À´¶¼ÓÃcºÍC#µÄ£¬ÏÖÔÚÓÃvb±à³Ì£¬ºÜ¶àÎÊÌâ¶¼²»Ã÷°×£¬Ï£ÍûÄÜÓöµ½¸ßÊÖ£¬¶à¶àÖ¸½Ì£¬ÏÂÃæÊÇÒ»¸ö³ÌÐòµÄÄâºÏ£¬ºÍ¸ß˹ÏûÈ¥¡£ÎÒ´óѧѧ¹ýÀëÉ¢Êýѧ£¬ÊýÖµ·ÖÎö£¬¾ÍÊDz»Ì«¼ÇµÃÁË£¬Ï£ÍûÄܹ»Ìáµãһϣ¬°ïÎÒ½âÊÍһϣ¬ÎұȽϱ¿£¬Ô½ÏêϸԽºÃ£¬Ð»Ð»¡£
£¬Public Function CurveFitting(X() As Single, Y() As Single, n As Integer, e As Integer) As Single()

'**** ÇúÏßÄâºÏ ****
   
    Dim A() As Single
    Dim C() As Single
    Dim B() As Single
    ReDim A(1 To n + 1, 1 To n + 1) As Single
    ReDim C(1 To n + 1) As Single
    ReDim B(1 To n + 1) As Single
    Dim Temp As Single
    Dim i, j, K As Integer
   
    For i = 0 To e
        For j = 0 To e
            For K = 1 To n
                A(i + 1, j + 1) = A(i + 1, j + 1) + X(K) ^ (j + i)
            Next K
        Next j
       
        For K = 1 To n
            C(i + 1) = C(i + 1) + X(K) ^ i * Y(K)
        Next K
    Next i
   
    B = SolvingEquations(A(), C(), e + 1)
    <


Ïà¹ØÎÊ´ð£º

ÇëºÃÐÄÈ˰ïÎÒ°ÑVBÔ´ÂëתΪVB.NET~

Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..


Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html

תΪVB.NETÔ´Âë.

СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ

ÎÒµÄEMAILÊÇ:4452 ......

vb²éѯÊý¾Ý¿âÎÊÌâ

ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html

Éæ¼°µ½Ëã·¨£¬goog ......

vb Å£Âð - Web ¿ª·¢ / vbScript

vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£

±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......

100·Ö£¡¹ØÓÚvbµ÷ÓÃdelphi±àдµÄdllµÄÎÊÌ⣬¼±£¡£¡£¡

¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ