Вычисление значений.

[segail]

Здравствуйте.
Подскажите в чем ошибка?
Вычисление значений происходит не корректно, или выдается ошибка

              Dim g As Integer, f As Integer, s As Integer
                g = TextBox2
                f = TextBox5
                s = TextBox8	
	        Selection.TypeText Text:=(g + f - s)

[Ципихович Эндрю]

где и какая ошибка???

[segail]

Сообщение от Ципихович Эндрю

где и какая ошибка???

При вычисление выдает ошибку Наприме:
Если в TextBox2 введено значение 11111, в TextBox5 значение 11111, в TextBox8 значение 11111
То суммы при вычисление должна быть 11111, у меня выходит 1111100000

[Казанский]

Походу g + f воспринимается как соединение текстовых строк, получается 1111111111, потом арифметически вычитается 11111, получается 1111100000.
У вас точно объявлены переменные? Попробуйте Long вместо Integer.

Или без промежуточных переменных

Selection.TypeText Text:=val(g) + val(f) - val(s)

[segail]

Сообщение от Казанский

Походу g + f воспринимается как соединение текстовых строк, получается 1111111111, потом арифметически вычитается 11111, получается 1111100000.
У вас точно объявлены переменные? Попробуйте Long вместо Integer.

Или без промежуточных переменных

Selection.TypeText Text:=val(g) + val(f) - val(s)

С Long вычисляется нормально.
Спасибо.

[Ципихович Эндрю]

Сообщение от segail

При вычисление выдает ошибку Наприме:
Если в TextBox2 введено значение 11111, в TextBox5 значение 11111, в TextBox8 значение 11111
То суммы при вычисление должна быть 11111, у меня выходит 1111100000

тогда мир перевернётся

 Dim g As Integer, f As Integer, s As Integer
                g = 11111
                f = 11111
                s = 11111
                ав = g + f - s

Проверяйте
я бы от греха писал не так

Dim g As Integer, f As Integer, s As Integer

______

Dim g As Integer 
Dim  f As Integer
Dim  s As Integer

Никому не навязываю, кода хоть и больше, надёжности больше

[viter.alex]

Ошибка в том, что происходит неявное преобразование строк в целочисленные и наоборот. Ну и кроме того, лучше объявить переменные как Long, чтобы избежать переполнения. Тогда функцию CInt нужно заменить на CLng.

Dim g As Integer, f As Integer, s As Integer
                g = CInt(TextBox2.Text)
                f = CInt(TextBox5.Text)
                s = CInt(TextBox8.Text)
	        Selection.TypeText Text:=CStr(g + f - s)