Помогите написать легкую программу в Visual Basic которая складывала бы 2 числа.

А проще нельзя ???

Dim A As Integer
Dim B As Integer

A=10
B=20

MsgBox A+B

Заготовка:

1. Два текстовых поля с именами Text1 и Text2. У них свойство Enabled поставьте равным False, чтобы их нельзя было изменять.

2. Пятнадцать кнопок с их стандартными номерами. Но предупреждаю !!!У меня они идут не попорядку,

Теперь пишем код:

" Вводим две переменные, для присвоения им значений, которые мы введем на калькуляторе

Dim a As String

Dim b As String

Private Sub Command1_Click()

" При нажа на кнопку с цифрой "1", в текстовом поле появится "1"

Text1.Text = Text1.Text & "1"

End Sub

Private Sub Command11_Click()
" После нажатия на "*", присваиваем переменной "a" число из текстового поля №1
a = Text1.Text
" В маленькое текстовое поле, пишем знак "*"
Text2.Text = "*"

" Отчищаем тексотовое поле №1
Text1.Text = ""

End Sub

Private Sub Command12_Click()
" При нажатии на "=", присваиваем переменной "b" второе значение, но тоже из текстового поля №1
b = Text1.Text

" Смотрим, какой знак в текстовом поле №2 и делаем нужное действие
If Text2.Text = "*"Then

Text1.Text = a * b

End If

If Text2.Text = "/" Then

Text1.Text = a / b

End If

If Text2.Text = "-" Then

Text1.Text = a - b

End If

End Sub

Private Sub Command13_Click()
" Отчищаем все текстовые поля
Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub Command14_Click()
" После нажатия на "-", присваиваем переменной "a" число из текстового поля №1

a = Text1.Text
Text2.Text = "-"

Text1.Text = ""

End Sub

Private Sub Command15_Click()
" После нажатия на "/", присваиваем переменной "a" число из текстового поля №1

a = Text1.Text
Text2.Text = "/"

Text1.Text = ""

End Sub

" Все что ниже можно откоментировать одинаково: при нажатии на кнопку с определенной цифрой, она отабражается в текстовом поле №1
Private Sub Command2_Click()
Text1.Text = Text1.Text & "5"

End Sub

Private Sub Command3_Click()
Text1.Text = Text1.Text & "4"

End Sub

Private Sub Command4_Click()
Text1.Text = Text1.Text & "3"

End Sub

Private Sub Command5_Click()
Text1.Text = Text1.Text & "2"

End Sub

Private Sub Command6_Click()
Text1.Text = Text1.Text & "6"

End Sub

Private Sub Command7_Click()
Text1.Text = Text1.Text & "0"

End Sub

Private Sub Command8_Click()
Text1.Text = Text1.Text & "9"

End Sub

Private Sub Command9_Click()
Text1.Text = Text1.Text & "8"

End Sub

Private Sub Command10_Click()
Text1.Text = Text1.Text & "7"

End Sub

Вот, в принципе, и все.