说明: Private Sub Command1_Click() 'On Error GoTo err Dim line_all As Double Dim jgtemp As String Dim jg As String Dim line_zensu As Integer Dim dot As Integer Dim zensu As Integer Dim mon As String 'If Me.MaskEdBox1.Text "." Then line_all = CDbl(Me.Text <yjjlovezzx> 上传 | 大小:2kb