калькулятор

[Булатовский Федор]

Я только что начал учить VB. Пытался сделать калькулятор.
Все получилось, кроме значения "плюс". Я записываю его так:
B = A + C, и у меня А + В равняется АВ, то есть 2 + 2 = 22.
Как задать значение плюс, чтобы получалось 4.

Вот пример программы:

Dim A as Double
Dim B as Double
Dim C as Double
Dim D as Double

a = CDbl (TextBox1.text)
b = CDbl (TextBox2.text)
d = Label1.Text

Select Case d
Case "+"
c = a + b

и т.д.

End Select
TextBox3.Text = c
Label2.Text = "="

[Debugger]

Val(a)+Val(B)???

[Viper]

Val(a)+Val(B)???

так у него же есть

a = CDbl (TextBox1.text)
b = CDbl (TextBox2.text)

По приведенному коду должно получаться 4 (казалось бы при первом взгляде, второй взгляд описывается ниже). Где-то в другом месте ошибки.

[uhm]

Dim D as Double
...
d = Label1.Text
...
Select Case d
Case "+"


никогда не выполнится по вполне понятным причинам.
Поменяй на Dim D as String.

[Viper]

И вот это страааано выглядит

Код: Выделить всё

d = Label1.Text

То ли у Label свойство Text появилось, то ли это все-таки TextBox?

А в строке

Код: Выделить всё

d = Label1.Text

если Label1.Text вдруг таки окажется равным "+" произойдет ошибка несовпадения типов.


Выод: автор покажи более корректный код, ибо то что ты показал вообще работать не должно