Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÖпÉÑ¡²ÎÊýµÄÎÊÌâ

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³Ìʽ

ÓÉÓÚ´°體µÄÔö¶à£»
Ã÷顯¸Ð覺³Ìʽ運ÐÐÂýÁË£»
Ôõ樣優»¯£»
ÓÅ»¯ÄãµÄ³ÌÐòÂß¼­£¬±ÈÈ罫²»ÓõĴ°Ì弰ʱUnload£¬½«²»ÓõĶÔÏó¼°Ê±ÊÍ·Å

ÒýÓÃ
ÓÅ»¯ÄãµÄ³ÌÐòÂß¼­£¬±ÈÈ罫²»Óà ......

ΪʲôÎҸоõVB·´±ÈVCÄÑѧ¡­¡­

VBÓï¾äÏñÓ¢ÓC++Óï¾äÏñÊýѧ£¬ÎÒÊýѧ±ÈÓ¢ÓïºÃ¡­¡­

ÓÐЩVBÓï¾ä¸É´à¾ÍÊÇÓ¢Óï¾ä×Ó£¬ËäÈ»ºÜÈÝÒ×¶®£¬µ«ÎÒ²»ÊÇÀÏÍ⣬¶ÔÓ¢ÓïûÓÐÈκÎÇ×ÇиУ¬Ò²¾Í²»¸Ð¾õVB¸üÈÝÒ×£¬Ïà·´C++Óï¾äÂß¼­ÐÔ¸üÇ¿£¬ÏñÊýѧÌâËÆµÄ£¬¿´µÄ·´¶øÁ÷ ......

VCÏ»­Í¼ÒªÓÃwin32 GDI API VBÏÂÄØ£¿

ÓÃʲô£¿
VB×Ô¼ººÃÏñÓл­Í¼º¯Êý°É,ÁíÍâVBÒ²ÊÇ¿ÉÒÔÓÃAPIµÄ,¶øÇҺܷ½±ã

ÒýÓÃ
VB×Ô¼ººÃÏñÓл­Í¼º¯Êý°É,ÁíÍâVBÒ²ÊÇ¿ÉÒÔÓÃAPIµÄ,¶øÇҺܷ½±ã

ΪʲôvcûÓÐ×Ô¼ºµÄ»­Í¼º¯Êý£¿

ÒýÓÃ
ÒýÓà 1 Â¥ wltg2001 µ ......

VB´°ÌåµÄÊôÐÔÉèÖôúÂë

Õâ¶Î³ÌÐòÖÐ
Begin VB.Forms_frmmain    BorderStyle = 1 'fixed single
    Caption = "ËÙËã24"
    clientHeight = 6375
    clientLeft = 154 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ