作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/08 01:24:39
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 Su