VB 向上保留一位小数

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/06/02 21:39:18

VB 向上保留一位小数
编写一个VB 程序,要求最终运算结果,VAL(Label)和TEXT的数值向上保留一位小数,比如123.1111,那么最终运算的结果为123.2,如果是整数的话,则为124,重点是向上保留,而不是四舍五入.
如果不重新定义函数,还有其它办法吗?比如EXCEL里面有roundup函数,vb里面有吗?

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 Su

vb中如何设置整数保留小数点后一位小数,小数四舍五入保留两位小数 2.9152保留一位小数 9.95保留一位小数 2.045保留一位小数 excel保留一位小数保留一位小数 7.469保留一位小数 5.95142保留一位小数 7.982保留一位小数保留一位小数是什么意思 26.995保留整数?保留一位小数?保留二位小数? 3.096保留一位小数是多少