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

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 03:34:08
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