5. Вычислить сторону описанного шестиугольника
Option Explicit
Dim r As Integer, b As Single, s As Single
Private Sub Command1_Click()
r = Val(Text1.Text)
If ((Text1.Text = "") Or (Text1.Text = "0")) Then MsgBox ("Неверные данные")
b = 2 * r / Sqr(3)
s = 2 * Sqr(3) * r ^ 2
Text2.Text = b
Text3.Text = s
End Sub
6. Вычислить площадь треугольника
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.1415
If ((Text1.Text = "") Or (Text2.Text = "") Or (Text3.Text = "")) Then MsgBox ("Неверные данные")
If ((Text1.Text = "0") Or (Text2.Text = "0")) Then MsgBox ("Неверные данные")
If (C <= -180 Or C >= 180) Then MsgBox "Неверные данные"
e = 0.5 * A * B * Sin(C * Pi / 180)
Text4.Text = e
End Sub
7. Координатами Х, У, З заданы 5 точек в трехмерном пространстве. Определить число точек, попадающих в куб с заданной стороной (куб расположен в области положительных значений Х, У, З при чем его ребра совпадают с осями)
Option Explicit
Dim A() As Single
Dim N, i As Integer, S As Integer, r As Integer, q As Integer, S1 As Integer, S2 As Integer, r1 As Integer, r2 As Integer, r3 As Integer, r4 As Integer, r5 As Integer
Private Sub Command1_Click()
Cls
S = 0
S1 = 0
S2 = 0
r1 = 0
q = Val(Text1.Text)
N = InputBox("Введите размерность пространства")
If N = "" Then MsgBox "Неверные данные"
ReDim A(N)
For i = 1 To N
A(i) = InputBox("Введите " & i & "-юу координату точки")
If 0 > A(i) Or q < A(i) Then
S1 = S1 + 1
Else
S2 = S2 + 0
End If
Next i
S = S1 + S2
If S = 0 Then
r1 = r1 + 1
Else
r1 = r1 + 0
End If
End Sub
Private Sub Command2_Click()
Cls
S = 0
S1 = 0
S2 = 0
r2 = 0
q = Val(Text1.Text)
N = InputBox("Введите размерность пространства")
If N = "" Then MsgBox "Неверные данные"
ReDim A(N)
For i = 1 To N
A(i) = InputBox("Введите " & i & "-юу координату точки")
If 0 > A(i) Or q < A(i) Then
S1 = S1 + 1
Else
S2 = S2 + 0
End If
Next i
S = S1 + S2
If S = 0 Then
r2 = r2 + 1
Else
r2 = r2 + 0
End If
End Sub
Private Sub Command3_Click()
r = r1 + r2 + r3 + r4 + r5
Label1.Caption = r
End Sub
Private Sub Command4_Click()
Cls
S = 0
S1 = 0
S2 = 0
r3 = 0
q = Val(Text1.Text)
N = InputBox("Введите размерность пространства")
If N = "" Then MsgBox "Неверные данные"
ReDim A(N)
For i = 1 To N
A(i) = InputBox("Введите " & i & "-юу координату точки")
If 0 > A(i) Or q < A(i) Then
S1 = S1 + 1
Else
S2 = S2 + 0
End If
Next i
S = S1 + S2
If S = 0 Then
r3 = r3 + 1
Else
r3 = r3 + 0
End If
End Sub
Private Sub Command5_Click()
Cls
S = 0
S1 = 0
S2 = 0
r4 = 0
q = Val(Text1.Text)
N = InputBox("Введите размерность пространства")
If N = "" Then MsgBox "Неверные данные"
ReDim A(N)
For i = 1 To N
A(i) = InputBox("Введите " & i & "-юу координату точки")
If 0 > A(i) Or q < A(i) Then
S1 = S1 + 1
Else
S2 = S2 + 0
End If
Next i
S = S1 + S2
If S = 0 Then
r4 = r4 + 1
Else
r4 = r4 + 0
End If
End Sub
Private Sub Command6_Click()
Cls
S = 0
S1 = 0
S2 = 0
r5 = 0
q = Val(Text1.Text)
N = InputBox("Введите размерность пространства")
If N = "" Then MsgBox "Неверные данные"
ReDim A(N)
For i = 1 To N
A(i) = InputBox("Введите " & i & "-юу координату точки")
If 0 > A(i) Or q < A(i) Then
S1 = S1 + 1
Else
S2 = S2 + 0
End If
Next i
S = S1 + S2
If S = 0 Then
r5 = r5 + 1
Else
r5 = r5 + 0
End If
End Sub