Составить программу для постоения таблицы - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д