vb如何编写黄历

暗淡？我的月份？作为什么？整数

暗淡？我的年份？作为什么？整数

我的年份？=?val（text 1。文字）

我的月份？=?Val（文本2。文字）

短信3。短信？=?DateDiff（“d“，？我的年份？& amp？"-"?& amp？我的月份？& amp？"-"?& amp？"1",?我的年份？& amp？"-"?& amp？我的月份？+?1?& amp？"-"?& amp？"1")

结束？潜水艇

私人的？Sub？表单加载（）

文本1。短信？=?年份（日期）？在文本1中输入年份。

文本2。短信？=?1?在文本2中输入月份。

短信3。短信？=?""?在文本3中输入该月对应的天数。

命令1。字幕？=?“视图“

结束？潜水艇