用VB编写一个简单公式程序

界面如上图所示， 其中公式用OLE 控件绘制，将该控件绘制到窗体中，点击仿前右键，插入对象，选择microsoft 公式3 ，即可编辑。代码如下：

Private Sub Command1_Click()

Dim x, n As Integer

Dim p, q As Single

If (Val(Text1.Text) >= 0) And (Val(Text1.Text) >= 0) Then

n = Val(Text1.Text)

x = Val(Text2.Text)

p = x 备颂清/ n

q = f(n) / (f(x) 樱圆* f((n - x))) * p ^ x * (1 - p) ^ (n - x)

Text3.Text = q

End If

End Sub

Function f(n)

  Dim i As Long

  f = 1

  For i = 1 To n

      f = f * i

  Next

End Function

如有其它需要，请继续追问~~~

计算公式：S = 1/2∑i=1(XiYi+1-Xi+1Yi)

核喊明仔心代码如下：

For i = 0 To m - 2

  a = a + p(i).X * p(i + 1).Y - p(i 槐滚+ 1).X * p(i).Y

  if i = m - 2 then 郑汪a = a + p(i + 1).X * p(0).Y - p(0).X * p(i + 1).Y

Next

---