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

@айдарик · Регистрация: 24.10.2013

Студворк — интернет-сервис помощи студентам

Используя ранее созданный проект, выполните форматный вывод значений переменной на форму, в окно TextBox.
PictureBox сделал, но текст бокс не получается. Помогите, пожалуйста!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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

@Alex77755 · 25.10.2013, 03:01

Visual Basic
1
2
3
4
5
Текст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")

Не забудь поставить в редакторе у текстбокса MultiLine = True

@айдарик · 03.11.2013, 02:48 **[ТС]**

Помогите, пожалуйста! Где ошибка?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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

@Апострофф · 03.11.2013, 07:00

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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

SoftIce · 03.11.2013, 07:13

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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

Не по теме:

F5 F5 F5 :)

@The trick · 04.11.2013, 14:07

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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

@айдарик · 14.11.2013, 19:49 **[ТС]**

Помогите, пожалуйста! Записать программу, которая на название фигуры (треугольник, квадрат, ромб, прямоугольник и т.п.) выводит формулу, по которой вычисляется площадь этой фигуры. В программе использовать оператор CASE.

@Alex77755 · 14.11.2013, 22:02

Помогите, пожалуйста! Записать программу

Диктуй! записываю!

@айдарик · 15.11.2013, 09:20 **[ТС]**

Alex77755, не выводит формулу. Пишет - True в PictureBox'е.

Visual Basic
1
2
3
4
5
6
Private Sub Command1_Click()
Picture1.Cls
Picture1.Print (s = a * a)
st = "площадь квадрата"
Label1.Caption = st
End Sub

@Alex77755 · 15.11.2013, 09:35

Выбери нужный:

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

Добавлено через 3 минуты
Саму формулу так:

Visual Basic
1
Picture1.Print "S = a * a"

@айдарик · 15.11.2013, 09:54 **[ТС]**

Alex77755, здесь можно использовать CASE?

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Command1_Click()
Picture1.Cls
Select Case s
Picture1.Print "S =  a * a"
Case st = "площадь квадрата"
Label1.Caption = st
End Select
End Sub

@Alex77755 · 15.11.2013, 10:50

В такм виде нельзя:
после "Select Case s" может идти только "Case"
А вообще опиши чего ты хочешь добиться или какое стоит условие.

SoftIce · 15.11.2013, 17:01

Кинь на форму ComboBox и кнопку..

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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

@айдарик · 15.11.2013, 22:21 **[ТС]**

Alex77755, мне нужно, чтобы программа работала через оператор case.

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Command1_Click()
Picture1.Cls
Select Case s
Picture1.Print "S = *a * a"
Case st = "площадь квадрата"
Label1.Caption = st
End Select
End Sub

@айдарик · 25.11.2013, 21:42 **[ТС]**

Помогите, пожалуйста. Нужно использовать для организации циклов конструкцию Do...Loop.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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

@айдарик · 14.12.2013, 23:02 **[ТС]**

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

Для каждого неравенства нужно строить фигуру или в одной все будет правильней?

Visual Basic
1
If n > 10 Or m > 10 Or (n * m) > 25 Then

@Alex77755 · 15.12.2013, 05:13

на 1 If одна фигура

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@айдарик 0 / 0 / 0 Регистрация: 24.10.2013 Сообщений: 8
	14.11.2013, 19:49 [ТС]
	Помогите, пожалуйста! Записать программу, которая на название фигуры (треугольник, квадрат, ромб, прямоугольник и т.п.) выводит формулу, по которой вычисляется площадь этой фигуры. В программе использовать оператор CASE. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	15.11.2013, 10:50
	В такм виде нельзя: после "Select Case s" может идти только "Case" А вообще опиши чего ты хочешь добиться или какое стоит условие. 1

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	15.12.2013, 05:13
	на 1 If одна фигура 1

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

Решение