Visual Basic. В чем ошибка в коде?
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Const G As Single = 9.81
Const Pi As Single = 3.14
Dim V, A, S, L, H As Single
'Ввод начальных значений
V = Val(TextBox1.Text)
A = Val(TextBox2.Text)
S = Val(TextBox3.Text)
H = Val(TextBox4.Text)
'Попадание в стенку
L=S*Math.Tan (A*Pi/180) - (G*Sˆ2) / (2*Vˆ2*_Math.Cos(A*Pi/180)ˆ2)
Label1.Text = L
Select Case L
Case Is < 0
Label2.Text = "Heдoлeт"
Case Is > H
Label2.Text = "Пepeлeт"
Case Else
Label2.Text = "Попадание"
End Select
End Sub
End Class
Выражение (G*Sˆ2) ругается на недопустимый символ ˆ - как исправить?
Задача следующая:
Создать программный код обработчика события, который определяет попадание мячика в стенку. В этом коде: - объявить вещественные константы одинарной точности G (ускорение свободного падения g) и Pi (число π); - объявить вещественные переменные одинарной точности V0 (начальная скорость v0), А (угол бросания α), S (расстояние до стенки s), H (высота стенки h) и L (высота мячика l); - присвоить переменным V0, A, S, H значения, введенные в текстовые поля, с использованием функции преобразования строки в вещественное число Val(); - вычислить высоту мячика L на заданном расстоянии по формуле. - вывести высоту мячика L на надпись Label1; - вывести текстовое сообщение о результатах броска на надпись Label2 с использованием оператора Select Case, в котором в качестве условия проверяется значение переменной L.


Видимо произошла автозамена при копировании ˆ замените на ^ (это разные символы! =)
Или используйте Math.Pow
P.S: Указывайте какой VB в вопросе точнее. Тут понятно, что VB.NET, но не всегда так. Есть н-р старый VB 6ой версии