ｐろ０９０４ - プログラム倉庫

Private Sub Command1_Click()
Dim data(0 To 800, 1 To 90) As Single
Dim m3(8 To 105, 15 To 100) As Single
Dim f3(8 To 105, 15 To 100) As Single
Dim year As Single
Dim n As Single
n = 1
Open "c:/eli/data0904.txt " For Input As #6
Do Until EOF(6)
Input #6, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13, b14, b15, b16, b17, b18, b19, b20, b21, b22, b23, b24, b25, b26, b27, b28, b29, b30, b31, b32, b33, b34, b35, b36, b37, b38, b39
data(n, 1) = a1
data(n, 2) = a2
data(n, 3) = a3
data(n, 4) = a4
data(n, 5) = a5
data(n, 6) = a6
data(n, 7) = a7
data(n, 8) = a8
data(n, 9) = a9
data(n, 10) = a10
data(n, 11) = a11
data(n, 12) = a12
data(n, 13) = a13
data(n, 14) = a14
data(n, 15) = a15
data(n, 16) = a16
data(n, 17) = a17
data(n, 18) = a18
data(n, 19) = a19
data(n, 20) = a20
data(n, 21) = a21
data(n, 22) = a22
data(n, 23) = a23
data(n, 24) = a24
data(n, 25) = a25
data(n, 26) = a26
data(n, 27) = a27
data(n, 28) = a28
data(n, 29) = a29
data(n, 30) = a30
data(n, 31) = a31
data(n, 32) = a32
data(n, 33) = a33
data(n, 34) = a34
data(n, 35) = a35
data(n, 36) = a36
data(n, 37) = a37
data(n, 38) = a38
data(n, 39) = a39
data(n, 40) = a40
data(n, 41) = a41
data(n, 42) = a42
data(n, 43) = a43
data(n, 44) = a44
data(n, 45) = a45
data(n, 46) = a46
data(n, 47) = a47
data(n, 48) = a48
data(n, 49) = a49
data(n, 50) = a50

data(n, 51) = b1
data(n, 52) = b2
data(n, 53) = b3
data(n, 54) = b4
data(n, 55) = b5
data(n, 56) = b6
data(n, 57) = b7
data(n, 58) = b8
data(n, 59) = b9
data(n, 60) = b10
data(n, 61) = b11
data(n, 62) = b12
data(n, 63) = b13
data(n, 64) = b14
data(n, 65) = b15
data(n, 66) = b16
data(n, 67) = b17
data(n, 68) = b18
data(n, 69) = b19
data(n, 70) = b20
data(n, 71) = b21
data(n, 72) = b22
data(n, 73) = b23
data(n, 74) = b24
data(n, 75) = b25
data(n, 76) = b26
data(n, 77) = b27
data(n, 78) = b28
data(n, 79) = b29
data(n, 80) = b30
data(n, 81) = b31
data(n, 82) = b32
data(n, 83) = b33
data(n, 84) = b34
data(n, 85) = b35
data(n, 86) = b36
data(n, 87) = b37
data(n, 88) = b38
data(n, 89) = b39
n = n + 1
Loop
Close #6
maxn = n - 1
For n = 1 To maxn
year = data(n, 2) - 2000
For age = 15 To 100
If data(n, 1) = 1 Then m3(year, age) = data(n, age - 11)
If data(n, 1) = 2 Then f3(year, age) = data(n, age - 11)
Next
Next

Open "c:/eli/0904.txt " For Output As #3
For year = 8 To 105
For age = 15 To 100
Write #3, year, age, m3(year, age), f3(year, age)
Next
Next
Close #3
End Sub