Question

基本上，我需要2个学生编号，并且在每个新条目之后我把学生编号应该+1所以20182年（或3个男性）001将是20182年（或3个男性）002按下按钮后它必须保持+1，但一旦到达第10名注册学生，格式将更改为20182年（如果是男性，则为3）010。

我已经完成了所有操作，但每次使用按钮时都会输入数字+1 所以基本上答案必须是：

Student Number is 20182001
Surname , Name
contact details

但是，除了001, 002,003到010之外我做了所有事情，所以如果有人可以提供帮助我会感激不尽

Public Class Form1
    Public Number As Integer = 2018000
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim strSurname As String
    Dim strFullName As String
    Dim strContact As String
    Dim strGender As String
    Dim x As Integer

    'IF statement'

    If Me.cboGender.SelectedItem = "Female" Then
        Number = 2018300
    Else
    End If
    If Me.cboGender.SelectedItem = "Male" Then
        Number = 2018200
    Else
    End If

    'Finding The Student Number'

    Dim i As Integer = 0

    Do While (i < 1)

        i = i + 1
    Loop

    If i = 201820010 Then
        Number = 201800
    Else
        If i = 201830010 Then
            Number = 201800
            End if
        End If
    'Add Items To ListBox'
    ListBox1.Items.Add("Student number: " & Number & i)
    ListBox1.Items.Add(txtSurname.Text & " , " & txtFullName.Text)
    ListBox1.Items.Add(txtContact.Text)
    ListBox1.Items.Add("============================================")

    End Sub
End Class

Answer 1

不确定您的代码在做什么，但根据您的要求：

Public baseFemale  As Integer = 20182000
Public baseMale As Integer = 20183000
Public autoNumber As Integer = 0

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim Number as Integer;

    autoNumber = autoNumber + 1

    If Me.cboGender.SelectedItem = "Female" Then
        Number = baseFemale + autoNumber
    Else
        Number = baseMale + autoNumber
    Else

    'Add Items To ListBox'
    ListBox1.Items.Add("Student number: " & Number & i)
    ListBox1.Items.Add(txtSurname.Text & " , " & txtFullName.Text)
    ListBox1.Items.Add(txtContact.Text)
    ListBox1.Items.Add("============================================")

End Sub

此外，您可能需要检查超过999的autoNumber - 但我将其作为练习留给您。

每次使用按钮vb.net添加1

1 个答案: