samysam
samysam
采纳率100%
2021-03-01 23:18

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

60

大家好!我大学专业不是计算机,读了个文科。工作后发发觉计算机编程很有趣,也想编些适合自己工作的软件。目前在自学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

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享
  • 邀请回答

6条回答

  • soar3033 soar3033 1月前
                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) 都注释掉看看

    点赞 1 评论 复制链接分享
  • showbo GoCityPass新加坡曼谷通票 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
    点赞 1 评论 复制链接分享
  • soar3033 soar3033 1月前

    For i = 0 To UBound(allNames)改成For i = 0 To UBound(allNames-1)  

    假设allNames长度为n,你的0 to UBound(allNames) 相当于从0 to n ,一共n+1个,自然超过数组上界了

    点赞 1 评论 复制链接分享
  • samysam samysam 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

    点赞 评论 复制链接分享
  • samysam samysam 1月前

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

    点赞 评论 复制链接分享
  • samysam samysam 1月前

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

    点赞 评论 复制链接分享