谁用VB帮我算一下这段代码

Dim n As Integer
Dim i As Integer
Dim x As Integer
n=365/365
x=364/365
For i = 1 to 49
n=n*x
x=x-1/365
Next i
Print "P=",1-n
那要怎么改？

谁用VB帮我算一下这段代码 帮我看一下这段VB代码？ (VB)谁帮我翻译一下这段代码?~~~~ vb高手在帮我看一下这段代码．谢谢了． vb下标越界问题,快考试了，请帮我看一下这段代码 帮我翻译一下这段代码 请帮我看看这段vb代码 大家帮我看看这段VB代码！！～急 请VB高手帮我看看这段代码 请大家帮我解释一下这段代码（VB）