标签:Dim VB Double FormatNumber result value1 NET 小数 value2
写程序遇到的一个需求:结果值需要保留两位数,再根据结果值判断分成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
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。