C. Составление схемы алгоритма задачи.
V
D. Разработка проекта:
Private Sub Command1_Click()
Dim S As Single, Fi As Single, Q As Single, V As Single
Const Pi As Single = 3.14
S = Val(Text1.Text)
Fi = Val(Text2.Text)
Q = Val(Text3.Text)
Fi = (Fi * 180) / Pi
V = Q / 2 * Sqr(S * Sin(2 * Fi))
Text4.Text = Str(V)
End Sub
Не знайшли потрібну інформацію? Скористайтесь пошуком google:
|
|