VB 设计程序。已知多边形的各条边的长度，要计算多边形的面积。

Question

下面是我按照教科书上来的.. 然后我发现Command1中输入的数据无法被Command2执行利用。而且如果不在Command2中加入Dim dat(10)，将其去掉，则提示“子程序或函数未定义” 我又被搞晕了！！求大神啊！
Public Sub area(s, x, y, z)
c = 1 / 2 * (x + y + z)
s = Sqr(c * (c - x) * (c - y) * (c - z))
Dim dat(10)
End Sub

Private Sub Command1_Click()
Dim dat(10)
For j = 1 To 9
la1$ = "第" + Str(j) + "条线"
dat(j) = InputBox(la1$, "边长划线输入")
Next j
End Sub

Private Sub Command2_Click()
Dim dat(10)
a = dat(1): b = dat(2): c = dat(3)
Call area(s, a, b, c)
tota = 0
For j = 1 To 4 - 1
tota = s + tota
a = c: b = dat(j * 2 + 2): c = dat(j * 2 + 3)
area s, a, b, c
Next j
Picture1.FontName = "方正喵呜体"
Picture1.FontSize = 20
Picture1.Print "多边型面积=" & tota
End Sub

Answer 1

建议看仔细，这明显是function和sub的例题。你第一行就不对