Вывод решения вместо Immediate в textbox (visual basic 6.0) - VB

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

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

программа выводит решение в Immediate а я хочу разместить на форме text1 и что бы решение выводилось туда ,менял код менял не че не получается помогите.вот код проги она работает все норм только поменять нужно вместо вместо Immediate в textbox
Листинг программы 
  1. Option Explicit
  2. Dim a As Double
  3. Dim b As Double
  4. Dim n As Double
  5.  
  6. Function f(x As Double) As Double
  7. f = x * x - 2
  8. End Function
  9.  
  10. Private Sub Command1_Click()
  11. Form1.Scale (-10, 10)-(10, -10)     'Scale Form1
  12.  
  13. Dim x As Double
  14. Dim y As Double
  15.  
  16. x = -10: y = f(x)    'Ustanovka nacala krivoy
  17. PSet (x, y)
  18.  
  19. For x = -10 To 10 Step 0.1  'Izobrajenie krivoy
  20.     y = f(x)
  21.      Form1.Line -(x, y), vbBlue
  22. Next x
  23.  
  24. Form1.Line (-10, 0)-(10, 0) 'gorizontalnaya os
  25. Form1.Line (0, -10)-(0, 10) 'vertikalnaya os
  26.  
  27. Form1.DrawWidth = 3         'Tolshina krivoy
  28. For x = -10 To 10 Step 2        'Koordinatnaya setka
  29.     PSet (x, 0):  Print x
  30. Next x
  31. Form1.DrawWidth = 1
  32. End Sub
  33.  
  34. Private Sub Command2_Click()
  35. Form1.Cls
  36. End Sub
  37.  
  38. Sub PolDel(x As Double, y As Double)
  39. Dim z As Double
  40.     z = (x + y) / 2
  41. If f(z) * f(y) <= 0 Then
  42.     x = z
  43. Else
  44.     y = z
  45. End If
  46. End Sub
  47.  
  48. Private Sub Command3_Click()
  49.     a = Val(InputBox("Vvod A", , 0))
  50.     Form1.Line (a, 0)-(a, f(a)), vbRed
  51.     Debug.Print "a ="; a
  52.     b = Val(InputBox("Vvod B", , 0))
  53.     Form1.Line (b, 0)-(b, f(b)), vbRed
  54.     n = 0
  55.     Debug.Print "b ="; b; "n ="; n
  56. End Sub
  57.  
  58. Private Sub Command4_Click()
  59.     n = n + 1
  60.     PolDel a, b
  61.     Form1.Line (a, 0)-(a, f(a)), vbRed
  62.     Form1.Line (b, 0)-(b, f(b)), vbRed
  63.     Form1.DrawWidth = 4
  64.     Form1.PSet (a, 0)
  65.     Form1.PSet (b, 0)
  66.     Form1.DrawWidth = 1
  67.     Debug.Print "a ="; a
  68.     Debug.Print "b ="; b; "n ="; n
  69. End Sub
  70. Private Sub Command5_Click()
  71. Dim m As Byte
  72. m = InputBox("m=", , 0)
  73. Dim p1, p As Double
  74. Dim q1, q As Double
  75. a = -1: b = 3: n = 0
  76. Do
  77.     n = n + 1
  78.     PolDel a, b
  79.     p = Round(a, m)
  80.     q = Round(b, m)
  81. Loop Until p = q
  82. Debug.Print "p ="; p; "m ="; m; "n = "; n
  83. End Sub
  84.  
  85. Private Sub Form_Load()
  86. Form1.Command1.Caption = "Krivaya"
  87. Form1.Command2.Caption = "Cls"
  88. Form1.Command3.Caption = "Vvod A B"
  89. Form1.Command4.Caption = "PolDel"
  90. Form1.Command5.Caption = "PoldelCycle"
  91. End Sub

Решение задачи: «Вывод решения вместо Immediate в textbox (visual basic 6.0)»

textual
Листинг программы 
  1. Option Explicit
  2. Dim a As Double
  3. Dim b As Double
  4. Dim n As Double
  5.  
  6. Function f(x As Double) As Double
  7. f = x * x - 2
  8. End Function
  9.  
  10. Private Sub Command1_Click()
  11. Form1.Scale (-10, 10)-(10, -10)     'Scale Form1
  12.  
  13. Dim x As Double
  14. Dim y As Double
  15.  
  16. x = -10: y = f(x)    'Ustanovka nacala krivoy
  17. PSet (x, y)
  18.  
  19. For x = -10 To 10 Step 0.1  'Izobrajenie krivoy
  20.     y = f(x)
  21.      Form1.Line -(x, y), vbBlue
  22. Next x
  23.  
  24. Form1.Line (-10, 0)-(10, 0) 'gorizontalnaya os
  25. Form1.Line (0, -10)-(0, 10) 'vertikalnaya os
  26.  
  27. Form1.DrawWidth = 3         'Tolshina krivoy
  28. For x = -10 To 10 Step 2        'Koordinatnaya setka
  29.     PSet (x, 0):  Print x
  30. Next x
  31. Form1.DrawWidth = 1
  32. End Sub
  33.  
  34. Private Sub Command2_Click()
  35. Form1.Cls
  36. End Sub
  37.  
  38. Sub PolDel(x As Double, y As Double)
  39. Dim z As Double
  40.     z = (x + y) / 2
  41. If f(z) * f(y) <= 0 Then
  42.     x = z
  43. Else
  44.     y = z
  45. End If
  46. End Sub
  47.  
  48. Private Sub Command3_Click()
  49.     a = Val(InputBox("Vvod A", , 0))
  50.     Form1.Line (a, 0)-(a, f(a)), vbRed
  51.     Text1.SelText = "a =" & a & vbCrLf
  52.     b = Val(InputBox("Vvod B", , 0))
  53.     Form1.Line (b, 0)-(b, f(b)), vbRed
  54.     n = 0
  55.     Text1.SelText = "b =" & b & vbTab & "n =" & n & vbCrLf
  56. End Sub
  57.  
  58. Private Sub Command4_Click()
  59.     n = n + 1
  60.     PolDel a, b
  61.     Form1.Line (a, 0)-(a, f(a)), vbRed
  62.     Form1.Line (b, 0)-(b, f(b)), vbRed
  63.     Form1.DrawWidth = 4
  64.     Form1.PSet (a, 0)
  65.     Form1.PSet (b, 0)
  66.     Form1.DrawWidth = 1
  67.     Text1.SelText = "a =" & a & vbCrLf
  68.     Text1.SelText = "b =" & b & vbTab & "n =" & n & vbCrLf
  69. End Sub
  70. Private Sub Command5_Click()
  71. Dim m As Byte
  72. m = InputBox("m=", , 0)
  73. Dim p1, p As Double
  74. Dim q1, q As Double
  75. a = -1: b = 3: n = 0
  76. Do
  77.     n = n + 1
  78.     PolDel a, b
  79.     p = Round(a, m)
  80.     q = Round(b, m)
  81. Loop Until p = q
  82. Text1.SelText = "p =" & p & vbTab & "m =" & m & vbTab & "n = " & n & vbCrLf
  83. End Sub
  84.  
  85. Private Sub Form_Load()
  86. Form1.Command1.Caption = "Krivaya"
  87. Form1.Command2.Caption = "Cls"
  88. Form1.Command3.Caption = "Vvod A B"
  89. Form1.Command4.Caption = "PolDel"
  90. Form1.Command5.Caption = "PoldelCycle"
  91. End Sub

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

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

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

11   голосов , оценка 4 из 5

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

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

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