Îʸö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ÓïÑԾͲ»Çå³þÁË
Ïà¹ØÎÊ´ð£º
Printer.ScaleMode = 6 6±íʾºÁÃ× Printer.PaperSize = vbPRPSA4 '³õÊ¼×ø±ê x = 1 y = 4 '×î´óµÄÏß¿ð Printer.DrawStyle = 0 Printer.Line (x, y)-(x + 132.5, y) ......
Çë½ÌһϣºÎÒÓÃ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 ......
function multi(a as integer,b as integer,optional third) dim n as integer n = a * b if not ismissing (third) then n = n * thid end if multi = n end fu ......
ÓÃʲô£¿ VB×Ô¼ººÃÏñÓлͼº¯Êý°É,ÁíÍâVBÒ²ÊÇ¿ÉÒÔÓÃAPIµÄ,¶øÇҺܷ½±ã ÒýÓà VB×Ô¼ººÃÏñÓлͼº¯Êý°É,ÁíÍâVBÒ²ÊÇ¿ÉÒÔÓÃAPIµÄ,¶øÇҺܷ½±ã ΪʲôvcûÓÐ×Ô¼ºµÄ»Í¼º¯Êý£¿ ÒýÓà ÒýÓà 1 Â¥ wltg2001 µ ......