1楼：匿名用户
你添加一个timer控件
interval属性=100
添加事件
private sub timer1_timer()text1.text = format(now, "hh:mm:ss")
end sub
2楼：匿名用户
private sub form_load()timer1.enabled = trueend sub
private sub timer1_timer()text1.text = now
end sub
建立两个控件timer1和text1。
我也初学。
vb程序单击日期,可使文本框中显示当前日期,单击时间,可显示当前时间,并使前面的标签做相应修改,写出操作
3楼：杜哥是个小天才
具体**：
private sub command1_click()text1.text = date
label1.caption = "当前日期为："
end sub
private sub command2_click()text1.text = time
label1.caption = "当前时间为："
end sub
拓展资料visual basic是一种由 microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。
从任何标准来说，vb都是世界上使用人数最多的语言——不管是盛赞vb的开发者还是抱怨vb的开发者的数量。它源自于basic编程语言。
vb拥有图形用户界面（gui）和快速应用程序开发（rad）系统，可以轻易的使用dao、rdo、ado连接数据库，或者轻松的创建activex控件。程序员可以轻松的使用vb提供的组件快速建立一个应用程序。
主要优点：
1，简单易学。
2，开发速度快。
3，可读性很好。
4楼：蝴蝶飛飛
private sub command1_click()text1.text = date
label1.caption = "当前日期为："
end sub
private sub command2_click()text1.text = time
label1.caption = "当前时间为："
end sub
如何用vb**在文本框中显示当前时间是上午或下午
5楼：匿名用户
private sub command1_click()dim s as date
dim bs as string
s = now
select case hour(s)
case is < 8
bs = "凌晨"
case is < 12
bs = "上午"
case is < 14
bs = "中午"
case is < 17
bs = "下午"
case else
bs = "晚上"
end select
label1.caption = format(s, "yyyy年mm月dd日 hh:mm:
ss " & bs & " 星期" & choose(weekday(s), "日", "一", "二", "三", "四", "五", "六"))
end sub
6楼：宁秀梅寸巳
举个例子：按下数字1将文本框内容变为“你按下了1”：
private
subtextbox1_keypress(keyasciiasinteger)
ifkeyascii
=asc("1")
textbox1.text="你按下了1"
else
textbox1.text="你按下的不是1"
endif
endsub
7楼：木头
format(time, "ampm")
现在想用vb，当前时间变化在文本框会显示后台设定的数字。
8楼：匿名用户
privatesubform_load()timer1.interval=1000timer1.enabled=trueendsub
privatesubtimer1_timer()iftime=#10:24:00am#thenme.caption="1"
elseiftime=#10:25:00am#thenme.caption="2"
endif
endsub
工具是用来方便自己的，好用就行，没必要追求新旧。剪刀有几千年历史，比剪刀厉害的切割机很多。为什么我们还用剪刀呢。因为适合自己
9楼：华山_掌门人
vb过时了，不要用了
vb编程题1.在窗体上创建一个文本框，当单击文本框时，文本框中轮流显示当前日期及当前时间。用vb怎么编程？
10楼：匿名用户
在窗体上添加一个文本框、一个时钟空间，**如下：
private sub form_load()timer1.enabled = falsetimer1.interval = 1000text1.text = ""
end sub
private sub text1_click()timer1.enabled = trueend sub
private sub timer1_timer()static n as integer
n = n + 1
if n mod 2 = 1 then text1.text = date else text1.text = time
end sub
怎样用vb获取本机时间并且与一个文本框里的时间进行比较。（24小时格式的）
11楼：网海1书生
if now > cdate(text1.text) thenmsgbox "文本框里的时间比当前时间早！"
else
msgbox "文本框里的时间比当前时间晚！"
end if
要注意，文本框里的时间必须是标准格式的，比如： 2014-12-18 16:09:23
如果文本框里只有时间没有日期，比如 17:23:45，则**修改为：
if time > cdate(text1.text) thenmsgbox "文本框里的时间比当前时间早！"
else
msgbox "文本框里的时间比当前时间晚！"
end if