программки

sub Program1 ()
Dim n, s, dl As Integer
Dim sr As Double
n = Val(inputbox())
s = 0
sr = 0
dl = 1
For i = 1 To n
x = Val(inputbox())
If (x > 0) and (x < 10) Then s = s + x
If (x < 0) Then sr = (sr + x)/dl: dl = dl + 1
Next
If sr > 0 Then MsgBox("sr="+Str(sr)) Else MsgBox("Отрицательных чисел нет")
MsgBox("sr="+Str(sr))
End Sub


sub Progam2 ()
Dim n, x, y As Integer
n = Val(inputbox())
x = Val(inputbox())
y = Val(inputbox())
MsgBox(Str(x))
MsgBox(Str(y))

For i = 3 To n
s = x + y
MsgBox(Str(s))
x = y
y = s
Next
End Sub



sub program3 ()
Dim x, y As Integer
x = Val(inputbox())
y = 1
For i = 1 to x
If x Mod y = 0 Then MsgBox ("y=", Str(y)) Else y = y + 1
Next
End Sub


Dim x, y, n, s As Integer
x = Val(inputbox("x="))
y = Val(inputbox("y="))
s = x * y
For i = 1 to Step 1
If (i Mod y = 0) And (i Mod x = 0) Then MsgBox("НОК =", Str(i)): Exit For
Next
End