Решить с бейсика для х=3, 11, 19, 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