Page 146 - 4192

R(i, j) = Sin(i) - j
Else If i = j Then
R(i, j) = 0
Else
R(i, j) = j / (i + j + 1)
End If
Picture1.Print Format(R(i, j), "0.00"); " ";
Next j
Picture1.Print
Next i
End Sub

Private Sub Command2_Click()
End
End Sub

Рисунок 9.6 – Розроблений інтерфейс

та результат виконання програми

145