四舍五入转换程序(VB6.0源代码编写On Error GoTo cw,Text2.Text = CInt(Text1.Text) Exit Sub cw: Text2.Text = "输入不是数字"