| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1902 人关注过本帖
标题:求教一个弱弱的问题
只看楼主 加入收藏
龙龙来了
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2016-1-14
结帖率:0
收藏
已结贴  问题点数:20 回复次数:4 
求教一个弱弱的问题
如何实现下列目标:如果日期为1月,then 目标值为200;如果日期为2月,then 目标值为300
搜索更多相关主题的帖子: 如何 
2016-01-14 14:27
yuk_yu
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:334
专家分:134
注 册:2009-3-16
收藏
得分:7 
回复 楼主 龙龙来了
if Month( xxx)=1 then target =100
elseif month (xxx)= 2 then target = 2000

.....
end if
2016-01-14 15:35
renxiaoyao36
Rank: 9Rank: 9Rank: 9
来 自:七宝中学
等 级:贵宾
威 望:31
帖 子:347
专家分:1077
注 册:2014-9-18
收藏
得分:0 
如果你要12个月select的话,我的建议是有两种
1.
程序代码:
Dim a as integer
a=month(now)
select case a 
case 1
taeget=100
case 2
taeget=200
case 3 
taeget=300
case 4
taeget=400
...
end select

中间请自行脑补
2.
这一段代码比较自动化,免除了手动打代码的麻烦(曾经复制黏贴一段代码一点点改参数改到我崩溃为止),前提是你的对应数值要规律
程序代码:
dim i as integer
dim a as integer
for i = 0 to 12
if month(now)= i then goto sss
a= a + 每次有规律数值的值
next i
exit sub
sss:
target=a
end sub

PS:一个月没碰VB了,这是我一个月后第一次再碰,代码可能有BUG或者是过于复杂的地方,我只是给个思路

[此贴子已经被作者于2016-1-14 22:49编辑过]


编程蛋疼的不是枯燥,而是辛辛苦苦编完几百行的代码,运行,“Runtime Error “xxx””。
2016-01-14 22:48
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分:7 
回复 3楼 renxiaoyao36
为什么不直接(month(date)+1)*100?

能编个毛线衣吗?
2016-01-15 00:01
renxiaoyao36
Rank: 9Rank: 9Rank: 9
来 自:七宝中学
等 级:贵宾
威 望:31
帖 子:347
专家分:1077
注 册:2014-9-18
收藏
得分:7 
回复 4楼 wmf2014
额似乎也可以啊
还是WMF2014的代码比较好

编程蛋疼的不是枯燥,而是辛辛苦苦编完几百行的代码,运行,“Runtime Error “xxx””。
2016-01-16 19:00
快速回复:求教一个弱弱的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.035050 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved