1.编写程序，生成一个四位的随机整数。要求：新数的十位和个位分别是原来数的个位和百位，新数的千位和百位是原来数的十位和千位。（我只弄好随机数的，用两个label转换。想知道不用两个label的方法）
2.在窗体上加入两个文本框、一个标签以及一个按钮。运行程序时，在第一个文本框中输入一个字符串，在第二个文本框中输入一个字符且该字符包含在第一个文本框中。单击命令按钮后，将从第一个文本框的字符串中删除第二个文本框中的字符，并在标签上显示结果.
3.在名为Form1的窗体上绘制一个名为Text1的文本框。程序运行后，用户在文本框中输入的英文字母一律用大写显示（要求焦点在最右端）.
（Public Class 实验B_10

    Private Sub 实验B_10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.TextChanged
      
        TextBox1.Text = UCase(TextBox1.Text)
        TextBox1.SelectionStart = Len(TextBox1.Text)

    End Sub）
想知道这段代码问题出在哪里。。。


End Class
(是用的代码。。。）

万分感谢，好人一定会有好报！！！

[ 本帖最后由 凉凉的小茶 于 2013-3-26 22:48 编辑 ]

这个不知道对不对，新手路过

Public Class Form1
    Dim a As Array = {0, 0, 0, 0}
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rand = New System.Random()
        If a(0) = 0 And a(1) = 0 And a(2) = 0 And a(3) = 0 Then
            For i = 0 To a.Length - 1
                a(i) = rand.Next(0, 9)
            Next
            Label1.Text = a(0) & a(1) & a(2) & a(3)
        Else
            a = {a(2), a(0), a(3), a(1)}
            Label1.Text = a(0) & a(1) & a(2) & a(3)
        End If
    End Sub
End Class