Îʸö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ÓïÑԾͲ»Çå³þÁË
Ïà¹ØÎÊ´ð£º
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õÊ¼×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
Private Sub DataList1_Click()
If DataList1.Text = "" Then
Lbl_EmpId = ""
Lbl_EmpName = ""
Lbl_Birth = ""
Lbl_Sex = ""
Lbl_Political_ ......
VB+Access·ÖÎöάÐÞ¹ÜÀíϵͳ£¬ÔõÑù½øÈëϵͳ´°ÌåÉÏÏÔʾµÇ½Óû§Ãû£»
Çë¸ßÊÖ°ïæ£»
Õâ¸öÒ»°ãÊÇÓû§¾¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔʾÔÚstatebarÀïµÄ°É¡£
ÒýÓÃ
Õâ¸öÒ»°ãÊÇÓû§¾¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔÊ ......
ÓÉÓÚÿÔ´ӱðµÄ¹«Ë¾ËÍÀ´Ò»¸ötxtÎļþ£¬¸ñʽÈçÏ£º
0023939608011»Æ¸ùÑø & ......
ÓÃʲô£¿
VB×Ô¼ººÃÏñÓлͼº¯Êý°É,ÁíÍâVBÒ²ÊÇ¿ÉÒÔÓÃAPIµÄ,¶øÇҺܷ½±ã
ÒýÓÃ
VB×Ô¼ººÃÏñÓлͼº¯Êý°É,ÁíÍâVBÒ²ÊÇ¿ÉÒÔÓÃAPIµÄ,¶øÇҺܷ½±ã
ΪʲôvcûÓÐ×Ô¼ºµÄ»Í¼º¯Êý£¿
ÒýÓÃ
ÒýÓà 1 Â¥ wltg2001 µ ......