1. .
2. - TextBox ().
3. MSFlexGrid.
4. . .
5. - .
6. Visual Basic.
1. .
2. MSFlexGrid.
3. Components () . Components. Controls ( ) Microsoft FlexGrid control 6.0 (MSFlexGrid), . .
4. .
5. frmMain frmRezalt , .
frmMain:
frmRezalt:
mdlMain
Public X(), Y() As Single '
'
Public N, k As Integer '
Public Sub Vvod() ' Vvod,
'
Randomize ' ,
'
'
For k = 1 To N '
'
X(k) = CInt(Rnd() * 10000 * (-1) ^ k) / 100 '
Y(k) = CInt(Rnd() * 10000 * (-1) ^ k) / 100 ' Y
' CInt() -
' Rnd() - 0 1
' (-1)^k - ( k)
' ( k)
' 10000,
' .
' 100, ..
' -100 + 100
Next '
End Sub ' Vvod
frmMain
Private Sub cmdStart_Click() '
' cmdStart_Click,
'
' cmdStart
N = Val(txt.Text) ' N ,
' txt
ReDim X(N), Y(N) As Single '
' Y N
Call Vvod ' Vvod,
'
'
Me.Hide '
'
Load frmRezalt ' frmRezalt
frmRezalt.Show ' frmRezalt
'
End Sub '
' cmdStart_Click
Private Sub cmdEnd_Click() '
' cmdEnd_Click(),
'
' cmdEnd
End '
'
End Sub '
' cmdEnd_Click()