Excel: увеличивать значение переменной в цикле

@dantek · Регистрация: 22.07.2017

Добрый день всем!
Помогите нужна помощь по написании программы в basic.
Суть такая есть две переменные, допустим X и deltaX
Мне Нужно что бы в программе X запоминал своё текущие значение и в следующей итерации все время прибавлял deltaX и т д ,
Вот примерно так:
X 20 20,22 20,67
deltaX 0 0,22 0,45

Помогите пожалуйста!!!

@Sasha_Smirnov · 22.07.2017, 17:07

Не ясна цель исследования, но для начала покрутите пока вот это:

Visual Basic

Sub текущие_x()
Dim X, deltaX(), mаssivX()
Dim i As Long 'счётчик значений mаssivX
X = 20
deltaX = Array(0, 0.22, 0.45) 'здесь через запятую все deltaX
    
    While i <= UBound(deltaX) 'пока не прибавим все deltaX
        ReDim Preserve mаssivX(0 To i) 'это массив для X
        mаssivX(i) = X + deltaX(i)
        i = i + 1
    Wend
    
MsgBox Join(mаssivX) 'показ полученных значений
End Sub

@dantek · 22.07.2017, 23:56 **[ТС]**

Поясню немного понятнее.
Цель: Есть численный массив большой в экселе . я меняю размер массива как удобно мне.
Предположим сейчас размер массива от 0 до 200 , то есть 200 значений
В экселе я с задачей справился , теперь забиваю всё в код бейсика и столкнулся с проблемой.
мне нужно что бы исходное значение T (т . е 20) возвращалась , затем deltaT(0,127) ссылаяюсь на T интерполируя её выдавало результат в следующей ячейке, а следующая T прошлое T + deltaT =20,127. дальше вычисления продолжаются вплоть до 200 элемента.
Вот код пробовал написать, только мне нужно что бы он в следующем вычислении прибавлял к T + deltaT, грубо говоря вот так T(1)=T(0) + DeltaT , затем DeltaT ссылается на T(1) вычисляется и получается T(2) и т д 200 раз:

Visual Basic

Public Function GetIcyToxl(dx As Double, iNum As Long) As Variant
'Вычисляет истинную температуру охладителя в каждом сечении
If iNum = GetIcyIn() Then
GetIcyToxl = GetIcyTemp()
ElseIf iNum < GetIcyIn() Then
 GetIcyToxl = 24
End If
 
End Function
 
 
Public Function GetDeltaT(dx As Double, iNum As Long) As Variant
'Вычисляет перепад температуры жидкости между каждым расчётным сечением
If iNum = GetIcyIn() Then
GetDeltaT = 0
End If
b1 = (HeatIevlev_CoordinateAlpha(GetXBySec(GetICyChisloSech(), GetIcyNomerCritici(), iNum), GetAlphaKam(), GetIcyTempStenka()) + HeatIevlev_CoordinateAlpha(GetXBySec(GetICyChisloSech(), GetIcyNomerCritici(), iNum - 1), GetAlphaKam(), GetIcyTempStenka()))
b2 = 0.5 * b1 * GetSbok(dx, iNum)
b3 = b2 / (GetIcymassflow() * LinierGearMain(Range("TDH_CP"), GetIcyToxl(dx, iNum + 1), GetIcyP(dx)))
If iNum < GetIcyIn() Then
GetDeltaT = b3
End If
с1 = (HeatIevlev_CoordinateAlpha(GetXBySec(GetICyChisloSech(), GetIcyNomerCritici(), iNum), GetAlphaKam(), GetIcyTempStenka()) + HeatIevlev_CoordinateAlpha(GetXBySec(GetICyChisloSech(), GetIcyNomerCritici(), iNum + 1), GetAlphaKam(), GetIcyTempStenka()))
с2 = 0.5 * b1 * GetSbok(dx, iNum)
с3 = b2 / (GetIcymassflow() * LinierGearMain(Range("TDH_CP"), GetIcyToxl(dx, iNum - 1), GetIcyP(dx)))
If iNum > GetIcyIn() Then
GetDeltaT = с3
End If
End Function

@dantek 0 / 0 / 0 Регистрация: 22.07.2017 Сообщений: 2
		1
	Excel: увеличивать значение переменной в цикле 22.07.2017, 15:12. Показов 1819. Ответов 2 Метки нет (Все метки) Добрый день всем! Помогите нужна помощь по написании программы в basic. Суть такая есть две переменные, допустим X и deltaX Мне Нужно что бы в программе X запоминал своё текущие значение и в следующей итерации все время прибавлял deltaX и т д , Вот примерно так: X 20 20,22 20,67 deltaX 0 0,22 0,45 Помогите пожалуйста!!! __________________ Помощь в написании контрольных, курсовых и дипломных работ здесь 0

Опции темы