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