自动创建部件号，vb.net

Imports System

Public Class PartNumberGenerator
    Private Shared ReadOnly random As New Random()

    Public Shared Function GeneratePartNumber() As String
        Dim prefix As String = "PRT"
        Dim number As Integer = random.Next(1000, 9999)
        Dim suffix As String = DateTime.Now.ToString("yyyyMMddHHmmss")
        Return $"{prefix}-{number}-{suffix}"
    End Function
End Class

Public Class Program
    Public Shared Sub Main()
        Dim partNumber As String = PartNumberGenerator.GeneratePartNumber()
        Console.WriteLine($"Generated Part Number: {partNumber}")
    End Sub
End Class