请教用vb.net编写抽签程序的问题

大家好！我大学专业不是计算机，读了个文科。工作后发发觉计算机编程很有趣，也想编些适合自己工作的软件。目前在自学vb.net，但属于很菜的那种

最近想编个抽签的程序，希望的功能是：
1. 通过combobox选择名单列表。目前列表是内嵌的，如果可以链接外部的txt文本文件，修改txt文本文件就可改变程序里参与抽签的名单，那就perfect了。
2. 按“开始”按钮，选中的名单在Textbox文本框里滚动
3. 按“暂停”按钮，抽出一个结果，并将其显示在另一个文本框里

4. 抽签不重复，抽一个少一个。

参考了网上一些前辈的代码，但始终做不出自己想要的效果，只能在这里求助各位大神了，希望能指点迷津

代码如下：

Public Class Form1
    Dim i As Integer
    Dim j As Integer
    'Dim a() As String
    Dim names(), randomnames() As String
    Dim allNames() As String
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If ComboBox1.Text = "" Then
            MsgBox("Please select a class!")
            Form1_Load(0, Nothing)
        Else
            Timer1.Enabled = True
        End If

    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If ComboBox1.Text = "" Then
            MsgBox("Please select a class!")
            Form1_Load(0, Nothing)
        Else
            Dim b() As String = {}
            Dim i, k As Integer
            Timer1.Enabled = False
            For i = 0 To UBound(allNames)
                If TextBox1.Text = allNames(i) Then

                Else
                    ReDim Preserve b(k)
                    b(k) = allNames(i)
                    k = k + 1
                End If
            Next
            ReDim allNames(j - 1)
            'ReDim allNames(j + 1)
            For i = 0 To UBound(b)
                allNames(i) = b(i)
            Next
            j -= 1
            TextBox2.Text = TextBox2.Text & TextBox1.Text & vbCrLf
        End If
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Form1_Load(0, Nothing)
        ComboBox1.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = "已抽出名单:" & vbCrLf
        Timer1.Enabled = False
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Enabled = False
        TextBox1.Text = ""
        names = My.Resources.names_1.Split(New Char() {ControlChars.Lf}, StringSplitOptions.RemoveEmptyEntries)
        randomnames = My.Resources.names_2.Split(New Char() {ControlChars.Lf}, StringSplitOptions.RemoveEmptyEntries)
        Timer1.Interval = 100
        j = 7
        TextBox2.Text = "已抽出名单:" & vbCrLf

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        End
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        TextBox1.Text = ""
        If j = 0 Then Timer1.Enabled = False : Exit Sub
        If ComboBox1.SelectedItem.ToString = "Class 5" Then
            allNames = names
        ElseIf ComboBox1.SelectedItem.ToString = "Class 7" Then
            allNames = randomnames
        Else
            Form1_Load(0, Nothing)
        End If
        i = Int(j * Rnd())
        If i < 0 Then
            'End
            Timer1.Enabled = False
            MsgBox("已抽完")
        Else
            TextBox1.Text = allNames(i)
        End If
    End Sub
End Class

            For i = 0 To UBound(allNames)
                If TextBox1.Text = allNames(i) Then

                Else
                    ReDim Preserve b(k)
                    b(k) = allNames(i)
                    k = k + 1
                End If
            Next
            'ReDim allNames(j - 1)
            'ReDim allNames(j + 1)
            For i = 0 To UBound(b)
                allNames(i) = b(i)
            Next

把ReDim allNames(j - 1)   ReDim allNames(j + 1) 都注释掉看看

可以弃坑了，改C#吧。。vb.net用的人比较少。。

你这里redim allNames有问题，导致下面allNames数组越界了，你的j直接复制为7，确认你资源拆分后数组长度就是7？


        ReDim allNames(j - 1)
            'ReDim allNames(j + 1)
            For i = 0 To UBound(b)
                allNames(i) = b(i)
            Next
            j -= 1

第一次提问，不知道在哪上传附件

感谢帮忙解答的朋友，但暂时还没解决问题，继续等，看看哪位能不能帮我解决下问题

对于第2个问题，我想在Button2的click事件代码里添加：一个判断，思路大概是把TextBox2里的每行名字作为元素建立数组，然后判断每个元素是否和text Box1存在的名字或空格相同，如果相同则弹出msgbox("该名字已被选中，请点击'Start'按钮继续！") ，但不知道代码该怎么写，试了下，不对，呵呵

Dim c() As String = {}
        c = TextBox2.Text.Split(New Char() {ControlChars.Lf}, StringSplitOptions.RemoveEmptyEntries)
        For i = 0 To UBound(c)
            If c(i) = TextBox1.Text Then
                MsgBox("This name has been selected! Please press 'Start' to continue!")
            End If
        Next