Sub pr()

Dim x, y, z As Single

x = CSng(InputBox("Введите число"))

y = CSng(InputBox("Введите число"))

If x > y Then

z = x - y

Else

z = y - x + 1

End If

MsgBox z

End Sub

10. Даны два действительных числа. Вывести первое число, если оно больше второго, и оба числа, если это не так.

Sub pr()

Dim x, y, z As Single

x = CSng(InputBox("Введите число"))

y = CSng(InputBox("Введите число"))

If x > y Then

MsgBox x

Else

MsgBox x

MsgBox y

End If

End Sub

11. Написать макрос для нахождения суммы первых десяти чисел.

Sub pr()

Dim s, i As Integer

s = 0

For i = 1 To 10 Step 1

s = s + i

Next i

MsgBox s

End Sub

12. Найти сумму четных чисел в интервале от 20 до 100.

Sub pr()

Dim i, s As Integer

s = 0

For i = 20 To 100 Step 1

If i Mod 2 = 0 Then

s = s + i

End If

Next i

MsgBox s

End Sub

13. Найти сумму нечетных чисел в интервале от 30 до 200.

Sub pr()

Dim i, s As Integer

s = 0

For i = 30 To 200 Step 1

If i Mod 2 <> 0 Then

s = s + i

End If

Next i

MsgBox s

End Sub

14. Написать макрос для вычисления n!.

Sub pr()

Dim i, p, n As Integer

p = 1

n = CInt(InputBox("Введите число "))

For i = 1 To т Step 1

p = p * i

Next i

MsgBox s

End Sub

15. Дано натуральное n. Вычислить:

Sub pr()

Dim i As Integer

Dim f As Single

n = InputBox("Введите n")

f = 1

For i = 1 To n Step 1

f = f * (1 + 1 / i ^ 2)

Next i

MsgBox f

End Sub

1. Написать программу в результате выполнения которой подсчитывалась средняя температура за неделю.

Sub pr()

Dim m(6) As Single

Dim i As Integer

Dim s As Single

For i = 0 To 6 Step 1

m(i) = Val(InputBox("input znach"))

Next i

s = 0

For i = 0 To 6 Step 1

s = s + m(i)

Next i

s = s / 7

MsgBox s

End Sub

1. Дан массив из N элементов. Написать программу, выводящую на экран каждый второй элемент.

Sub pr()

Dim a() As Single

Дата добавления: 2015-08-18