如何根据积分计算月亮或星星

dim x,y
y=50
fun=fun-y
do while fun>0
x=x+1
y=y+10
fun=fun-y
loop
print"共有:" & x \4 & "个月亮," & x mod 4 & "个星星"

更多内容：http://www.omisi.cn

添加一个文本框(输入积分数),一个命令按钮
Private Sub Command1_Click()
Dim Score As Long, N As Integer,S as String
Score = Val(Text1.Text)
Do
N = N + 1
Loop While F(N) <= Score
Cls
If (N - 1) \ 4 > 0 Then S= (N - 1) \ 4 & "个月亮"
If (N - 1) Mod 4 > 0 Then S= S & "," & (N - 1) Mod 4 & "个星星"
Msgbox S
End Sub

Function F(N As Integer) As Long
If N = 1 Then
F = 50
Else
F = F(N - 1) + 40 + N * 10
End If
End Function

设：月亮的个数为m 星星的个数为n 积分为s

p=m*4+n

s=p*40+(10+p*10)*p/