Îʸö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 ......
VB+Access·ÖÎöάÐÞ¹ÜÀíϵͳ£¬ÔõÑù½øÈëϵͳ´°ÌåÉÏÏÔʾµÇ½Óû§Ãû£» Çë¸ßÊÖ°ïæ£» Õâ¸öÒ»°ãÊÇÓû§¾¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔʾÔÚstatebarÀïµÄ°É¡£ ÒýÓà Õâ¸öÒ»°ãÊÇÓû§¾¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔÊ ......
1.ÓÃShell "regsvr32 " & App.Path & "\abcdefghijklmnopqrstuvwxyz.ocx"×¢²á¿Ø¼þ£¬Ôõô²»ÏÔʾע²á³É¹¦¶Ô»°¿ò£¿ 2.ÐÞ¸Äd:\12345.txtÊôÐÔ->Ö»¶Á£¬·ÇÖ»¶Á£¬Òþ²Ø£¬·ÇÒþ²Ø 3 ......
VBÓï¾äÏñÓ¢ÓC++Óï¾äÏñÊýѧ£¬ÎÒÊýѧ±ÈÓ¢ÓïºÃ¡¡ ÓÐЩVBÓï¾ä¸É´à¾ÍÊÇÓ¢Óï¾ä×Ó£¬ËäÈ»ºÜÈÝÒ×¶®£¬µ«ÎÒ²»ÊÇÀÏÍ⣬¶ÔÓ¢ÓïûÓÐÈκÎÇ×ÇиУ¬Ò²¾Í²»¸Ð¾õVB¸üÈÝÒ×£¬Ïà·´C++Óï¾äÂß¼ÐÔ¸üÇ¿£¬ÏñÊýѧÌâËÆµÄ£¬¿´µÄ·´¶øÁ÷ ......