我来帮你搞定这个需求！你要实现的是按钮点击计数，以4位数字（如0001）显示，到9999后重置为0001继续循环，原来的写法确实存在格式错误和逻辑问题，这里有个简洁可靠的实现方案：

核心思路 #

1. 用一个类级别的整数变量维护点击次数（比每次从Label读取数值更可靠）
2. 每次点击后递增计数，超过9999时重置为1
3. 使用VB.NET的数字格式化方法直接生成4位带前导零的字符串

完整代码实现 #

首先在窗体类的顶部声明计数变量：

Private ButtonClickCount As Integer = 0 ' 初始值设为0，第一次点击后变为1

然后在按钮的Click事件处理方法中写入逻辑：

Private Sub YourButton_Click(sender As Object, e As EventArgs) Handles YourButton.Click
    ButtonClickCount += 1
    
    ' 当计数超过9999时，重置为1
    If ButtonClickCount > 9999 Then
        ButtonClickCount = 1
    End If
    
    ' 格式化为4位数字，自动补前导零
    Label5.Text = ButtonClickCount.ToString("D4")
End Sub

为什么你的原代码不行？ #

• 第一种写法 "0000" & ButtonClickCount：当计数为1时会生成00001（5位），完全不符合4位的格式要求
• 第二种写法 "0000" + Val(Label5.Text) + 1：逻辑混乱，+号在VB中会自动转换类型，不仅容易出错，而且每次从Label读取数值的做法不可靠（如果Label文本被意外修改，计数就会出错）

关键知识点 #

ToString("D4")是VB.NET中专门的数字格式化语法：

• D表示十进制整数格式
• 后面的4表示固定长度为4位，不足的位数自动用前导零填充，完美匹配你要的0001、0012这类格式

内容的提问来源于stack exchange，提问作者Abd Domingos