这个程序为什么算出来不是小数点前的0不见了,就是用什么什么E表示啊,怎么改成显示小数点前的0Private Sub Command10_Click()Text2 = Val(Text1) / 1852If Val(Text1) < 0 ThenMsgBox "输入的长度必须大于0,请从新
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/22 22:07:59
![这个程序为什么算出来不是小数点前的0不见了,就是用什么什么E表示啊,怎么改成显示小数点前的0Private Sub Command10_Click()Text2 = Val(Text1) / 1852If Val(Text1) < 0 ThenMsgBox](/uploads/image/z/12776904-0-4.jpg?t=%E8%BF%99%E4%B8%AA%E7%A8%8B%E5%BA%8F%E4%B8%BA%E4%BB%80%E4%B9%88%E7%AE%97%E5%87%BA%E6%9D%A5%E4%B8%8D%E6%98%AF%E5%B0%8F%E6%95%B0%E7%82%B9%E5%89%8D%E7%9A%840%E4%B8%8D%E8%A7%81%E4%BA%86%2C%E5%B0%B1%E6%98%AF%E7%94%A8%E4%BB%80%E4%B9%88%E4%BB%80%E4%B9%88E%E8%A1%A8%E7%A4%BA%E5%95%8A%2C%E6%80%8E%E4%B9%88%E6%94%B9%E6%88%90%E6%98%BE%E7%A4%BA%E5%B0%8F%E6%95%B0%E7%82%B9%E5%89%8D%E7%9A%840Private+Sub+Command10_Click%28%29Text2+%3D+Val%28Text1%29+%2F+1852If+Val%28Text1%29+%3C+0+ThenMsgBox+%22%E8%BE%93%E5%85%A5%E7%9A%84%E9%95%BF%E5%BA%A6%E5%BF%85%E9%A1%BB%E5%A4%A7%E4%BA%8E0%2C%E8%AF%B7%E4%BB%8E%E6%96%B0)
这个程序为什么算出来不是小数点前的0不见了,就是用什么什么E表示啊,怎么改成显示小数点前的0Private Sub Command10_Click()Text2 = Val(Text1) / 1852If Val(Text1) < 0 ThenMsgBox "输入的长度必须大于0,请从新
这个程序为什么算出来不是小数点前的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表示啊,怎么改成显示小数点前的0Private Sub Command10_Click()Text2 = Val(Text1) / 1852If Val(Text1) < 0 ThenMsgBox "输入的长度必须大于0,请从新
放第一句
改为Text2 = Format(Val(Text1) / 1852,"0.00000")
不过你这个程序还有个问题,你应该先判断text1的值,再执行运算,就不浪费资源了.