5 заданий на Visual Basic

sub main()
dim a as double
dim b as double
dim s as double
dim p as double
a=inputbox("Введите 1 катет")
b=inputbox("Введите 2 катет")
p=2*a+2*b
s=a*b/2
msgbox "Периметр ="+ cstr(p)+"   площадь="+cstr(s)
end sub

Public Sub proc1()
Dim a As Single, b As Single, c As Single, S As Single, P As Single
a = InputBox("a")
b = InputBox("b")
S = (a * b) / 2
c = Sqr(a ^ 2 + b ^ 2)
P = a + b + c
MsgBox ("S=" & S & Chr(13) & "p=" & P)
End Sub
 
 
Public Sub proc2()
Dim arr(1 To 100) As Single, max As Single, min As Single
max = -100
min = 100
For i = 1 To 100
arr(i) = 100 * Rnd - 50
If arr(i) < min Then min = arr(i)
If arr(i) > max Then max = arr(i)
Next i
MsgBox "Max=" & max & Chr(13) & "Min=" & min & Chr(13) & "Diff=" & max - min
End Sub
 
 
Public Sub proc3()
Dim N As Integer, S As Single
N = InputBox("N")
For i = 1 To N - 1
If N Mod i = 0 Then S = S + i
Next i
If S = N Then MsgBox ("Yes") Else MsgBox ("No")
End Sub
 
 
Public Sub proc5()
Dim arr(1 To 10, 1 To 10) As Single, bool As Boolean
For i = 1 To 10
For j = 1 To 10
arr(i, j) = Int(5 * Rnd)
Next j
Next i
bool = False
For i = 1 To 9
For j = i + 1 To 10
If arr(i, j) = arr(j, i) Then bool = True Else bool = False: MsgBox ("no"): Exit Sub
Next j
Next i
MsgBox "Yes"
End Sub

dim mas(99) as double
dim min as double
dim max as double
dim i as integer
dim razn as double
min=mas(0)
max=mas(0)
for i = 0 to 99
mas(i)=rnd()*1000
next i
for i = 0 to 99
if mas(i)>max then max=mas9(i)
if mas(i)<min then min=mas9(i)
next i
razn=max-min
msgbox "разность ="+cstr(razn)