Задачи на: график и на создание записей в файле

Open "file.txt" for append as #1
cena=198.50
ves = 150
Print #1, cena & "," & ves
Close

Private Type MyRecord
'объявление пользовательского типа данных
nameProducer As String * 50
'переменная для производителя, строка длиной в 50 символов
price As Double
'переменная для цены
weight As Double
'переменная для количества
End Type
 
Private Sub Command1_Click()
Dim rec As MyRecord, f As Integer, recNum As Integer
f = FreeFile 'свободный номер для файла
rec.nameProducer = Text1.Text
rec.price = Val(Replace(Text2.Text, ",", "."))
'Здесь Replace заменяет все , на .
rec.weight = Val(Replace(Text3.Text, ",", "."))
Open "C:\RecordFile.txt" For Random As f Len = Len(rec)
'открываем файл для чтения и/или записи с произвольным доступом к данным
recNum = LOF(f) \ Len(rec)
'узнаём количество записей в файле
recNum = recNum + 1
'увеличиваем на 1
Put #f, recNum, rec
'добавляем новую запись под номером на единицу больше количества записей
Close f
End Sub
 
Private Sub Command2_Click()
Dim rec As MyRecord, f As Integer, recNum As Integer, i As Integer
Dim recArr() As MyRecord
'массив для записей
f = FreeFile
Open "C:\RecordFile.txt" For Random As f Len = Len(rec)
recNum = LOF(f) \ Len(rec)
For i = 1 To recNum
    Get #f, i, rec
'читаем запись
    ReDim Preserve recArr(1 To i)
'изменяем размеренность массива, чтоб домбавить туда запись
    recArr(i) = rec
'добавляем запись в массив
Next i
Call sort(recArr)
'вызываем процедуру сортировки и передаём в неё в качестве параметра массив
End Sub
'сортировка по цене
Private Sub sort(mArr() As MyRecord)
Dim i As Integer, j As Integer, pos As Integer
Dim temp As MyRecord, min As Double
For i = 1 To UBound(mArr)
    min = mArr(i).price
    'первую запись, конкретно цену, задаём как минимальную
    pos = i
    'запоминаем позицию
    For j = i + 1 To UBound(mArr)
        If mArr(j).price < min Then
            min = mArr(j).price
            pos = j
        End If
    'тут обычное сравнение
    Next j
    temp = mArr(i)
    mArr(i) = mArr(pos)
    mArr(pos) = temp
    'меняем записи местами
    Debug.Print mArr(i).nameProducer & mArr(i).price
    'выводим результат
Next i
End Sub

For i=-25 to 25 step 0.00001
  'рисуете точку с координатами (i, y), где
  'y=a * i ^ 2 + b * i + c
Next i

For i=-25 to 25 step 0.001
  y=a * i ^ 2 + b * i + c
  If y<0.001 Then 'погрешность 
    msgbox "(" & i & ", " & y & ")"
  End if
Next i