作业帮 > 综合 > 作业

这个程序为什么算出来不是小数点前的0不见了,就是用什么什么E表示啊,怎么改成显示小数点前的0

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/05/26 18:18:17
这个程序为什么算出来不是小数点前的0不见了,就是用什么什么E表示啊,怎么改成显示小数点前的0
Private Sub Command10_Click()
Text2 = Val(Text1) / 1852
If Val(Text1) < 0 Then
MsgBox "输入的长度必须大于0,请从新输入",vbExclamation,"错误"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
ElseIf Val(Text2) < 0.01 Then
MsgBox "输入的长度换算之后过小系统无法显示,请从新输入",vbExclamation,"抱歉"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End Sub
Val(Text2) = Fomat(Text2,"; 0.00000")这句应该放在哪,或者怎么用format把小数点前的0弄出来,
这个程序为什么算出来不是小数点前的0不见了,就是用什么什么E表示啊,怎么改成显示小数点前的0
放第一句
改为Text2 = Format(Val(Text1) / 1852,"0.00000")
不过你这个程序还有个问题,你应该先判断text1的值,再执行运算,就不浪费资源了.