Информатика Сложить два числа с плавающей запятой

1 число: мантисса 0,11101
Порядок 110
2 число: мантисса 0,10101
Порядок 100

Sub maxZn()'заполнение массива  Dim mas(20)  S = ""  Randomize  For i = 1 To 20    mas(i) = Round(Rnd(100) * 100)    S = S + Str(mas(i)) + ","  Next i'поиск максимального числа и количества его повторений   qty = 1   max = mas(1) 'предполагаем, что максимальное число в первом элементе массива    For i = 2 To 20    If mas(i) = max Then      qty = qty + 1    End If    If mas(i) > max Then      max = mas(i)      qty = 1    End If  Next i     MsgBox "последовательность чисел " + S  MsgBox "максимальное число " + Str(max) + "число повторений " + Str(qty)  End Sub
Sub test()  Call maxZnEnd Sub

 if (N mod 2 <> 0) and (N mod 3 = 0) then

 if ((N >= 345) and (N < 543)) or (N mod 7 = 0) then

 if (N mod 3 = 0) or (N mod 10 = 0) then

 if (N >= 231) and (N < 312) and (N mod 3 <> 0) then

 if (N mod 2 <> 0) and (N div 10 mod 10 <= 5) then

 if (N > 9) and (N < 100) and (N mod 10 = N div 10) then

 if (N mod 10 = 4) and (N div 100 mod 10 > 3) then

 if (N > 9) and (N < 100) and (N div 10 mod 2 <> 0) then

 if (N mod 2 = 0) and (N div 10 mod 10 > 5) then

 if (N > 99) and (N < 1000) and (N div 100 = 8) then

 if (a mod 2 = 0) or (b mod 2 = 0) then

 if (a + b > 56) and (a + b < 145) then

 if (a mod 10 = 6) and (b mod 10 = 6)

 if (a > 0) and (b > 9) and (b < 100) then  

 if (a div 10 mod 10 < 5) or (b div 100 mod 10 > 3) then  

 if (a mod 3 = 0) or (b mod 5 <> 0) then

 if (a > 0) and (b >= 0) then

 if (a > 100) or (b > 100) then  

 if (a mod 8 > 4) and (b mod 12 < 5) then  

 if (a mod 2 <> 0) and (b mod 2 <> 0) then