Ta上传的资源 (0)

Private Sub Command4_Click() Text1.Text = Text1.Text + "." If (InStr(Text1.Text, ".") = 1) Then Text1.Text = "" End If If InStr(Text1.Text, ".") < Len