您的位置：程序门 -> vb -> 基础类

我是一个新手，想请教一个问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

我是一个新手，想请教一个问题[已结贴,结贴人:lindehua]

发表于：2007-07-11 15:45:45 楼主

我的代码是这样的：
dim hour as integer
select case hour
case hour > = 18
print "lin "
case hour > = 14
print "you "
end select

我没论怎样改变系统的时间都不能改变打印结果的，打印结果老是lin。要如何才能把hour与系统时间挂上钩呀。请指导一下。

发表于：2007-07-11 16:02:561楼得分:10

hour是函数，不要定义同名变量
select case hour（now)
case is > = 18
print "lin "
case is > = 14
print "you "
end select

发表于：2007-07-11 16:10:432楼得分:0

dim ih as integer
ih=cint（hour（time))
select case ih
case hour > = 18
print "lin "
case hour > = 14
print "you "
end select

发表于：2007-07-11 16:24:493楼得分:0

select case hour（now)
case is > = 18
print "lin "
case is > = 14
print "you "
end select

发表于：2007-07-11 17:10:034楼得分:0

看来高手如云，问题应该解决了。

发表于：2007-07-11 17:31:175楼得分:0

select case hour（now)
case 18 to 24
msgbox "lin "
case 14 to 24
msgbox "you "
end select

发表于：2007-07-11 17:52:286楼得分:0

break;

发表于：2007-07-12 08:42:497楼得分:0

呵呵

其他资讯