请问如何去掉所有小数点呢？？？求指点啊

Question

程序有句代码是这样的“
Label1.Caption = (Loc(1) * 100 / lDatalen) & "%"

运行起来的结果是，程序保留了13位左右的小数点

Select Case State
'...没有列举其它情况。
Case icError '11
vtData = Inet1.ResponseCode & ":" & Inet1.ResponseInfo
Case icResponseCompleted ' 12
Dim bDone As Boolean: bDone = False
Dim lDatalen As Long: lDatalen = 0
vtData() = Inet1.GetChunk(1024, 1) DoEvents
Open savefile.Text For Binary Access Write As #1  
If Len(Inet1.GetHeader("Content-Length")) > 0 Then lDatalen = CLng(Inet1.GetHeader("Content-Length"))
' CLng(Inet1.GetHeader("Content-Length")) 为文件大小
Do While Not bDone
Put #1, Loc(1) + 1, vtData()
vtData() = Inet1.GetChunk(1024, 1)
DoEvents
Label1.Caption = (Loc(1) * 100 / lDatalen) & "%" ProgressBar1.Value = 100 * (Loc(1) / lDatalen)
If Loc(1) >= lDatalen Then bDone = True
Loop
Close #1
MsgBox "下载完成", vbInformation, 
End Select
End Sub

Answer 1

要去掉所有小数是吧在VB中 /是除法 \是整除 所以只要用Label1.Caption = (Loc(1) * 100 \ lDatalen) & "%"就能只保留整数当然用VB自带的FORMAT函数也能保留整数Label1.Caption = Format((Loc(1) * 100 / lDatalen), "0") & "%"看你这代码貌似是显示文件传输百分比是吧 FORMAT函数的功能是很强大的 你甚至可以直接让他显示百分数 这样就不用乘100了 如下Label1.Caption = Format((Loc(1) / lDatalen), "0%")再给你举点例子Format (2, “0.00”)2.00Format (.7, “0%”)70%  Format (1140, “$#,##0”)$1,140

Answer 2

给你个函数Int(number) 作用是取整