用Format函数,比如通过text输入,转换后在窗体打印： Private Sub Command1_Click() n = Text1.Text t = Format(n,'000.###') Print t End Sub