主题：老师，有个数值1/6. 怎么才能返回成6

Dim sts = 1/6
Dim sts1 As Double = 1/sts
Dim sts2 As Double = 1\sts
If sts1 <> sts2 Then
sts3 = sts2+1
End If

就是这样。