Составить программу для постоения таблицы - VB

Узнай цену своей работы

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

Составить программу для постраения таблицы значений а и б для функции б=а/(a+1.23)-2(a+4.3) при изменении а в диапазоне [10,25] с шагом 0.5. В колонках должны быть n,a,b>0,b<0, где n - номер по порядку

Решение задачи: «Составить программу для постоения таблицы»

textual
Листинг программы
Private Sub Form_Load()
z = Array("№", "a", "b>0", "b<0")
With MSFlexGrid1
.SelectionMode = flexSelectionByRow
.Cols = 4
.BackColor = &HC0FFFF
.GridColor = vbBlue
.AllowUserResizing = flexResizeColumns
 
For i = 0 To 3
  .ColAlignment(i) = 3
  .ColWidth(i) = 1700
   .TextMatrix(0, i) = z(i)
Next i
 
.ColWidth(0) = 700
End With
 
End Sub
 
Private Sub Command1_Click()
 MSFlexGrid1.Clear: Form_Load
a1 = 10: a2 = 25: dx = 0.5
 
For a = a1 To a2 Step dx
k = k + 1
 
With MSFlexGrid1
.Rows = k + 1
 
  MSFlexGrid1.TextMatrix(k, 0) = k
   MSFlexGrid1.TextMatrix(k, 1) = Round(a, 2)
      b = a / (a + 1.23) - 2 * (a + 4.3)  ' ((a + 1.23) - 2 * (a + 4.3))
      If b > 0 Then
       MSFlexGrid1.TextMatrix(k, 2) = Round(b, 5)
         Else: If b < 0 Then _
            MSFlexGrid1.TextMatrix(k, 3) = Round(b, 5)
       End If
End With
Next a
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.929 из 5
Похожие ответы