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
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
