|
资料求助:
在窗体上画一个名称为Text1的文本框,然后编写如下代码: Option Base 1 Private Sub Form Click() Dim arr Dim Start As Integer, Finish As Integer Dim Sum As Integer arr = Array(1,2,3,4) Start = LBound (arr) Finish = UBound (arr) Sun = 0 For i = Start To Finish Sum = Sum arr(i) Next i c = Sum/Finish Text1.Text = c End Sub程序运行后,单击窗体,则在文本框中显示的内容是: |
|