这个程序为什么算出来不是小数点前的0不见了,就是用什么什么E表示啊,怎么改成显示小数点前的0Private Sub Command10_Click()Text2 = Val(Text1) / 1852If Val(Text1) < 0 ThenMsgBox "输入的长度必须大于0,请从新

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/07 06:46:12

这个程序为什么算出来不是小数点前的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的值,再执行运算,就不浪费资源了.

这个程序为什么算出来不是小数点前的0不见了,就是用什么什么E表示啊,怎么改成显示小数点前的0Private Sub Command10_Click()Text2 = Val(Text1) / 1852If Val(Text1) < 0 ThenMsgBox 输入的长度必须大于0,请从新 在VB中,为什么程序实现后只有小数点后的数字,而不出现小数点前的零呢?运行程序后,只能看到小数点后的数. 缓和曲线为什么用计算公式算出来的坐标值和程序算出来的不一样? 如何显示小数点前的“0” 如何在MATLAB中实现小数点后保留2位.不是只要输出形式变为小数点后两位即可,因为后面的计算中还要用到这个保留到小数点后2位的数.下面是我的程序,要求num和den成为保留小数点后2位的数字 求大神帮我看看为什么这个程序计算出的π没有小数点程序的结果是3这让我很郁闷 为什么会是整型,已经将pi定义为了double了怎么还是不行 请问这个结存金额是怎么算出来的?请问正常库存不是等于进-销吗?为什么怎么算也算不对, 小于1的价格在用asp输出的时候,程序自动省略了小数点前面的“0”,怎么显示小数点前的“0”?在修改商城程序的时候,价格通常是XXX.00元 这样的形式显示的,而小于1的价格必然0.98在用asp输出 c++中求圆的面积那个程序中面积area半径r都是double型,pai取3.14159265,r取10.0程序输出结果为314.159为什么不是314.159265啊?为什么只保留了小数点后三位?我的程序是#includeusing namespace std;int main(){doubl n是正整数,m=a*10的-n次方(a是一位整数),M是A、第一个不是0的数字前一共有n个0的小数(包括小数点前的一个0)B、第一个不是0的数字前一共有n个0的小数(不包括小数点前的一个0)C、一个( 这个怎么算出来的? 这个怎么算出来的. 昨夜酗酒前的种种都如涟绮一般消失不见 这句话是怎么说的?是问这句原话是什么 不是翻译谢谢 大家看一下这个公式算出来的结果是什么,为什么? 为什么这个算出来是对的 原理是什么 为什么这个程序会出错?这个错误的原因是什么? 国内小数点是每4位数字一点是吗?国外的是3位数字一点,为什么和国内的不一样呢?这个不是国际统一的吗? 醋酸的pka为什么是4.76这个是算出来的吗?但是,为什么我测的就不是那个 值呢?