В заданном одномерном массиве целого типа найти и напечатать те элементы - VB

Формулировка задачи:

В заданном одномерном массиве целого типа найти и напечатать те элементы, у которых последовательность цифр от младшего к старшему разряду является возрастающей, или сообщить, что таких нет. Использовать процедуру определения, является ли последовательность цифр от младшего к старшему разряду является возрастающей. Пожалуйста,помогите сделать.

Решение задачи: «В заданном одномерном массиве целого типа найти и напечатать те элементы»

textual
                            Листинг программы 
                        

                            Private Sub Form_Click()
Dim a(9), i As Integer, s As String
For i = 0 To 9
  a(i) = Int(990 * Rnd) + 10
  If IsAscending(a(i)) Then s = s & " " & a(i)
Next
MsgBox Join(a) & vbCrLf & IIf(s = "", "таких нет", s)
End Sub
 
Function IsAscending(ByVal N) As Boolean
Dim L
L = -1
Do
  If N Mod 10 <= L Then IsAscending = False: Exit Function
  L = N Mod 10
  N = N \ 10
Loop While N
IsAscending = True
End Function
                        

Оцени полезность:

5 голосов , оценка 4.2 из 5

Похожие ответы