ｇｇ０１ - プログラム倉庫

Private Sub Command1_Click()
Dim m1 As Single
Dim m2 As Single
Dim s1 As Single
Dim s2 As Single
Dim cp1 As Single
Dim yp1 As Single
Dim yp2 As Single
Dim c(0 To 10, 0 To 10) As Single
Dim y1(0 To 10, 0 To 10) As Single
Dim y2(0 To 10, 0 To 10) As Single
Dim th1(1 To 10) As Single
Dim th2(1 To 10) As Single
Dim datay(0 To 100) As Single
Dim datac(0 To 100) As Single
Dim i As Single
Dim j As Single
Dim h As Single
Dim n1 As Single
Dim n2 As Single
Dim n3 As Single
Dim num As Single
m1 = 1
m2 = 1
Open "c:/data.txt" For Input As #2
Do Until EOF(2)
Input #2, a3, a4, a5
c(m1, m2) = a3
y1(m1, m2) = a4
y2(m1, m2) = a5
m2 = m2 + 1
If m2 = 11 Then m1 = m1 + 1
If m2 = 11 Then m2 = 1
Loop
Close #2
n = 1
For s1 = 1 To 10
For s2 = 1 To 10
If y2(s1, s2) = 0 Then datac(n) = c(s1, s2)
If y2(s1, s2) = 0 Then datay(n) = y1(s1, s2)
If y2(s1, s2) = 0 Then n = n + 1
Next
Next
num = n - 1
For n = 1 To num - 1
dc = datac(n + 1) - datac(n)
dy = datay(n + 1) - datay(n)
If dy > 0 Then Debug.Print 1 - dc / dy
Next




End Sub