求教一个弱弱的问题 - 编程论坛

#2

yuk_yu2016-01-14 15:35

回复楼主龙龙来了

if Month( xxx)=1 then target =100
elseif month (xxx)= 2 then target = 2000

.....
end if

#3

renxiaoyao362016-01-14 22:48

如果你要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编辑过]

#4

wmf20142016-01-15 00:01

回复 3楼 renxiaoyao36

为什么不直接(month(date)+1)*100?

#5

renxiaoyao362016-01-16 19:00

回复 4楼 wmf2014

额似乎也可以啊
还是WMF2014的代码比较好