Вывод результатов на пользовательскую форму - VB

Узнай цену своей работы

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

Народ, помогите пожалуйста, как вывести ответ на пользовательскую форму, а не в окно MsgBox??
Листинг программы
  1. Private Sub CommandButton1_Click()
  2. Dim X As Double
  3. Dim Y As Double
  4. Dim X0 As Double
  5. Dim Y0 As Double
  6. Dim X1 As Double
  7. Dim Y1 As Double
  8. Dim Step As Double
  9. Dim k1 As Double
  10. Dim k2 As Double
  11. Dim k3 As Double
  12. Dim k4 As Double
  13. Do
  14. Answ$ = InputBox("Введите значение шага h")
  15. If Answ$ = "" Then Exit Sub
  16. If Not IsNumeric(Answ$) Then
  17. MsgBox "Нечисловой ввод! Повторите."
  18. Else
  19. Step = CDbl(Answ$)
  20. If Step <= 0 Or Step > 1 Then
  21. MsgBox ("Шаг не может быть больше единицы, равен нулю или быть отрицательным. Повторите.")
  22. Else
  23. Exit Do
  24. End If
  25. End If
  26. Loop
  27. X0 = 0
  28. X1 = 1
  29. Y0 = 0
  30. For X = X0 To X1 Step Step
  31. k1 = Step * F1(X, Y)
  32. k2 = Step * F1(X + Step / 2, Y + k1 / 2)
  33. k3 = Step * F1(X + Step / 2, Y + k2 / 2)
  34. k4 = Step * F1(X + Step, Y + k3)
  35. Y1 = (k1 + 2 * k2 + 2 * k3 + k4) / 6
  36. MsgBox "X =" + Format$(X, "# ### ##0.000") + "Y = " + Format$(Y, "# ### ##0.000")
  37. Y = Y1
  38. Next X
  39. End Sub
  40. Function F1(X As Double, Y As Double) As Double
  41. F1 = (1 / 3 * Sin(2 * X)) - (Y * Cos(3 * X))
  42. End Function

Решение задачи: «Вывод результатов на пользовательскую форму»

textual
Листинг программы
  1. Private Sub Form_Activate()
  2.     Print "Привет народ )"
  3.     Print
  4.     Print "Здесь можно вывести сообщение например 2 + 2 = " & 2 + 2
  5. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.533 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы