c语言初学者，请各位大佬帮忙！！！谢谢你！

Question

编写一个程序，求一个最大的正整数N，使N!<5000。
Private Sub Command1_Click()
Dim n As Integer, f As Long
f = 1
n = 1
While

f = f * n
n = n + 1
Wend
Print n-1
End Sub

某人想将手中的一张面值100元的人民币换成5元、1元和0.5元面值的票子50张，且要求每种至少1张。求换法的种数。
Private Sub Form_Click()
Dim i, j, k As Integer, RMBsum As Integer
RMBsum = 0
For i = 1 To 19
For j = 1 To 48
k = 50 - i - j
If Then
RMBsum = RMBsum + 1
Print i; j; k
End If

Next j, i
FontSize = 12: FontBold = True
Print RMBsum
End Sub

Answer 1

#include <stdio.h>
int main()
{
int acc = 1;
int n = 1;
while (acc < 5000)
{
n++;
acc = acc * n;
}
printf("%d", n - 1);
}

6

问题解决的话，请点下采纳