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)
<
Ïà¹ØÎÊ´ð£º
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html
Éæ¼°µ½Ëã·¨£¬goog ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......