投稿日 | : 2003/09/06(Sat) 00:33 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: 配列の構造体の一部のデーターを渡す |
下記ではだめでしょうか?
Private Function Ave(Data() As Temp) As Integer
Dim Temp As Long
Dim Cont As Integer
For Cont = 0 To 100
Temp = Temp + Data(Cont).Kikan.No1
Next Cont
Ave = Temp / 101 '0 To 100 なら 101
End Function
Private Sub Command1_Click()
Label1.Caption = Ave(Kikan_Ave())
End Sub