none
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.
    • Перемещено Антон В Антонов 21 апреля 2019 г. 7:26 Вопрос по разработке ПО, от: TechNet --> ИТ Курилка
    21 апреля 2019 г. 0:00

Ответы