Выполните форматный вывод значений переменной на форму, в окно TextBox

Private Sub Command1_Click()
X = Text1 / Text2
Picture1.Cls
Picture2.Cls
Picture3.Cls
 
Picture1.Print X
Picture1.Print Format(X, "000.000")
Picture1.Print Format(X, "0.000")
Picture1.Print Format(X, "###.###")
 
Picture1.Print Format(X, "SCIENTIFIC")
 
Picture2.Print "Формат не задан"
Picture2.Print "000.000"
Picture2.Print "0.000"
Picture2.Print "###.###"
 
Picture2.Print "SCIENTIFIC"
 
Picture3.Print "Без форматирования"
Picture3.Print "Отсутствующие цифры заменяются нулями по заданной маске"
Picture3.Print ""
Picture3.Print "При отсутствии цифр ничего не отображается"
Picture3.Print "Используется стандартное экспоненциальное представление числа"
End Sub
 
Private Sub Command2_Click()
End
End Sub

Текст1 = x
Текст1 = Текст1 & vbCrLf & Format(x, "#,000.000")
Текст1 = Текст1 & vbCrLf & Format(x, "0.000")
Текст1 = Текст1 & vbCrLf & Format(x, "#,###.###")
Текст1 = Текст1 & vbCrLf & Format(x, "SCIENTIFIC")

Private Sub Command1_Click()
a = Text1
b = Text2
c = Text3
Picture1.Cls
d = b ^ 2 - 4 * a * c
Picture1.Print "Дискриминант ="; d
Select Case d < 0 Picture1.Print "Решений нет!!!"
Case d = 0
Case X1 = (-b) / (2 * a)
Picture1.Print
Picture1.Print "X1=X2="; Format(X1, "0.000000")
Case Else
X1 = (-b + Sqr(d)) / (2 * a)
X2 = (-b - Sqr(d)) / (2 * a)
Picture1.Print
Picture1.Print "X1="; Format(X1, "0.000000")
Picture1.Print "X2="; Format(X2, "0.000000")
End Select
End Sub

Private Sub Command1_Click()
a = Text1
b = Text2
c = Text3
Picture1.Cls
d = b ^ 2 - 4 * a * c
Picture1.Print "Äèñêðèìèíàíò ="; d
Select Case Sgn(d)
Case -1
  Picture1.Print "Ðåøåíèé íåò!!!"
Case 0
  X1 = (-b) / (2 * a)
  Picture1.Print
  Picture1.Print "X1=X2="; Format(X1, "0.000000")
Case 1
  X1 = (-b + Sqr(d)) / (2 * a)
  X2 = (-b - Sqr(d)) / (2 * a)
  Picture1.Print
  Picture1.Print "X1="; Format(X1, "0.000000")
  Picture1.Print "X2="; Format(X2, "0.000000")
End Select
End Sub

Private Sub Command1_Click()
  a = Text1
  b = Text2
  c = Text3
  Picture1.Cls
  d = b ^ 2 - 4 * a * c
  Picture1.Print "Дискриминант ="; d
  Select Case d
         Case Is < 0
                 Picture1.Print "Решений нет!!!"
         Case Is = 0
                 X1 = (-b) / (2 * a)
                 Picture1.Print
                 Picture1.Print "X1=X2="; Format(X1, "0.000000")
         Case Else
                 X1 = (-b + Sqr(d)) / (2 * a)
                 X2 = (-b - Sqr(d)) / (2 * a)
                 Picture1.Print
                 Picture1.Print "X1="; Format(X1, "0.000000")
                 Picture1.Print "X2="; Format(X2, "0.000000")
    End Select
End Sub

Private Sub Command1_Click()
    Dim a As Double, b As Double, c As Double, d As Double, t1 As Double, t2 As Double, x1 As Double, x2 As Double
    a = CDbl(Text1)
    b = CDbl(Text2)
    c = CDbl(Text3)
    Picture1.Cls
    d = b ^ 2 - 4 * a * c
    Picture1.Print "Дискриминант ="; d
    Select Case d
        Case Is < 0
            t1 = -b / 2 * a
            t2 = Sqr(-d) / 2 * a
            Picture1.Print
            Picture1.Print "X1="; Round(t1, 6) & "+" & IIf(t2 <> 1, Round(t2, 6), vbNullString) & "i"
            Picture1.Print "X2="; Round(t1, 6) & "-" & IIf(t2 <> 1, Round(t2, 6), vbNullString) & "i"
        Case Is = 0
            x1 = -b / (2 * a)
            Picture1.Print
            Picture1.Print "X1=X2="; Round(x1, 4)
        Case Else
            x1 = (-b + Sqr(d)) / (2 * a)
            x2 = (-b - Sqr(d)) / (2 * a)
            Picture1.Print
            Picture1.Print "X1="; Round(x1, 6)
            Picture1.Print "X2="; Round(x2, 6)
    End Select
End Sub

Private Sub Command1_Click()
Picture1.Cls
Picture1.Print (s = a * a)
st = "площадь квадрата"
Label1.Caption = st
End Sub

Picture1.Print a * a
Picture1.Print "площадь квадрата = " & a * a
Picture1.Print "S = " & a * a

Picture1.Print "S = a * a"

Private Sub Command1_Click()
Picture1.Cls
Select Case s
Picture1.Print "S =  a * a"
Case st = "площадь квадрата"
Label1.Caption = st
End Select
End Sub

Option Explicit
Dim Figura, Formula
   
Private Sub Command1_Click()
    Dim s As String, ss As String
    s = "Площадь фигуры """ & Combo1.Text & """ вычисляется по формуле" & vbCrLf & vbCrLf
    Select Case Combo1.Text
        Case Figura(0): ss = Formula(0)
        Case Figura(1): ss = Formula(1)
        Case Figura(2): ss = Formula(2)
        Case Figura(3): ss = Formula(3)
        Case Else: MsgBox "Выберите фигуру": Exit Sub
    End Select
    MsgBox s & ss
End Sub
 
Private Sub Form_Load()
    Dim i As Integer
    Figura = Array("треугольник", "квадрат", "ромб", "прямоугольник")
    Formula = Array("S = 1/2 * a * h", "S = a ^ 2", "S = a * h", "S = a * b")
    For i = 0 To UBound(Figura)
        Combo1.AddItem Figura(i)
    Next i
    Combo1.Text = "Выберите фигуру"
End Sub

Private Sub Command1_Click()
Picture1.Cls
Select Case s
Picture1.Print "S = *a * a"
Case st = "площадь квадрата"
Label1.Caption = st
End Select
End Sub

Private Sub Command1_Click()
Picture1.Cls
Picture2.Cls
For i = Text1 To Text2
Key = False
For j = 2 To i - 1
r = i Mod j
If r = 0 Then Key = thue
Next
If Not Key Then
If i <> 2 Then
k = k + 1
Picture2.Print i;
p = k Mod 19
If p = 0 Then Picture2.Print
End If
End If
Next
Picture1.Print k
End Sub

If n > 10 Or m > 10 Or (n * m) > 25 Then