Предмет: Информатика,
автор: Aedvars
Даю 99 баллов , в чем ошибка ?????это должен быть калькулятор , исправьте пожалуйста , или подскажите другую программу !
Приложения:
Ответы
Автор ответа:
0
Под рукой был только VisualStudio 2008 Express Edition. Из кода видно, что вы используете Visual Basic. Создал в конструкторе форму, расположил на форме 3 textbox и 5 button. Заполнил процедуры - обработчики события click для каждой кнопки как в вашем коде. Запустил и все работает. Код почти не отличается от вашего.
Может быть вы ввели код а на форме не расположили нужные объекты.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = "0"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Val(TextBox2.Text) <> 0 Then TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
End Sub
End Class
Может быть вы ввели код а на форме не расположили нужные объекты.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = "0"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Val(TextBox2.Text) <> 0 Then TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
End Sub
End Class
Приложения:
Похожие вопросы
Предмет: Математика,
автор: kakosik92
Предмет: Математика,
автор: jibekgirl007
Предмет: Математика,
автор: Аноним
Предмет: Геометрия,
автор: x610
Предмет: Биология,
автор: nikolaevigor