VB 向上保留一位小数编写一个VB 程序,要求最终运算结果,VAL(Label)和TEXT的数值向上保留一位小数,比如123.1111,那么最终运算的结果为123.2,如果是整数的话,则为124,重点是向上保留,而不是四舍五
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 23:34:19
![VB 向上保留一位小数编写一个VB 程序,要求最终运算结果,VAL(Label)和TEXT的数值向上保留一位小数,比如123.1111,那么最终运算的结果为123.2,如果是整数的话,则为124,重点是向上保留,而不是四舍五](/uploads/image/z/7838078-14-8.jpg?t=VB+%E5%90%91%E4%B8%8A%E4%BF%9D%E7%95%99%E4%B8%80%E4%BD%8D%E5%B0%8F%E6%95%B0%E7%BC%96%E5%86%99%E4%B8%80%E4%B8%AAVB+%E7%A8%8B%E5%BA%8F%2C%E8%A6%81%E6%B1%82%E6%9C%80%E7%BB%88%E8%BF%90%E7%AE%97%E7%BB%93%E6%9E%9C%2CVAL%28Label%29%E5%92%8CTEXT%E7%9A%84%E6%95%B0%E5%80%BC%E5%90%91%E4%B8%8A%E4%BF%9D%E7%95%99%E4%B8%80%E4%BD%8D%E5%B0%8F%E6%95%B0%2C%E6%AF%94%E5%A6%82123.1111%2C%E9%82%A3%E4%B9%88%E6%9C%80%E7%BB%88%E8%BF%90%E7%AE%97%E7%9A%84%E7%BB%93%E6%9E%9C%E4%B8%BA123.2%2C%E5%A6%82%E6%9E%9C%E6%98%AF%E6%95%B4%E6%95%B0%E7%9A%84%E8%AF%9D%2C%E5%88%99%E4%B8%BA124%2C%E9%87%8D%E7%82%B9%E6%98%AF%E5%90%91%E4%B8%8A%E4%BF%9D%E7%95%99%2C%E8%80%8C%E4%B8%8D%E6%98%AF%E5%9B%9B%E8%88%8D%E4%BA%94)
VB 向上保留一位小数编写一个VB 程序,要求最终运算结果,VAL(Label)和TEXT的数值向上保留一位小数,比如123.1111,那么最终运算的结果为123.2,如果是整数的话,则为124,重点是向上保留,而不是四舍五
VB 向上保留一位小数
编写一个VB 程序,要求最终运算结果,VAL(Label)和TEXT的数值向上保留一位小数,比如123.1111,那么最终运算的结果为123.2,如果是整数的话,则为124,重点是向上保留,而不是四舍五入.
如果不重新定义函数,还有其它办法吗?比如EXCEL里面有roundup函数,vb里面有吗?
VB 向上保留一位小数编写一个VB 程序,要求最终运算结果,VAL(Label)和TEXT的数值向上保留一位小数,比如123.1111,那么最终运算的结果为123.2,如果是整数的话,则为124,重点是向上保留,而不是四舍五
VB有Round()函数,但是是四舍五入,你的这个需要编写一个过程或函数:
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 If
ElseIf 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 If
End If
Text2.Text = YY
End Sub
Private Sub Form_Load()
Option1(0).Value = True
End Sub
Private Sub Option1_Click(Index As Integer)
If Option1(0).Value = True Then
AA = "整数"
Else
AA = "小数"
End If
End Sub