Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
创新互联公司是一家集网站建设,大柴旦企业网站建设,大柴旦品牌网站建设,网站定制,大柴旦网站建设报价,网络营销,网络优化,大柴旦网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
Dim s As Double
Dim n As Integer
s = 2
For n = 1 To 10000
s = s * (2 * n) ^ 2 / (2 * n - 1) / (2 * n + 1)
Next n
MsgBox("圆周率π的值是" s)
End Sub
省略判断textbox为空或非数字
dim z1,z2,a,p,k as float
z1=Float(textboxz1.text)
z2=float(textboxz2.text)
a=float(textboxa.text)
p=float(textboxp.text)
k=float(textboxk.text)
dim Lp as float
Lp=(z1+z2)/2+2*a/p+(k*p)/a
messagebox.show(Lp)
VB的运算顺序是：先乘除、后加减，有括号的先算括号内，有负号的先算负号。
请你比较一下这个运算中x和y的值：
Dim n As Single = 4
Dim x As Single
Dim y As Single
x = n + 1
x = x / n
x = x - 1
x = Math.Sqrt(x)
y = Math.Sqrt((n + 1) / n - 1)
这样就会发现，你的代码中括号的位置错了。
正确的应该是： Math.Sqrt((n + 1) / n - 1)
Module Module1
Private Sub fac(ByVal x As ULong,ByRef y As ULong)
Dim i,a
a = 1
For i = 1 To x
a = a * i
Next i
y = a
End Sub
Sub Main()
Dim m,n,Cmn,c1,c2,c3
Console.WriteLine("m=")
m = Val(Console.ReadLine())
Console.WriteLine("n=")
n = Val(Console.ReadLine())
Call fac(m,c1) :Call fac(n,c2) :Call fac(m - n,c3)
Cmn = c1 / (c2 * c3)
Console.Write("Cmn={0}",Cmn)
End Sub
End Module
