8. Вывести число в его зеркальном отображении
Option Explicit
Dim a As Single, b As Single
Private Sub Command1_Click()
a = Val(Text1.Text)
If Text1.Text = "" Then MsgBox " Неверные данные "
b = a - 2 * a
Label2.Caption = b
End Sub
9. Вычислить определенный интеграл для функции у= 3х2
Option Explicit
Dim a As Single, b As Single, q As Single
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
If Text1.Text = "" Or Text2.Text = "" Then MsgBox " Неверные данные "
q = 6 * b - 6 * a
Label2.Caption = q
End Sub
10. Вывести на экран таблицы умножения (см. Как в книге)
Option Explicit
Dim a As Integer, b As Integer, p As Integer
Private Sub Command1_Click()
Cls
a = InputBox("Введите число таблицы")
For b = 1 To 10
p = a * b
Print a; " *"; b; "="; p
Next b
End Sub
Private Sub Command2_Click()
End
End Sub
11. Найти длины диагоналей (по 2 сторонам и углу треугольника)
Option Explicit
Dim A As Single, B As Single, C As Single, Pi As Single, q As Single, w As Single, e As Single
Private Sub Command1_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
Pi = 3.1415926
If ((Text1.Text = "") Or (Text2.Text = "") Or (Text3.Text = "")) Then MsgBox ("Неверные данные")
If (C < -180 Or C > 180) Then MsgBox "Неверные данные"
q = Sqr(A * A + B * B - 2 * A * B * Cos(C * Pi / 180))
Label1.Caption = q
w = 180 - C
e = Sqr(A * A + B * B - 2 * A * B * Cos(w * Pi / 180))
Label2.Caption = e
End Sub
12. Определить углы треуольника
Option Explicit
Dim A As Single, B As Single, C As Single, Pi As Single, p As Single, q As Single, w As Single, e As Single, R As Single, x As Single, z As Single, v As Single
Private Sub Command1_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
Pi = 3.1415926
If ((Text1.Text = "") Or (Text2.Text = "") Or (Text3.Text = "")) Then MsgBox ("Неверные данные")
If ((A + B) <= C Or (B + C) <= A Or (A + C) <= B) Then MsgBox ("Треугольник не существует")
x = (-A * A / (2 * B * C) + B / (2 * C) + C / (2 * B))
z = (-B * B / (2 * A * C) + A / (2 * C) + C / (2 * A))
v = (-C * C / (2 * B * A) + B / (2 * A) + A / (2 * B))
q = Atn((-x) / ((1 - Sqr(x * x)))) + 2 * Atn(1)
w = Atn((-z) / ((1 - Sqr(z * z)))) + 2 * Atn(1)
e = Atn((-v) / ((1 - Sqr(v * v)))) + 2 * Atn(1)
Text4.Text = q
Text5.Text = w
Text6.Text = e
End Sub
13. Пятиугольник. Площадь и радиус окружности по стороне.
Option Explicit
Dim a As Single, S As Single, R As Single, Pi As Single
Private Sub Command1_Click()
If Text1.Text = "" Or Text1.Text = "0" Then MsgBox "Неверные данные"
S = Val(Text1.Text) * Val(Text1.Text) / (4) * Sqr(25 + 10 * (Sqr(5)))
Label3.Caption = S
End Sub
Private Sub Command2_Click()
Pi = 3.1415926
If Text1.Text = "" Or Text1.Text = "0" Then MsgBox " Неверные данные "
R = Val(Text1.Text) / (2 * Sin(36 * Pi / 180))
Label2.Caption = R
End Sub
14. По числу н, вычислить какую-то формулу результат:
Option Explicit
Dim n As Integer, i As Integer, p As Single
Private Sub Command1_Click()
n = Val(Text1.Text)
If Text1.Text = "" Then MsgBox "Неверные данные"
p = 0
For i = 1 To n Step 2
p = 1 / (p + i * (i + 2))
Next i
Label2.Caption = p
End Sub