写程序遇到的一个需求：结果值需要保留两位数，再根据结果值判断分成A、B、C、D四类。

程序部分代码如下：

            Dim result As Double
            Dim result2 As String
            Dim value1 As Double
            Dim value2 As Double
            value1=TextBox1.Text
            value2=TextBox2.Text
            result = FormatNumber((value1) / value2 , 2, vbTrue)
            '上面的2改为几就是保留几位小数'
            If result >= 0 And result <= 0.59 Then
                result2 = "A"
            ElseIf result >= 0.6 And result <= 0.79 Then
                result2 = "B"
            ElseIf result >= 0.8 And result <= 0.99 Then
                result2 = "C"
            ElseIf result >= 1 Then
                result2 = "D"
            End If

总结：

result = FormatNumber((value1) / value2 , 2, vbTrue)是以上的核心代码， 可以根据自己的需要更改，很简单，放心用就好了。

希望可以帮到你~~~(●’◡’●)~~~
喜欢记得给博主三连哦! 你们支持是我最大的动力O(∩_∩)O

标签：Dim,VB,Double,FormatNumber,result,value1,NET,小数,value2
来源： https://blog.csdn.net/m0_49526063/article/details/117565759