Написать программу в VBA (visual basic) 1. Вывести на экран в строку все числа двадцати,…

1.Dim i As IntegerDim msg As StringFor i=20 To 29If i Mod 3=0 Thenmsg=msg & «Число " & i & " делится на 3" & vbCrLfEnd IfNext' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535MsgBox (msg) 2.Dim n As IntegerDim msg As Stringmsg="For n=1 To 100msg=msg & "S=" & CStr ("2*" & n & "+" & n) & "=" &2*n+n) & vbCrLfNextMsgBox (msg) Помог? Жми Лучший