Вывести все целые числа из диапазона - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
