Задание 1
Программа
Sub z()
Dim A(8, 3)
Dim x, y, i, b, c, min, k As Integer
Randomize
For x = 1 To 8
For y = 1 To 3
A(x, y) = (Rnd() * (60 - 20 + 1)) + 20
Sheets(3).Cells(x + 2, y + 15) = A(x, y)
Next y
Next x
b = Sheets(3).Cells(3, 18)
d = Sheets(3).Cells(4, 18)
If b < d Then
min = b
Else
min = d
End If
Sheets(2).Cells(3, 17) = b
Sheets(2).Cells(3, 17) = d
c = Sheets(3).Cells(9, 18)
i = Sheets(3).Cells(10, 18)
If c < i Then
k = c
Else
k = i
End If
Sheets(2).Cells(4, 17) = i
Sheets(2).Cells(4, 17) = c
End Sub
Задание 2
Программа
Sub z()
Dim A(50)
Dim B(50)
Dim x, c, i, p1, p2, k, p, z1, z2 As Integer
Randomize
For x = 1 To 50
If i <= 4800 Then
A(x) = CInt(Rnd() * (200 - 190 + 10)) + 190
Sheets(10).Cells(x + 3, 17) = A(x)
Sheets(10).Cells(x + 3, 17).Font.Color = RGB(255, 0, 0)
Sheets(10).Cells(x + 3, 17).Font.Italic = True
B(x) = CInt(Rnd() * (500 - 290 + 10)) + 290
Sheets(10).Cells(x + 3, 18) = B(x)
Sheets(10).Cells(x + 3, 18).Font.Color = RGB(255, 0, 0)
Sheets(10).Cells(x + 3, 18).Font.Italic = True
c = A(x) + B(x)
i = i + c
Sheets(10).Cells(x + 3, 19) = i
Sheets(10).Cells(x + 3, 19).Font.Color = RGB(255, 0, 0)
Sheets(10).Cells(x + 3, 19).Font.Italic = True
p1 = Sheets(10).Cells(x + 3, 17)
p2 = p2 + p1
Sheets(10).Cells(4, 15) = p2
Sheets(10).Cells(4, 15).Font.Color = RGB(255, 0, 0)
Sheets(10).Cells(4, 15).Font.Italic = True
k = i
If k <= 2000 Then
z1 = Sheets(10).Cells(x + 3, 18)
z2 = z2 + z1
Sheets(10).Cells(4, 14) = z2
Sheets(10).Cells(4, 14).Font.Color = RGB(255, 0, 0)
Sheets(10).Cells(4, 14).Font.Italic = True
End If
Else
MsgBox "Массараствора = " & i
Exit For
End If
Next x
End Sub
Задание 3
Программа
Sub x()
Dim B()
Dim x, y, c, i, sum As Integer
Randomize
i = CInt(Rnd() * (67 - 5 + 10)) + 5
Sheets(1).Cells(3, 3) = i
MsgBox "Рандомноечисло = " & i
ReDim B(i)
Open "\\fileserver\студенты\И-16-1\Невидимов_ИЮ\Практика\задания\задание 8\1.txt" For Output As #1
Print #1, i & " " & i
For x = 1 To i
B(i) = CInt(Rnd() * (67 - 5 + 10)) + 5
Sheets(1).Cells(x + 2, 5) = B(i)
Sheets(4).Cells(x + 2, 17) = B(i)
sum = sum + B(i)
Sheets(4).Cells(x + 2, 18) = sum
Print #1, B(i) & " " & B(i)
If x >= 5 And x <= 21 Then
If B(i) > 0 Then
Sheets(1).Cells(x, 5) = " "
End If
End If
Next x
Close #1
End Sub
Задание 4
Программа
Sub x()
Dim A(67)
Dim x, y, c, min, max, n1, n2, k1, k2 As Integer
c = 0
min = 0
max = 0
Randomize
For y = 1 To 67
A(x) = CInt(Rnd() * (67 + 5 + 1)) - 5
Sheets(3).Cells(3, y + 14) = A(x)
Sheets(3).Cells(3, y + 14).Font.Color = RGB(255, 0, 0)
Sheets(3).Cells(3, y + 14).Interior.Color = RGB(230, 184, 183)
Sheets(3).Cells(3, y + 14).Font.Italic = True
If A(x) > max Then
max = A(x)
k1 = x
k2 = y
End If
If A(x) < min Then
min = A(x)
n1 = x
n2 = y
End If
Next y
c = max
max = min
min = c
End Sub
Задание 5
Программа
Sub z()
Dim A()
Dim x, y, b, c, min, max, n, nn, k, kk, l, l1, sum, sum1, sums, sums1 As Integer
sums = 0
sums1 = 0
sum = 0
sum1 = 0
l = InputBox("Введитепервуючастьмассива")
l1 = InputBox("Введите вторую часть массива")
ReDim A(l, l1)
Randomize
For x = 1 To l1
For y = 1 To l
A(l, l1) = CInt(Rnd() * (67 + 5 + 1)) - 5
Sheets(3).Cells(x + 2, y + 14) = A(l, l1)
Sheets(3).Cells(x + 2, y + 14).Font.Color = RGB(255, 0, 0)
Sheets(3).Cells(x + 2, y + 14).Interior.Color = RGB(230, 184, 183)
Sheets(3).Cells(x + 2, y + 14).Font.Italic = True
If A(l, l1) > max Then
max = A(l, l1)
n = x
nn = y
End If
If A(l, l1) < min Then
min = A(l, l1)
k = x
kk = y
End If
Next y
Next x
MsgBox "Минимальоечисло: " & min
MsgBox "Максимальное число: " & max
For n = 1 To l
A(l, l1) = Sheets(3).Cells(n + 2, nn + 14)
sum = sum + A(l, l1)
Next n
MsgBox "Сумма строк с максимальным значением: " & sum
For k = 1 To l1
A(l, l1) = Sheets(3).Cells(k + 2, kk + 14)
sums = sums + A(l, l1)
Next k
MsgBox "Сумма строк с минимальным значением: " & sums
sums = 0
sum = 0
For nn = 1 To l
A(l, l1) = Sheets(3).Cells(n + 2, nn + 14)
sum = sum + A(l, l1)
Next nn
MsgBox "Сумма столбцов с максимальным значением: " & sum
For kk = 1 To l1
A(l, l1) = Sheets(3).Cells(k + 2, kk + 14)
sums = sums + A(l, l1)
Next kk
MsgBox "Сумма столбцов с минимальным значением: " & sums
End Sub
Практическое задание №9
Создать психологический тест на листе Excel.
Описание выполнения задания:
1. Создал inputboxкоторые спрашивают фамилию, имя, возраст, род занятий.
2. Создал 44 вопроса.
3. Создал вывод результата.
4. Вывел на лист Excelв текстовый файл и в htmlфайл.
5. Задание выполнено.