编写一个vb程序，实现以下功能：窗体上有三个按钮，单击“今天”按钮，显示今天的日期，星期几，是工作日还是休息日；单击“昨天按钮”，显示昨天的日期，星期几，是工作日还是休息日；单击“上个月的今天”按钮，显示的是上个月的今天的日期，星期几，是工作日还是休息日

为了编写一个VB（Visual Basic）程序来实现这个功能，首先你需要创建一个新的Windows Forms应用程序。以下是基本步骤：

1. **创建新项目**：
- 打开Visual Studio，选择“文件” > “新建” > “项目”，然后选择“Windows Forms App (.NET Framework)”模板。

2. **设计窗体**：
- 在设计器中，添加三个Button控件到窗体上，分别为“今天”，“昨天”和“上个月的今天”。你可以通过属性窗口设置每个按钮的文字。

3. **事件处理**：
- 双击“今天”按钮，打开代码编辑器，在对应的`Click`事件处理器中编写代码，获取并显示今天的日期、星期和是否是工作日。可以利用`DateTime.Now`获取当前日期，并判断是周末还是工作日。

4. **添加其他按钮的事件处理**：
- 对于“昨天”按钮，修改其`Click`事件处理器，减去一天获取昨天的日期；对于“上个月的今天”，需要计算上个月的第一天加上今天的天数。

5. **判断工作日或休息日**：
- 可以使用`DayOfWeek`枚举检查日期属于周几，然后根据实际的工作日制度（例如周一至周五为工作日，周六、周日为休息日）判断是否为工作日。

Private Function IsWorkDay(date As Date) As Boolean
    Return date.DayOfWeek <> DayOfWeek.Saturday AndAlso date.DayOfWeek <> DayOfWeek.Sunday
End Function

Private Sub btnToday_Click(sender As Object, e As EventArgs) Handles btnToday.Click
    Dim todayDate = DateTime.Today
    Dim todayWeekDay = todayDate.DayOfWeek
    If IsWorkDay(todayDate) Then
        MessageBox.Show("今天是" & todayDate.ToString("yyyy-MM-dd") & "，星期" & todayWeekDay.ToString() & "，工作日")
    Else
        MessageBox.Show("今天是" & todayDate.ToString("yyyy-MM-dd") & "，星期" & todayWeekDay.ToString() & "，休息日")
    End If
End Sub

' 对其他两个按钮编写类似事件处理器

6. **运行程序**：
- 确保所有代码无误后，你可以点击菜单栏的“F5”键运行程序，测试这三个按钮的功能。

记得在完成后保存你的代码，并对代码进行适当的错误处理和优化，以确保程序的稳定性和用户体验。