Помогите решить задачу с помощью бейсика Для х=3, 11, 19, 27...(всего 73 значения х ) вычислить и напечатать y = sinx + 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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
