• 2022-06-15
    利用For语句计算阶乘不超过10000的最大整数,并将结果进行输出。 Dim i As Integer, jc As Long jc = 1 For i = 1 To 100 Step 1 jc = jc * i If jc > 10000 Then '阶乘超过10000时结束循环 EndFor End If Next i Print "阶乘不超过10000的最大整数是:"; Print jc / i 以上代码是否正确?