Циклы For...Next - VB

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

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

Необходимо найти функцию Y зависящую от X. при этом надо вывести значения x1, x2, x3, ... Xкон. Как в цикле задать не X ,а приращение X...такие как X1,X2,X3 и т.д??? Вот то, на чем я остановилась: Private Sub Command1_Click() Dim i As Integer, N As Integer Dim Xнач As Single, Xкон As Single, Y As Single, h As Single Dim a As Single Xнач = Val(Text1.Text) Xкон = Val(Text9.Text) N = Int(Val(Text11.Text)) a = 3 Y = 0 h = (Xкон - Xнач) / N X1 = Xнач + h Text3.Text = X1 X2 = X1 + h Text5.Text = X2 X3 = X2 + h Text7.Text = X3 For i = 1 To N Y = Log(Abs(2 * a * x) / Abs(a - x)) ?????

Решение задачи: «Циклы For...Next»

textual
Листинг программы
For i = 1 To N-1
   Text1(i).Text = CStr(CSng(Text1(i - 1).Text) + h)
Next
' примерно так

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


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

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

6   голосов , оценка 4.333 из 5