Вывести все целые числа из диапазона - 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
                        

Оцени полезность:

9 голосов , оценка 4.333 из 5

Похожие ответы