Построение графика функции - VB (60516)

Формулировка задачи:

Всем привет. Есть функция r=h/L h=v*t Значения v и L заданы и они постоянны.(v=50;L=5) Можно ли в Visual Basic построить график этой функции r от t,если значения t=0.05;0.1;0.15;0.2;1;10;100;1000.

Решение задачи: «Построение графика функции»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command2_Click()
    Dim R As Double, t As Double, arrT() As Variant, h As Double, i As Integer, R0 As Double, L As Double, E As Double
    v = 50000
    L = Val(Text3.Text)
    E = Val(Text4.Text)
    R0 = Val(Text5.Text)
 
    arrT = Array(0.05, 0.1, 0.15, 0.2, 1, 10, 100, 1000)
    Picture1.Scale (-100, 11000)-(1100, -1000)
    Picture1.Cls: Picture1.BackColor = vbWhite: Picture1.FillStyle = 0
    Picture1.AutoRedraw = True: Me.AutoRedraw = True
    Picture1.Line (-100, 0)-(1100, 0)
    Picture1.Line (0, -1000)-(0, 11000)
    
    For t = 0.05 To 1000 Step 0.1
            h = v * t * 10 ^ (-6)
            R = ((h / L) * (((1 - E) ^ (-1.5)) - 1) + 1) * R0
            Picture1.PSet (t, R), vbBlue
    Next
    
    For i = 0 To UBound(arrT)
            t = arrT(i)
            h = v * t * 10 ^ (-6)
            R = ((h / L) * (((1 - E) ^ (-1.5)) - 1) + 1) * R0
            Print "  t = " & t, "r = " & R
            Picture1.Circle (t, R), 12, vbRed
    Next
    
End Sub