Не работает калькулятор (программа внизу) - VB

Формулировка задачи:

Private Sub CommandButton1_Click()
Dim a, b As Integer
If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Then
MsgBox "Неверные данные"
 
Exit Sub
End If
a = CDbl(TextBox1)
b = CDbl(TextBox2)
If chekbox1 = True Then TextBox3 = a + b Else TextBox3 = ""
If chekbox2 Then TextBox4 = a - b Else TextBox4 = ""
If chekbox4 Then TextBox6 = a * b Else TextBox6 = ""
If chekbox5 Then TextBox7 = a ^ b Else TextBox7 = ""
If chekbox3 Then
If b <> 0 Then TextBox5 = a / b Else TextBox5 = "Деление на 0"
Else
 
TextBox5 = ""
End If
End Sub
Делала калькуль через Username.Там соотвественно 2 Label, 5 Frame, в них Textbox и checkbox. Ну и комманд батон ВЫЧИСЛИТЬ.Она меня и подвела-не работает. после нажатия на вычислить выдает фразу НЕВЕРНЫЕ ДАННЫЕ. Т.е. моя програмка застопорилась в начале на фразах isnumeric Что я там неверно ВВЕЛА?

Код к задаче: «Не работает калькулятор (программа внизу) - VB»

textual
a = CDbl(Replace(TextBox1.text,",","."))
b = CDbl(Replace(TextBox2.text,",","."))
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 4.250 из 5


СДЕЛАЙТЕ РЕПОСТ