Даю 99 баллов , в чем ошибка ?????это должен быть калькулятор , исправьте пожалуйста , или подскажите другую программу !
Answers & Comments
vladmor
Под рукой был только 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
Answers & Comments
Может быть вы ввели код а на форме не расположили нужные объекты.
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