VB 向上保留一位小数编写一个VB 程序,要求最终运算结果,VAL(Label)和TEXT的数值向上

答案:2 悬赏:80 手机版

解决时间 2021-01-27 03:22

提问者网友：最爱你的唇
2021-01-26 21:20

最佳答案

五星知识达人网友：老鼠爱大米
2021-01-26 22:25

VB有Round()函数,但是是四舍五入,你的这个需要编写一个过程或函数： VB 向上保留一位小数编写一个VB 程序,要求最终运算结果,VAL(Label)和TEXT的数值向上保留一位小数,比如123.1111,那么最终运算的结果为123.2,如果是整数的话,则为124,重点是向上保留,而不是四舍五入.如果不重新定义函数,还有其它办法吗?比如EXCEL里面有roundup函数,vb里面有吗?(图1)答案网 www.Zqnf.com 答案网 www.Zqnf.com Dim AA As String '模块级变量Private Sub Command1_Click()Dim XX As Single, YY As Single '过程级变量XX = Val(Text1.Text)If AA = "整数" Then If XX / 1 - XX \ 1 >= 0 Then '判断小数部分是否小于0.5 YY = Round(XX, 0) + 1 ElseIf XX / 1 - XX \ 1 < 0 Then '判断小数部分是否大于0.5 YY = Round(XX, 0) End IfElseIf AA = "小数" Then If XX / 1 - XX \ 1 >= 0 Then '判断小数部分是否小于0.5 YY = Round(XX, 1) + 0.1 ElseIf XX / 1 - XX \ 1 < 0 Then '判断小数部分是否大于0.5 YY = Round(XX, 1) End IfEnd IfText2.Text = YYEnd SubPrivate Sub Form_Load()Option1(0).Value = TrueEnd Sub

全部回答

1楼网友：持酒劝斜阳
2021-01-26 22:49

你的回答很对

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息