Проблемы с выводом результата работы программы - VB

Формулировка задачи:

Входные данные только любое значение X. Есть код программы, всё работает , почти всё устраивает, но... подскажите, если не трудно как вывести те же значения, но чтобы результат не накладывался на исходные данные, а выводился в отдельном окне. Заранее благодарю и заранее извиняюсь за неправильное оформление.
Function f(x As Double) As Double
Select Case x
     Case Is < 0
          f = 0
      Case Is > 2
          f = x - 2
      Case Else
    f = 1
End Select
End Function
 
Private Sub Command1_Click()
Dim x As Double              ‘ значение аргумента функции
Dim y As Double              ‘ результат
Dim found As Boolean     ‘ признак нахождения отрицат. значения функции
For x = –3 To 3 Step 0.2
        y = f(x)
    Print Round(x, 2), Round(y, 5)      ‘вывод значения x, округленного до двух
‘знаков после десятичной точки  и y — округленного до пяти знаков 
Next x
 
found = False
For x = –2 To 2 Step 0.1
     y=f(x)
     If y < 0 Then
        found = True
        Print "Самая левая точка с отриц. значением функции ", Round(x, 1), y 
        Exit For
     End If
Next x
If Not found Then Print "Нет точки с отрицательным значением функции"
End Sub

Код к задаче: «Проблемы с выводом результата работы программы - VB»

textual
found = False:st=""
For x = –2 To 2 Step 0.1
y=f(x)
If y < 0 Then
found = True
st= "Самая левая точка с отриц. значением функции "  &  Round(x, 1) & y 
Exit For
End If
Next x
If Not found Then st= "Нет точки с отрицательным значением функции"
msgbox st
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

10   голосов, оценка 4.500 из 5


СДЕЛАЙТЕ РЕПОСТ