vb初学者，老师布置的作业不会做，网上搜不到特来求助

生成一个随机数：n=int（rnd*101）+100
用Function写一个N！
Private Function jc（N As integer） as Long
if n= 0 or n=1 then
JC=1 :exit function
end if
jc(n)=n*jc(n-1)
End Function
n取n-1、n、n+1 进行调用，楼主编写

分成两部分：第一部分：编写计算阶乘的函数。第二部分：第一步，生成随机数
使用int(rnd * 差值+1)+基值；第二步，调用阶乘函数

然而阶乘的数值是很大的，171的阶乘就已经超出Double的上限了，所以这题并不合理

字符串处理

这道题应该先实现一个基于字符串的整数乘法。

n! = n * (n - 1)!
(n+1)! = (n+1)*n!
所以计算 (n - 1)! + n! + (n+1)!
= (n-1)! + n*(n-1)! + (n+1)*n*(n-1)!
=(1+ n + n^2+n) * (n - 1)!
=(n^2+2n+1)*(n-1)!
=(n+1)^2*(n-1)!
接下来就是实现 n! 的大数算法，可以基于字符串进行大整数乘法计算。
这才是挑战高的地方。但是你如果静下心来，也不是那么复杂。毕竟，你试试自己列竖式计算两个大数的乘法，就会发现步骤其实并不多。

大数计算
```vb
Function MultiplyBigIntegers(ByVal strNum1 As String, ByVal strNum2 As String) As String
' Pad shorter string with zeros
If Len(strNum1) < Len(strNum2) Then strNum1 = String(Len(strNum2) - Len(strNum1), "0") & strNum1
If Len(strNum2) < Len(strNum1) Then strNum2 = String(Len(strNum1) - Len(strNum2), "0") & strNum2
Dim result As String
Dim carry As Integer
' Iterate through digits
For i = Len(strNum2) - 1 To 0 Step -1
Dim temp As String
carry = 0
For j = Len(strNum1) - 1 To 0 Step -1
Dim product As Integer
product = CInt(Mid(strNum1, j + 1, 1)) * CInt(Mid(strNum2, i + 1, 1)) + carry
carry = product \ 10 ' Integer division for carry
temp = CStr(product Mod 10) & temp ' Remainder for current digit
Next j
If carry > 0 Then temp = CStr(carry) & temp
result = String(Len(strNum2) - i - 1, "0") & temp + result
Next i
' Remove leading zeros
Do While Left(result, 1) = "0" And Len(result) > 1
result = Mid(result, 2)
Loop
MultiplyBigIntegers = result
End Function```

回复 #(reply,tb.1.edd0c82c.RnFVYgFA04ZCjnEy5YYjBA,sunruisunrui) : 原来AI生成的这么不靠谱。我一直以为AI是到处抄，但是看这个代码真的有智慧在里面了，就像个学生学了之后自己写的。但是这个思路进位处理很困难。以后看代码不能看新的了。