| 投稿日 | ： 2003/09/06(Sat) 22:19 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: 配列の構造体の一部のデーターを渡す |
構造体を配列に簡単に代入できるといいのですが、出来ても下記より複雑になるかも？
Private Sub Command1_Click()
Label1.Caption = Ave(Kikan_Ave(), 1)
End Sub
Private Function Ave(ByRef Data() As Temp, ByVal No As Integer) As Integer
Dim Temp As Long
Dim Cont As Integer
For Cont = 0 To 100
Select Case No
Case 1
Temp = Temp + Data(Cont).Kikan.No1
Case 2
Temp = Temp + Data(Cont).Kikan.No2
Case 3
Temp = Temp + Data(Cont).Kikan.No3
Case 4
Temp = Temp + Data(Cont).Reikyaku.No1
Case 5
Temp = Temp + Data(Cont).Reikyaku.No2
Case 6
Temp = Temp + Data(Cont).Reikyaku.No3
Case 7
Temp = Temp + Data(Cont).Zikuuke.No1
Case 8
Temp = Temp + Data(Cont).Zikuuke.No2
Case 9
Temp = Temp + Data(Cont).Zikuuke.No3
End Select
Next Cont
Ave = Temp / 100
End Function