Вывод результатов на пользовательскую форму - VB
Формулировка задачи:
Народ, помогите пожалуйста, как вывести ответ на пользовательскую форму, а не в окно MsgBox??
Листинг программы
- Private Sub CommandButton1_Click()
- Dim X As Double
- Dim Y As Double
- Dim X0 As Double
- Dim Y0 As Double
- Dim X1 As Double
- Dim Y1 As Double
- Dim Step As Double
- Dim k1 As Double
- Dim k2 As Double
- Dim k3 As Double
- Dim k4 As Double
- Do
- Answ$ = InputBox("Введите значение шага h")
- If Answ$ = "" Then Exit Sub
- If Not IsNumeric(Answ$) Then
- MsgBox "Нечисловой ввод! Повторите."
- Else
- Step = CDbl(Answ$)
- If Step <= 0 Or Step > 1 Then
- MsgBox ("Шаг не может быть больше единицы, равен нулю или быть отрицательным. Повторите.")
- Else
- Exit Do
- End If
- End If
- Loop
- X0 = 0
- X1 = 1
- Y0 = 0
- For X = X0 To X1 Step Step
- k1 = Step * F1(X, Y)
- k2 = Step * F1(X + Step / 2, Y + k1 / 2)
- k3 = Step * F1(X + Step / 2, Y + k2 / 2)
- k4 = Step * F1(X + Step, Y + k3)
- Y1 = (k1 + 2 * k2 + 2 * k3 + k4) / 6
- MsgBox "X =" + Format$(X, "# ### ##0.000") + "Y = " + Format$(Y, "# ### ##0.000")
- Y = Y1
- Next X
- End Sub
- Function F1(X As Double, Y As Double) As Double
- F1 = (1 / 3 * Sin(2 * X)) - (Y * Cos(3 * X))
- End Function
Решение задачи: «Вывод результатов на пользовательскую форму»
textual
Листинг программы
- Private Sub Form_Activate()
- Print "Привет народ )"
- Print "Здесь можно вывести сообщение например 2 + 2 = " & 2 + 2
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д