Про Івана Золотоуста 7-10 р

Объяснение:

ШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хАШЛЮ хА

   '     1)Напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b задаются пользователем).    
    
Dim a As Integer
Dim b As Integer  
Dim i As Integer    

a = InputBox("Введите а") 
b = InputBox("Введите b")
   
Dim msg As String      
msg = ""   
     
For i = a To b     
       msg = msg &  3 в степени " & i & " равно " & 3 ^ i & vbCrLf    
 Next    

MsgBox(msg)

2)Найти все делители числа 1204.   

Dim i As Integer       
Dim msg As String   
msg = ""      

For i = 1 To 1204  
          If 1204 Mod i = 0 Then      
                  msg = msg & "Число " & i & " является делителем 1204." & vbCrLf                  End If    
Next 
  MsgBox(msg)