Составить программу для постоения таблицы - 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