Дано четырехзначное число. Переставьте местами цифры так, чтобы сначала оказались цифры, меньшие пяти - Visual Basic .NET

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

Сделала, чтоб формировалось рандомом четырехзначное число, а как сделать условие ?

                    Листинг программы
                
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = CInt(Int((9999 * Rnd()) + 1000))
 
    End Sub
End Class

Решение задачи: «Дано четырехзначное число. Переставьте местами цифры так, чтобы сначала оказались цифры, меньшие пяти»

textual
                            Листинг программы 
                        
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Rand As New Random()
        Dim RandNumber As Integer = Rand.Next(1000, 10000)
        TextBox1.Text = CStr(RandNumber)
End Sub

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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