我的音乐32487_个分处处长歌单 - 虾米音乐
Loading...
第一时间获得TA的歌单
入选曲目(32)
直接生成动态播播
使用手机扫码收听歌单
打开虾米音乐APP
点击 扫一扫
扫描二维码
个分处处长的其它歌单
关注虾米：【求助】哪位大神帮我写个程序，小弟烦人脑子已经废了【vb吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：101,634贴子：
【求助】哪位大神帮我写个程序，小弟烦人脑子已经废了收藏
使用VB写一个程序，可以检测出天数和季节
通用软件不合适,定做软件太昂贵,自己用vb.net开发太难,何不试试FoxTable?
1、测日期用date函数，测月份用month函数，，测年份用year函数；2、判断闰年的方法
如果年份能被400整除，或年份能被4整除，但不能被100整除，则闰年。约定：春季：3、4、5夏季：6、7、8秋季：9、10、11冬季：12、1、2
自挽，哪位大神帮帮我啊啊啊啊
你不是写好了吗
其实。。。。检测是不是闰年你可查那年的2月几天，一下不就搞定了。。。
Private Sub Command2_Click()
Dim w As String
Select Case Month(Date)
Case 3, 4, 5
Case 6, 7, 8
Case 9, 10, 11
Case 12, 1, 2
End Select
MsgBox "今天是" & Date & ",是" & w & "季"End SubPrivate Sub Command1_Click()
Dim w As String
Dim d As Integer
w = "小月"
Select Case Month(Date)
Case 1, 3, 5, 7, 8, 10, 12
d = "大月"
Case 4, 6, 9, 11
If Year(Date) Mod 400 = 0 Or (Year(Date) Mod 4 = 0 And Year(Date) Mod 100 && 0) Then
End Select
MsgBox "本月是" & Month(Date) & "月,是" & w & "," & d & "天"End Sub
昏，自己做啊，不懂的问题可以问，但是别指望别人替你做作业啊。
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或114网址导航}