VB程序设计一题帮忙啊

很久没用过VB了,有些格式记不得了,你整理一下,我给个思路.先设S=1,i=1,然后进入循环,第一次的时候i=1,s=1,第二次的时候i=2,s=2,第三次的时候i=3,s=6....当最后一次完的时候 i=i+1,不符合条件,退出循环,将i减去1就是n的值.如下:
s=1
i=1

do while( s<=32767)
s=s*i
i=i+1

n=i-1

Private Sub Form_Click()
Dim i As Integer, s As Long
Do While s < 32767
i = i + 1
s = s + i
Loop

Print i - 1 '因为退出时,i是S大于32767的计数
End Sub