Помогите решить задачу с помощью бейсика Для х=3, 11, 19, 27...(всего 73 значения х )...

Question

Помогите решить задачу с помощью бейсика Для х=3, 11, 19, 27...(всего 73 значения х ) вычислить и напечатать y = sinx + 1

Comments

могу на Паскале написать

Answer 1

VB у меня нет, но сделал на VBA. Разницы почти нет, только 73 значения в MessageBox не влазят, потому значения нужно в TextBox выводить (или что там есть в VB), чтобы с прокруткой было

Sub prorg()Dim y As DoubleDim x As IntegerDim str As Stringx = 3str = ""For i = 1 To 73    y = Sin(x) + 1    str = str + "x=" + CStr(x) + ", y=" + CStr(y) + vbCrLf    x = x + 8Next iMsgBox (str)End Sub

Comments

Мне немного непонятно это выражение. Я не большой знаток бейсиков
str = str + "x=" + CStr(x) + ", y=" + CStr(y) + vbCrLf 

---

построчно формируем вывод для каждого значения х: строка = строка (что "накопили" ранее) + символы "х=" + перевод числа в строку (х - число, его нужно снача преобразовать в строку) + строка ", y=" + перевод значения Y в строку + символ перехода на новую строчку (чтобы в 1 строке было 1 значение x и y)

---

Спасибо за помощь