考试就指望你们过了

来源：百度知道 编辑：UC知道 时间：2024/06/21 07:12:14
VB程序设计 s= 1*2*3*...n 求S不大于10000时，最大的n的数值

dim s as integer=1
dim i as integer=1
while s<10000
s=s*i
i=i+1
wend

楼上的容易数据溢出，integer类型的数据不能超过32768，并且i多了个1.
Private Sub Form_Load()
Dim s, i
s = 1
i = 1
Do While s < 10000
i = i + 1
s = s * i
Loop
Label1.Caption = "n的最大值为：" & i - 1
End Sub