小弟需要对一个被定义为double的有两位小数的计算结果按条件进行取舍：
1. 当小数部分<=25时，将被舍去，结果保留一位小数，例如：19.12--------〉19.0；
2. 当小数部分〉25且<=75时，将被取值为5，结果保留一位小数，例如：24.46----------〉24.5
3. 当小数部分〉75时，将进位+1，结果保留一位小数，例如：30.89-------->31.0


请问如何才能实现以上条件，希望哪位好心的高手指点一下，不胜感激！！！

只说说思路。
用IF...THEN...语句，或用选择语句。
在此之前要用FORMAT使这个double数格式化。

试试这个：

Option Explicit

Private Sub Command1_Click()
    Text2 = Cult
   
End Sub

Public Function Cult() As Double
Dim V1 As Double
Dim V2 As Double
Dim Temp As Double
Dim Temp1 As Double

    V1 = Val(Text1)
    V2 = Fix(V1)
   
    Temp = V1 - V2
    Temp = Temp * 100
   
    If Temp <= 25 Then
        Temp1 = 25
    ElseIf Temp > 25 And Temp <= 75 Then
        Temp1 = 50
        
    Else
        Temp1 = 100
   
    End If
   
    Cult = V2 + Temp1 / 100

End Function

谢谢帮助，但按照你的代码运行后，第1和3条件的结果都没法保留1位小数，请问如何才能实现？

你将结果格式化处理一下就ok了。看来这口饭非要我嚼烂后喂到你嘴里不可。好吧，好人做到底，送佛送到西天。
你将“Text2 = Cult”改为“Text2 = Format$(Cult, "0.0#########")”就行了。赶紧试去吧！看来你的基础太差了，加油啊，朋友！