VBA程序 四个按钮 按顺序点击提示正确，否则提示错误

可以使用VBA实现，代码如下：

首先在VB Editor中添加一个UserForm，然后在UserForm上添加四个按钮，分别命名为Button1、Button2、Button3和Button4。

接着在UserForm的代码模块中添加以下代码：

Option Explicit

Dim order As Integer ' 定义一个变量用于记录点击顺序

Private Sub Button1_Click()
    checkOrder 1 ' 点击Button1时检查点击顺序是否正确
End Sub

Private Sub Button2_Click()
    checkOrder 2 ' 点击Button2时检查点击顺序是否正确
End Sub

Private Sub Button3_Click()
    checkOrder 3 ' 点击Button3时检查点击顺序是否正确
End Sub

Private Sub Button4_Click()
    checkOrder 4 ' 点击Button4时检查点击顺序是否正确
End Sub

Sub checkOrder(buttonNumber As Integer)
    If buttonNumber = order Then ' 如果点击的按钮顺序正确，提示正确，并将顺序加1
        MsgBox "顺序正确"
        order = order + 1
    Else ' 如果点击的按钮顺序错误，提示错误，并将顺序重置为1
        MsgBox "顺序错误"
        order = 1
    End If
End Sub

Private Sub UserForm_Initialize()
    order = 1 ' 初始化点击顺序为1
End Sub

当用户按照正确的顺序点击按钮时，会弹出一个消息框提示“顺序正确”，并将顺序加1；当用户点击的顺序错误时，会弹出一个消息框提示“顺序错误”，并将顺序重置为1。

需要注意的是，在UserForm的代码模块中需要声明一个全局变量order，用于记录点击顺序。同时，在UserForm的初始化过程中，需要将order初始化为1。