VB代码解释：以下是VB代码，初学者急！

#是类型符，好像是指双精度数（Double）。p=0# 也就是说明p是double的数据类型，赋值为0。
Abs是取绝对值
SQR()是开方

第一次进入循环 t=2，p=sqr（2），s=2*2/sqr(2)
第二次进入循环 t=2*2/sqr(2)，p=sqr(2+sqr(2))，s=2 * 2/sqr(2) * 2/sqr(2+sqr(2))
依次类推就得到∏上面的那个公式了。

f = String(m - 1, "#")
Text2.Text = Format(s, "0." & f)
也就是在Text2显示算出的∏值。如m=4，控制格式为"0.###"。

t = s: p = Sqr(2 + p): s = s * 2 / p 't=s是指把s赋值给t;p = Sqr(2 + p)是指将(p+2)的平方根赋值给p；后面的类推
Loop Until Abs(t - s) < 0.1 ^ m ’循环上面的语句直到（t-s）的绝对值小于0.1的m次方
f = String(m - 1, "#")
Text2.Text = Format(s, "0." & f)
Text1.SetFocus
End Sub