用vb.net的数组控件种制作简易计算器

Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim cal As New calculator
        cal.showButtonArray()

    End Sub
End Class
Class calculator
    Public numbutton(9) As Button '声明数字按钮数组
    Public operabutton(3) As Button '声明运算符按钮数组
    Dim n%, m%
    Dim pane As New Panel
    Public Sub showButtonArray()
        For i% = 1 To 9
            numbutton(i) = New Button
            numbutton(i).Size = New Size(50, 40)
            m = (i - 1) \ 3
            n = (i - 1) Mod 3
            numbutton(i).Location = New Point(20 + 50 * n, 50 + 50 * m)
            numbutton(i).Text = i.ToString
            numbutton(i).Show()
            Me.pane.Controls.Add(numbutton(i))
            pane.Show()

        Next

    End Sub

End Class