´ó¼Ò°ïæ¿´¿´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
Ïà¹ØÎÊ´ð£º
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
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 ......
Private Sub Command1_Click()
Dim m As Integer '½ÓÊÜÎı¾¿òÒ»µÄÊýÖµ
Dim n As Integer '½ÓÊÜÎı¾¿ò¶þµÄÊýÖµ
Dim k As Integ ......
ÓÃʲô£¿
VB×Ô¼ººÃÏñÓлͼº¯Êý°É,ÁíÍâVBÒ²ÊÇ¿ÉÒÔÓÃAPIµÄ,¶øÇҺܷ½±ã
ÒýÓÃ
VB×Ô¼ººÃÏñÓлͼº¯Êý°É,ÁíÍâVBÒ²ÊÇ¿ÉÒÔÓÃAPIµÄ,¶øÇҺܷ½±ã
ΪʲôvcûÓÐ×Ô¼ºµÄ»Í¼º¯Êý£¿
ÒýÓÃ
ÒýÓà 1 Â¥ wltg2001 µ ......
http://fp4bmg.blu.livefilestore.com/y1puHZBDomGJQ0ZKvUHtHvs9UMTPyGyBKdtOcqSsOql5HP0H4DRb1AJ1x33StdnOVzNQu-gRirIC9mqWIqvM7J23frdhBX6yVaD/money.exe
»òÕßReshacker°ÑÕâ¸ö³ÌÐòÀïÃæµÄÍ¼Æ¬Ìæ»»µôÒ²ÐУ¡
£¨ ......