Private Sub Command1_Click()
К= 0  
Randomize timer
Data1.recodset.movefirst
Num= int ( rnd  *  30 + 1 )
Do while data1.recordset.eof.false
If num=k then
Марка = data1.recordset.fields( 1 ).value
Vmax = data1.recordset.fields ( 2 ).value
End if
Text1.text= марка
Text2.text = vmax
Data1.recordset.movenext
K=k+ 1 
Loop
Data2.recordset.addnew
Data2.recordset.fields( 1 ).value= Val(text3.text)
data1.recordset.fields( 1 ).value= val(text4.text)
data1.recordset.fields( 1 ).value
data1.recordset.update
data1.recordset.movelast
id = data2.recordset.fields( 0 ).value
q =  0 . 2  * 850 
y = rnd
x = log( 1 -y)/q
sum= 0 
for I =  1  to  12 
yi= rnd
sum=sum+yi
next i
otkl =  0 . 2 
mx= 0 . 9  *vmax
v = otkl * (sum- 6 ) +mx
t= 0 
s = 0 
коэф =val(text4.text)
do while t< 90  and v> 0 
jmax= 9 . 8  * коэф 
t=t + 1 
v = v-jmax
s= (v/ 3 . 6 )* 1 
sums = sums +s
image1.move  240  + (sums * 10 )
for  ii =  1  to  10  step  0 . 0001 
d=  d +  0 . 1111 
next ii
data3.recordset.addnew
data3.recordset.fields( 1 ).value= id
data3.recordset.fields( 2 ).value= v
data3.recordset.fields( 3 ).value= t 
data3.recordset.fields( 4 ).value= sums
data3.recordset.update
text5.text= text5.text & “ v= ” & v & “ s=  “ & s & “ t= “ & t & “sums= & sums & chr( 13 ) & chr( 10 )
loop 
end sub

Dim t As Integer, X As Integer, Y As Integer
For t =  1  To  90 
   X = t +  1 
  Y = v
  Picture1.PSet (X, Y)
Next t