Н*
Настя **
помогите перевести с v.b 6.0
Dim dblx, dbly As Double, I, N, M, R As Long, S As Double
Private Sub Command1_Click()
M = 0
pic1.Cls
R = Val(txtR)
N = Val(R \ txtN)
pic1.Line (-R, R)-(R + 1, -(R + 1))
pic1.Circle (0, 0), R
For I = 1 To N
If dblx ^ 2 + dbly ^ 2 <= R Then M = M + 1
Next I
txtS.Text = 4 * R ^ 2 * 2 * (M / N)
pic1.Line (-(R + 1), 0)-(R + 1, 0)
For I = -(R + 1) To R + 1
pic1.Print I
Next I
pic1.Line (0, -(R + 1))-(0, R + 1)
For I = -(R + 1) To R + 1
pic1.PSet (0, I)
pic1.Print I
Next I
End Sub