用vb编写一个小程序

楼主您好！代码如下李祥：Option ExplicitPrivate Sub Command1_Click()    Dim n(7) As Double    Dim k(3) As Double    k(3) = 1    Dim j As Integer    For j = 1 To 7        n(j) = Val(Controls("Text" & CStr(j)).Text)    Next j    For j = 1 To 7