制作简单日期函数总是运行出错

满月的馒头

想做一个简易的日期窗体，用的方法比较笨，请在我的基础上修改一下
有以下问题
1.多选择几次，下面这段代码会显示要求对象
For g = 1 To max
        arr(wd).Caption = g

        wd = wd + 1
Next
2.定义了公共数组arr，但是觉得不对，尤其是选择某些月份时，星期天对下去的第一个开关会显示一个日期，而不是几号几号


请前辈给我看一下错误和如何改进，感激不尽

3190496160

日期窝体今天下午才回过一个贴子