一个有趣的VB小程序下载

[weixin_39821051]

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.Text1.Text)
mon = CStr(line_all)
line_all = Len(mon
相关下载链接：//download.csdn.net/download/aiwengaoshou/867473?utm_source=bbsseo