Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Îʸö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ÖеÄÁбí¿òµÄÎÊÌâ

Ò»µÀVBС³ÌÐò
ÓÐÁ½¸öÁбí¿òlist1¡¢ list2 ¡£list1Öгõʼ»¯ÓÐ15¸ö²»Í¬µÄ×Öĸ£¬¶ølist2ÖÐÊÇ¿Õ°×µÄ »¹ÓÐÒ»¸ö°´Å¥command1,Ñ¡ÖÐlist1ÖеÄÈÎÒâ¶à¸öÏîÄ¿ È»ºóµã»÷°´Å¥command1,ÔòÔÚlist2ÖÐÏÔʾlist1Öб»Ñ¡ÖеÄÏîÄ¿¡£µ±¶ ......

VBÔõÑùÏÔʾµÇ½Óû§ID

VB+Access·ÖÎöάÐÞ¹ÜÀíϵͳ£¬ÔõÑù½øÈëϵͳ´°ÌåÉÏÏÔʾµÇ½Óû§Ãû£»
Çë¸ßÊÖ°ïæ£»
Õâ¸öÒ»°ãÊÇÓû§¾­¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔʾÔÚstatebarÀïµÄ°É¡£

ÒýÓÃ
Õâ¸öÒ»°ãÊÇÓû§¾­¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔÊ ......

¹ØÓÚÓÃvb´¦ÀítxtµÄÎÊÌâ

ÓÉÓÚÿÔ´ӱðµÄ¹«Ë¾ËÍÀ´Ò»¸ötxtÎļþ£¬¸ñʽÈçÏ£º
   
0023939608011»Æ¸ùÑø                                & ......

VBÎļþ²Ù×÷

Private Sub Command1_Click()

    Dim m As Integer    '½ÓÊÜÎı¾¿òÒ»µÄÊýÖµ
    Dim n As Integer  '½ÓÊÜÎı¾¿ò¶þµÄÊýÖµ
    Dim k As Integ ......

ÔõÑù±£´æVBµÄcomboboxµÄlistÖµ£¿

form1 ÖУ¬ÎÒÔÚText1ÀïÊäÈë1111111111

Dim str1 As String
Private Sub Command1_Click()
str1 = Me.Text1.Text
Combo1.AddItem str1
End Sub

µãCommand1£¬¾Íдµ½Combo1µÄ ÏÂÀ­²Ëµ¥ÀïÈ¥ÁË ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ