Вывести все целые числа из диапазона - VBA
Формулировка задачи:
Здравствуйте, нужно вывести все целые числа из диапазона [0, A*sin(x)]. A – заданное целое число, x – заданное действительное число. Сколько не искал в интернете, похожих заданий не нашел. Помогите, пожалуйста
Решение задачи: «Вывести все целые числа из диапазона»
textual
Листинг программы
Sub IntI() Dim Z As Integer, A As Integer, x, B As Integer, I As Integer, J As Integer, S As String A = 5 x = 5 B = A * Sin(x) J = IIf(B < 0, -1, 1) Z = 0 For I = Z To B Step J S = S & I & " " Next MsgBox S End Sub