ÎʸöVBÖеÄÒ»¸öËãÊõ±í´ïʽ
pow(x+sqrt(x*x+1),1.0/3) (x+sqrt(x*x+1))^1.0/3
ÉÏÃæÕâÁ½¸öÖÐÄĸöÊǶԵİ¡»¹ÊǶ¼¿ÉÒÔ »¹ÓÐÆäÖеÄ1.0ÊDZØÐëÓÃ1.0? ¿É²»¿ÉÒÔÓÃ1°¡
sqrÊǺ¯Êý£¬sqrtºÍpowÏë±ØÊÇ×Ô¶¨Ò庯Êý£¬²»ÖªµÀÊÇÔõôдµÄ£»ÄãÐèÒªµ¥²½¸ú×Ùһϣ¬¿´½á¹ûÊÇ·ñÒ»Ñù
sqr,powÊÇÓÃ戶×Ô¶¨義º¯數;
VB²»Ö§³ÖÕâ¸öº¯Êý
ÔÚCÖÐ ÓÖÊÇʲôÇé¿ö ÉÏÃæµÄ1.0 ÊDz»ÊDZØÐëµÄ
¶¼ÓÐÎÊÌâ,Ó¦¸Ãд³ÉÕâÑù×Ó
(x+sqr(x*x+1))^(1.0/3)
²»ÊDZØÐèÓÃ1.0µÄ,Äãд³ÉÒ»¾Í¿ÉÒÔµÄ
¶¼ÓÐÎÊÌâ,Ó¦¸Ãд³ÉÕâÑù×Ó
(x+sqr(x*x+1))^(1/3)
ËäÈ»²»ÊǺܶ®£¬µ«ÊǵðïÄ㶥һϣ¡
sqrt ºÃÏñÊÇCÀïÃæµÄд·¨
VBÀï.0 ¿ÉÒÔ²»ÓÃ,CÓïÑԾͲ»Çå³þÁË
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
Ò»µÀVBС³ÌÐò
ÓÐÁ½¸öÁбí¿òlist1¡¢ list2 ¡£list1Öгõʼ»¯ÓÐ15¸ö²»Í¬µÄ×Öĸ£¬¶ølist2ÖÐÊÇ¿Õ°×µÄ »¹ÓÐÒ»¸ö°´Å¥command1,Ñ¡ÖÐlist1ÖеÄÈÎÒâ¶à¸öÏîÄ¿ È»ºóµã»÷°´Å¥command1,ÔòÔÚlist2ÖÐÏÔʾlist1Öб»Ñ¡ÖеÄÏîÄ¿¡£µ±¶ ......
1.ÓÃShell "regsvr32 " & App.Path & "\abcdefghijklmnopqrstuvwxyz.ocx"×¢²á¿Ø¼þ£¬Ôõô²»ÏÔʾע²á³É¹¦¶Ô»°¿ò£¿
2.ÐÞ¸Äd:\12345.txtÊôÐÔ->Ö»¶Á£¬·ÇÖ»¶Á£¬Òþ²Ø£¬·ÇÒþ²Ø
3 ......
Private Sub Command1_Click()
Dim m As Integer '½ÓÊÜÎı¾¿òÒ»µÄÊýÖµ
Dim n As Integer '½ÓÊÜÎı¾¿ò¶þµÄÊýÖµ
Dim k As Integ ......