用VB语言编写程序， 点击按钮Button1时随机生成一个四位的正整数并显示在第一个文本框TextBox1中。 点击按钮Button2时将TextBox1中的数按规则转换为另 个数，并分别接不带前导0和带前导0的两种方式分别显示在下面两个文本框TextBox2和TextBox3中。

以下是用VB语言编写程序的代码实现：

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim rand As New Random()
        Dim num As Integer = rand.Next(1000, 10000)
        TextBox1.Text = num.ToString()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim numStr As String = TextBox1.Text
        Dim num As Integer = Integer.Parse(numStr)
        Dim numArr(3) As Integer
        Dim resultArr(3) As Integer
        For i As Integer = 0 To 3
            numArr(i) = num Mod 10
            num \= 10
        Next
        Array.Sort(numArr)
        For i As Integer = 0 To 3
            resultArr(i) = numArr(3 - i)
        Next
        Dim resultStr As String = String.Join("", resultArr)
        TextBox2.Text = resultStr
        TextBox3.Text = resultStr.PadLeft(4, "0"c)
    End Sub
End Class

在程序中，我们使用了Random类来生成一个四位的正整数。在Button2的点击事件中，我们将TextBox1中的数按规则转换为另一个数，并分别接不带前导0和带前导0的两种方式分别显示在下面两个文本框TextBox2和TextBox3中。具体的转换规则是：将TextBox1中的数的每一位从小到大排列，得到一个新的数，然后将这个新数的每一位从高到低排列得到最终结果。我们使用了数组来存储每一位的数字，并使用了Array.Sort方法来对数字进行排序。最后，我们使用String.Join方法将结果拼接成一个字符串，并使用String.PadLeft方法在前面补0，以得到带前导0的结果。