vb mod fix 循环数a,b,如果b能被a整除n=fix（a/b）如果b不能被a整除n=fix（a/b）+1用程序怎么实现啊If (L Mod n) 0 Then TextBox1.Text = Fix(L / n) + 1If (L Mod n) = 0 Then TextBox1.Text = Fix(L / n) L=152.9 n=1TextBox1.Text 应

vb mod fix 循环数a,b,如果b能被a整除n=fix（a/b）如果b不能被a整除n=fix（a/b）+1用程序怎么实现啊If (L Mod n) 0 Then TextBox1.Text = Fix(L / n) + 1If (L Mod n) = 0 Then TextBox1.Text = Fix(L / n) L=152.9 n=1TextBox1.Text 应
vb mod fix 循环
数a,b,如果b能被a整除n=fix（a/b）
如果b不能被a整除n=fix（a/b）+1
用程序怎么实现啊
If (L Mod n) 0 Then TextBox1.Text = Fix(L / n) + 1
If (L Mod n) = 0 Then TextBox1.Text = Fix(L / n)
L=152.9 n=1
TextBox1.Text 应该是153怎么是152啊
各位大侠谁知道啊

vb mod fix 循环数a,b,如果b能被a整除n=fix（a/b）如果b不能被a整除n=fix（a/b）+1用程序怎么实现啊If (L Mod n) 0 Then TextBox1.Text = Fix(L / n) + 1If (L Mod n) = 0 Then TextBox1.Text = Fix(L / n) L=152.9 n=1TextBox1.Text 应
调用：n = getRst(a, b)
Function getRst(a As Integer, b As Integer)
If a Mod b = 0 Then
getRst = Fix(a / b)
Else
getRst = Fix(a / b) + 1
End If
End Function