Выдать максимальное число из комбинаций 4 цифр - VB
Формулировка задачи:
Нужно запросить 4 цифры от 1 до 9. Выдать максимальное число из комбинаций этих 4 цифр.Если ввели букву вместо цифры вывести ошибку.
Я не знаю как комбинацию выводить. Может кто нибудь подсказать?
Решение задачи: «Выдать максимальное число из комбинаций 4 цифр»
textual
Листинг программы
Dim n%, n1
Dim a(), max
Dim tm
Private Sub Command1_Click()
n1 = InputBox("n-?", , 5234)
If IsNumeric(n1) Then
ReDim a(n1)
n = 0
Do While n1 > 0
n = n + 1
a(n) = n1 Mod 10
n1 = n1 \ 10
Loop
Print
Me.Cls
max = 0
Call per(0)
MsgBox "max=" & max
Else
MsgBox "Error"
End If
End Sub
Sub per(t)
If t = n Then
c = 0
For i = 1 To n
c = c + a(i) * 10 ^ (i - 1)
Next i
If max < c Then max = c
Print c
Else
For i = t + 1 To n
tm = a(t + 1): a(t + 1) = a(i): a(i) = tm
Call per(t + 1)
tm = a(t + 1): a(t + 1) = a(i): a(i) = tm
Next i
End If
End Sub