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

´ó¼Ò°ïæ¿´¿´VBÖмÆËãÎÊÌâ

´ó¼Ò°ïæ¿´Ï£¬ÔÚVBÖÐÓиö±äÁ¿str=0.00016ÈçºÎ¼ÆËãÈÃËü±ä³ÉÊÇ1.6*10µÄ4´Î·½
»¹ÓиöÎÊÌâÊǹØÓÚÊý¾Ý¿â²éѯµÄ
ÔÚACCESSÖÐÈçºÎ²éѯʱ£¬ÅжÏ×Ö¶Î1ÊÇ·ñΪ¿ÕÈç¹ûÊÇÔò²éѯ×Ö¶Î2
ÔÚSQLÖÐÓ¦¸ÃÊÇselect case ×Ö¶Î1 isnul then ×Ö¶Î2 end from ±íÃû
´ó¼Ò¿´¿´ÔÚACCESSÖÐÊDzéѯµÄ£¬½â¾öÁËÔÙ¼Ó·Ö
str = cdbl(str) * 100000000#

VB code:
Option Explicit

Private Sub Form_Load()
Dim strP As String
strP = "0.00016"
strP = Val(strP) * 100000000
Text1.Text = strP
End Sub



µÚÒ»¸öÎÊÌâ±¾ÊÇ1.6×10µÄ-4´Î·½,ÄãÒª±ä10µÄ4´Î,¾Í½«Æä×10µÄ8´Î·½(ÎÊÌâÓеã¹ýÓÚ¼òµ¥£¿)
[access] select iif(isnull(×Ö¶Î1),×Ö¶Î2,×Ö¶Î1) from ±íÃû

¸Õ²Å˵´íÁË£¬Ó¦¸ÃÊÇ1.6*10¸º4´Î·½£¬ÎÒ°´ÕÕÄãÃǵķ½·¨Ôõô½á¹ûÊÇ160000

VB code:
str = Format$(0.00016,"#.#E+")


VB code:

Dim istr As String
istr = Format(0.00016, "0.##E+")



str = Format$(0.00016,"#.#E+")

VB code:
Private Sub Form_Load()
s = Format(0.00016, "0.0E+")
MsgBox


Ïà¹ØÎÊ´ð£º

vb´òÓ¡ÎÊÌâ

´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ


printer.print "dsff"
.....
....


Printer.EndDoc


´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ

sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......

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

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

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

VB與VB.NET區別

VB與VB.NET區別ÊÇʲô£¿
³ýÁËÓï·¨²î²»¶à£¬¼¸ºõ¶¼ÊÇÇø±ð¡£

×÷ÓÃÖ÷Òª區別ÊÇÊ²Ã´ÄØ?

Óò»ÓÃÓÐ .net¿ò¼Ü


ÒýÓÃ
Óò»ÓÃÓÐ .net¿ò¼Ü


.net¿É·ñÀí½â為Ł ......

Îʸö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Ïë±ØÊÇ×Ô¶¨Ò庯Êý£¬²»Ö ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ