vb:如何去掉小数点,但小数点后的其他数不变.(类似于有效数字,但不要小数点) 急

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/23 03:21:10
vb:如何去掉小数点,但小数点后的其他数不变.(类似于有效数字,但不要小数点)急vb:如何去掉小数点,但小数点后的其他数不变.(类似于有效数字,但不要小数点)急vb:如何去掉小数点,但小数点后的其他数

vb:如何去掉小数点,但小数点后的其他数不变.(类似于有效数字,但不要小数点) 急
vb:如何去掉小数点,但小数点后的其他数不变.(类似于有效数字,但不要小数点) 急

vb:如何去掉小数点,但小数点后的其他数不变.(类似于有效数字,但不要小数点) 急
Private Sub Command1_Click()
Dim m As String,s As String,l As Integer,i As Integer,t As String
s = Text1.Text
l = Len(s)
For i = 1 To l
t = Mid(s,i,1)
If n = 1 Then
If t "." Then
m = m & t
End If
Else
If t "0" And t "." Then
n = 1
m = m & t
End If
End If
Next i
Text2.Text = m
End Sub