Îʸö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Ïë±ØÊÇ×Ô¶¨Ò庯Êý£¬²»ÖªµÀÊÇÔõôдµÄ£»ÄãÐèÒªµ¥²½¸ú×Ùһϣ¬¿´½á¹ûÊÇ·ñÒ»ÑùÒýÓà pow(x+sqrt(x*x+1),1.0/3) (x+sqrt(x*x+1))^1.0/3 ÉÏÃæÕâÁ½¸öÖÐÄĸöÊǶԵİ¡»¹ÊǶ¼¿ÉÒÔ »¹ÓÐÆäÖеÄ1.0ÊDZØÐëÓÃ1.0? ¿É²»¿ÉÒÔÓÃ1°¡ 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ÓïÑԾͲ»Çå³þÁË
Ïà¹ØÎÊ´ð£º
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......
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 ......
ÓÉÓÚ´°體µÄÔö¶à£» Ã÷顯¸Ð覺³Ìʽ運ÐÐÂýÁË£» Ôõ樣優»¯£» ÓÅ»¯ÄãµÄ³ÌÐòÂß¼£¬±ÈÈ罫²»ÓõĴ°Ì弰ʱUnload£¬½«²»ÓõĶÔÏó¼°Ê±ÊÍ·Å ÒýÓà ÓÅ»¯ÄãµÄ³ÌÐòÂß¼£¬±ÈÈ罫²»Óà ......
ÓÃʲô£¿ VB×Ô¼ººÃÏñÓлͼº¯Êý°É,ÁíÍâVBÒ²ÊÇ¿ÉÒÔÓÃAPIµÄ,¶øÇҺܷ½±ã ÒýÓà VB×Ô¼ººÃÏñÓлͼº¯Êý°É,ÁíÍâVBÒ²ÊÇ¿ÉÒÔÓÃAPIµÄ,¶øÇҺܷ½±ã ΪʲôvcûÓÐ×Ô¼ºµÄ»Í¼º¯Êý£¿ ÒýÓà ÒýÓà 1 Â¥ wltg2001 µ ......