input "Chislo N:";n 
 dim a(n) 
 for b=0 to n : input a(n) : next b 
 for b=0 to n : print a(n), : next b 
 for b=0 to n/2 : a(n) = a(n) * 2: next b 
 for b=0 to n : print a(n), : next b

Sub Z4() 
 Dim A(6) As Integer 
 For j = 1 To 6 
 A(j) = Cells(1, j) 
 Next j 
 For j = 1 To 3 
 A(j) = A(j) * 2 
 Next j 
 For j = 1 To 6 
 Cells(3, j) = A(j) 
 Next j 
 End Sub

 00 = 0000 
 01 = 0001 
 02 = 0010 
 03 = 0011 
 04 = 0100 
 05 = 0101 
 06 = 0110 
 07 = 0111 
 08 = 1000 
 09 = 1001 
 10 = 1010 
 11 = 1011 
 12 = 1100 
 13 = 1101 
 14 = 1110 
 15 = 1111

 Sub zad11() 
 Dim a(6) As Integer 
 Pol = 0 
 Otr = 0 
 For i = 1 To 6 
 a(i) = Cells(1, i) 
 If a(i) > 0 Then 
 a(i) = 1 
 Pol = Pol + 1 
 Else 
 a(i) = -1 
 Otr = Otr + 1 
 End If 
 Cells(3, i) = a(i) 
 Next i 
 Cells(4, 2) = Pol 
 Cells(5, 2) = Otr 
 End Sub 
  
 Sub zad19() 
 Dim a(5, 5) As Integer 
 For i = 1 To 5 
 For j = 1 To 5 
 a(i, j) = Cells(i, j) 
 Next j 
 Next i 
 PrPol = 1 
 PrOtr = 1 
 For j = 1 To 5 
 For i = 1 To 5 
 If a(i, j) > 0 Then 
 PrPol = PrPol * a(i, j) 
 Else 
 PrOtr = PrOtr * a(i, j) 
 End If 
 Next i 
 Cells(7, j) = PrPol 
 Cells(8, j) = PrOtr 
 PrPol = 1 
 PrOtr = 1 
 Next j 
  
 End Sub 
  
 Sub zad27() 
 Dim a(6) As Integer 
 knol = 0 
 For i = 1 To 6 
 a(i) = Cells(1, i) 
 If a(i) = 0 Then 
 knol = knol + 1 
 Cells(3, i + 1) = i 
 End If 
 Next i 
 If knol > 0 Then 
 Cells(2, 2) = knol 
 Else 
 Cells(2, 2) = "нулевых элементов нет" 
 End If 
 End Sub

 Sub Primer4() 
 Dim a(5, 5) As Single, m As Integer, n As Integer, p As Integer, f as integer 
 For m = 1 To 5 
  For n = 1 To 5 
     a(m, n) = Cells(m, n) 
  Next n 
 Next m 
 povtor: 
 for m = 1 to 5 
  for n = 1 to 5 
     p = a(m, n) 
     if a(m, n) < a(m, n + 1) Then 
      a(m, n) = a(m, n + 1) 
      a(m, n + 1) = p 
      f=1 
     else f=0 
     End If 
  Next n 
 Next m 
  if f=1 then goto povtor 
 For m = 1 To 5 
  For n =1 to 5 
     Cells(m, n) = a(m, n) 
  next n 
 next m 
 End Sub 

 Sub Primer5() 
 n As Integer, m As Integer 
 Dim f As Single, nmin As Integer, min As Single 
 Dim a(5, 5) 
 Dim b(5) 
 //ВБА - Зло!! Ya ne ponimau zachem nuzhno opisyvat' kazhdyu peremennyu =/ 
 //тут нужно написать ввод массива 
 for n = 1 
  For m = 1 To 5 
      b(n) = b(n) + a(m , n) 
  Next i 
 next n 
 povtor: 
 for n=1 to 5 
     if b(n)<b(n+1) then  
      min=b(n) 
      nmin=n 
      f=1 
     else f=0 
     end if 
 next n 
 if f=1 then goto povtor 
  
 Cells(1, 7) = min 
 Cells(1, 6) = nmin 
 End Sub 

     If a(m, n) < a(m, n + 1) Then a(m, n) = a(m, n + 1) : a(m, n + 1) = p : f=1 
      Else f=0  
      End If 

If (выражение) Then (выражение) Else (выражение)

If (выражение) Then 
 (выражение) 
 Else 
 (выражение) 
 End If

57. 
 Sub zad57() 
 Dim a(5, 6) 
 For i = 1 To 5 
 For j = 1 To 6 
 a(i, j) = Cells(i, j) 
 Next j 
 Next i 
 SPol = 0 
 SOtr = 0 
 For j = 1 To 6 
 For i = 1 To 5 
 If a(i, j) > 0 Then 
 SPol = SPol + a(i, j) 
 Else 
 SOtr = SOtr + a(i, j) 
 End If 
 Next i 
 Cells(7, j) = SPol 
 Cells(8, j) = SOtr 
 SPol = 0 
 SOtr = 0 
 Next j 
 End Sub 
  
  
  
 77.  
 Sub zad77() 
 Dim a(5, 6) 
 For i = 1 To 5 
 For j = 1 To 6 
 a(i, j) = Cells(i, j) 
 Next j 
 Next i 
 For j = 1 To 6 
 Cells(7, j) = Cells(1, j) 
 Next j 
 For j = 1 To 6 
 For i = 1 To 5 
 mx = Cells(7, j) 
 If a(i, j) > mx Then 
 Cells(7, j) = Cells(i, j) 
 End If 
 Next i 
 Next j 
 End Sub 
  
 87.  
 Sub zad87() 
 Dim a(5, 6) 
 For i = 1 To 5 
 For j = 1 To 6 
 a(i, j) = Cells(i, j) 
 Next j 
 Next i 
 SPol = 0 
 PrOtr = 1 
 For j = 1 To 6 
 For i = 1 To 5 
 If a(i, j) > 0 Then 
 SPol = SPol + a(i, j) 
 Else 
 PrOtr = PrOtr * a(i, j) 
 End If 
 Next i 
 Cells(7, j) = SPol 
 Cells(8, j) = PrOtr 
 SPol = 0 
 PrOtr = 1 
 Next j 
 End Sub

Sub zadacha73() 
 Dim a(5, 5) 
 For i = 1 To 5 
 For j = 1 To 5 
 a(i, j) = Cells(i, j) 
 Next j 
 Next i 
 For j = 1 To 5 
 Cells(7, j) = Cells(1, j) 
 Next j 
 For j = 1 To 5 
 For i = 1 To 5 
 mn = Cells(7, j) 
 If a(i, j) < mn Then 
 Cells(7, j) = Cells(i, j) 
 End If 
 Next i 
 Next j 
 End Sub 
  
 Sub zadacha83() 
 Dim a(5, 5) As Integer 
 For i = 1 To 5 
 For j = 1 To 5 
 a(i, j) = Cells(i, j) 
 Next j 
 Next i 
 Pol = 0 
 Otr = 0 
 For j = 1 To 5 
 For i = 1 To 5 
 If a(i, j) > 0 Then 
 Pol = Pol + 1 
 Else 
 Otr = Otr + 1 
 End If 
 Next i 
 Cells(7, j) = Pol 
 Cells(8, j) = Otr 
 Pol = 0 
 Otr = 0 
 Next j 
  
 Sub zadacha13() 
 Dim a(6) As Integer 
 For i = 1 To 6 
 a(i) = Cells(1, i) 
 Next i 
 For i = 1 To 6 
 If i Mod 2 = 0 Then 
 Cells(3, i - 1) = a(i) 
 Else 
 Cells(5, i) = a(i) 
  
 End If 
 Next i 
  
  
 End Sub 
  
 Sub zadacha23() 
 Dim a(15) As Integer 
 For i = 1 To 15 
 a(i) = Cells(1, i) 
 Next i 
 For i = 1 To 5 
 Cells(3, i) = a(i) * 2 
 Next i 
 For i = 6 To 10 
 Cells(3, i) = a(i) * 3 
 Next i 
 For i = 11 To 15 
 Cells(3, i) = 0 
 Next i 
 End Sub

Sub zad18() 
 Dim a(10) 
  For i = 1 To 10 
  a(i) = Cells(1, i) 
  If i Mod 3 = 0 Then a(i) = a(i) / 2 
  If i Mod 5 = 0 Then a(i) = a(i) * 3 
  Cells(3, i) = a(i) 
  Next i 
 End Sub 
  
  Sub zad98() 
  Dim a(4, 4) As Integer 
  Dim b(4, 4) As Integer 
  For i = 1 To 4 
  For j = 1 To 4 
  a(i, j) = Cells(i, j) 
  If a(i, j) > 0 Then 
  b(i, j) = 1 
  Else 
  b(i, j) = -1 
  End If 
   Cells(i + 5, j) = b(i, j) 
  Next j 
  Next i 
  End Sub