VB编写程序,1*2*3.....*n计算 ,找出能使计算结果大于106的n的值
VB编写程序,1*2*3.....*n计算 ,找出能使计算结果大于106的n的值
日期:2014-04-14 22:30:39 人气:1
Private Sub Command1_Click()
Dim i As Integer, n As Integer, j As Integer
j = 1
For n = 1 To 100
j = j * n
If j > 106 Then
Print n
Exit For
End If
Next
End Sub