Question

vb6.0如何编程不显小数点后面的0

pNum=Format(金额, "0.00000"))
例如结果为13.235000只，显示为13.235 ；结果为1345.352520显示为1345.35252；
结果为234.000000显示为234

Answer 1

得到pNum的值之后,直接
pNum = Val(pNum)
示例:
Option Explicit
Private Sub Command1_Click()
Dim a As String
Dim pNum As Single
a = "2314.5000元"
pNum = Val(a)
Print pNum
End Sub

Answer 2

pNum=cint(金额)

Answer 3

val(str(pNum))