这个程序是一个简单的车牌管理系统，它可以帮助用户添加、删除和查看车牌号码。程序中包含一个输入框、一个列表、一个确定写入按钮、一个删除按钮和一个全部删除按钮。在输入框中输入车牌号码，点击确定写入按钮后，车牌号码会显示在列表中。选中列表中的车牌号码，点击删除按钮后，车牌号码会从列表中消失。点击全部删除按钮后，所有车牌号码都会被删除。同时，点击新建窗口按钮会打开一个新窗口，新窗口可以最大化全屏显示，窗口中显示程序中的列表，列表上方写有大标题“请到业务大厅 6 号窗口取证”。
Option Explicit
' 全局变量，用于存储车牌号码列表
Dim vehicleNumbers() As String
' 初始化车牌号码列表
Sub InitializeVehicleNumbers()
ReDim vehicleNumbers(0)
End Sub
' 添加车牌号码
Sub AddVehicleNumber(vehicleNumber As String)
' 检查车牌号码是否为空
If vehicleNumber = "" Then
Exit Sub
End If
' 将车牌号码添加到列表的末尾
ReDim Preserve vehicleNumbers(UBound(vehicleNumbers) + 1)
vehicleNumbers(UBound(vehicleNumbers)) = vehicleNumber
' 更新列表显示
VehicleList.ListBox.Clear
For i = 0 To UBound(vehicleNumbers)
VehicleList.ListBox.AddItem vehicleNumbers(i)
Next i
End Sub
' 删除选中的车牌号码
Sub RemoveVehicleNumber()
' 获取选中的车牌号码索引
Dim index As Integer
index = VehicleList.ListBox.ItemIndex
' 检查索引是否有效
If index >= 0 And index < UBound(vehicleNumbers) Then
' 删除选中的车牌号码
Erase vehicleNumbers(index)
' 更新列表显示
VehicleList.ListBox.Clear
For i = 0 To UBound(vehicleNumbers)
VehicleList.ListBox.AddItem vehicleNumbers(i)
Next i
End If
End Sub
' 删除所有车牌号码
Sub RemoveAllVehicleNumbers()
' 清空车牌号码列表
Erase vehicleNumbers
' 更新列表显示
VehicleList.ListBox.Clear
End Sub
' 打开新窗口
Sub OpenNewWindow()
' 创建一个新的窗口
Dim newWindow As New Form1
newWindow.Show vbModal, Me
End Sub
' 窗口加载事件
Private Sub Form_Load()
' 初始化车牌号码列表
InitializeVehicleNumbers
' 设置确定写入按钮的默认状态为不可用
WriteButton.Enabled = False
End Sub
' 确定写入按钮点击事件
Private Sub WriteButton_Click()
' 获取输入的车牌号码
Dim vehicleNumber As String
vehicleNumber = VehicleNumberText.Text
' 添加车牌号码到列表
AddVehicleNumber(vehicleNumber)
' 清空输入框
VehicleNumberText.Text = ""
' 设置确定写入按钮为不可用
WriteButton.Enabled = False
End Sub
' 删除按钮点击事件
Private Sub DeleteButton_Click()
' 删除选中的车牌号码
RemoveVehicleNumber
End Sub
' 全部删除按钮点击事件
Private Sub ClearButton_Click()
' 删除所有车牌号码
RemoveAllVehicleNumbers
End Sub
' 列表选择更改事件
Private Sub VehicleList_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
' 启用或禁用删除按钮
DeleteButton.Enabled = (VehicleList.ListBox.SelectedIndex >= 0)
End Sub
' 新窗口关闭事件
Private Sub NewWindow_Closed(ByVal sender As Object, ByVal e As EventArgs)
' 更新主窗口的列表显示
InitializeVehicleNumbers
End Sub

100？程序员就这么不值钱了吗？是不是少打了两个零

100还不如我免费帮你写了，100太少了

说给100还不如你好好说，免费给你做得了

200 元，不能再少了。

人家说100毛爷爷，就是10000，你们只要200...

所以楼主到底掏钱了么

所以你这不都写出来了？

这种东西简单的真的，半小时的事 100够了 又不是聘你去干一个月

字数上限了