Дано 3 Числа. Составить программу которая выводит их в порядке возрастания - VB
Формулировка задачи:
Дано 3 Числа. Составить программу которая выводит их в порядке возрастания.
Решение задачи: «Дано 3 Числа. Составить программу которая выводит их в порядке возрастания»
textual
Листинг программы
Private Sub Command1_Click() a = Mid(Text1.Text, 1, 1) b = Mid(Text1.Text, 2, 1) c = Mid(Text1.Text, 3, 1) If a > b Then If a > c Then big = a Else: sbig = a End If Else If a > c Then sbig = a Else: lbig = a End If End If If b > c Then If big = a Then Text2.Text = c & b & a End If If sbig = a Then Text2.Text = c & a & b End If If lbig = a Then Text2.Text = a & c & b End If Else If big = a Then Text2.Text = b & c & a End If If sbig = a Then Text2.Text = b & a & c End If If lbig = a Then Text2.Text = a & b & c End If End If End Sub Private Sub Text1_Keypress(KeyAscii As Integer) Select Case KeyAscii Case 48 To 57 Case Else KeyAscii = 0 End Select End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д