qb45编程问题

某年1月1日是星期一，小明的生日是11月24日，小明生日是星期几？

咋编？

让它输出是星期几

CLS

DIM t AS INTEGER

IF (x MOD 4) = 0 THEN
t = (1 + 327) MOD 7
ELSE
t = (1 + 329) MOD 7
END IF

SELECT CASE t
CASE 1: PRINT "小明的生日是星期一"
CASE 2: PRINT "小明的生日是星期二"
CASE 3: PRINT "小明的生日是星期三"
CASE 4: PRINT "小明的生日是星期四"
CASE 5: PRINT "小明的生日是星期五"
CASE 6: PRINT "小明的生日是星期六"
CASE 7: PRINT "小明的生日是星期天"
END SELECT