Question

在VB里显示系统时间的代码是什么！急用！谢谢

在VB里怎样才能显示系统时间，
还有就是简单计算器的代码——有两个文本框，下面是+、-、*、/还有就是一个计算结果

Answer 1

显示系统时间 先做一个命令按钮 然后双击此按钮 在单击事件过程中输入以下代码：
MsgBox "当前系统时间为：" & Time, 64, "提示"
就可实现单击此按钮 便弹出一个信息框 提示当前的时间
至于第二个问题 你所说的“下面是+、-、*、/”是按钮还是什么 我建议在那2个文本框中间新建一个文本框 用来输入运算符 比较简便 接着在建一个文本框用来显示结果 Command1的单击事件过程代码如下（text1和text3用来输入2个数，在text2中输入加或减或乘或除，text4输出结果）：
Private Sub Command1_Click()
Dim y As String
Dim a, b, c As Single
a = Val(Text1)
b = Val(Text3)
y = Text2
If y = "+" Then
Text4 = a + b
ElseIf y = "-" Then
Text4 = a - b
ElseIf y = "*" Then
Text4 = a * b
ElseIf y = "/" Then
Text4 = a / b
Else
MsgBox "运算符只能是+、-、*、/", 16, "错误提示"
End If
End Sub

记得追加分哦 我是一名高三学生 刚学不久

Answer 2

显示系统时间就是 msgbox format(now,"YYYY/MM/DD HH:MM:SS")

计算器代码你去vb吧里面吧内搜索一下吧 很多的！~

地址：http://tieba.baidu.com/f?ct=&tn=&rn=&pn=&lm=&kw=vb&rs2=0&myselectvalue=1&word=vb&tb=on

Answer 3

先拉一个timer,然后把interval改为1000或者通过Timer1.Interval = 1000改，然后通过farmat操作
例如：
Label1.Caption = Format(Now)
这样就可以显示系统时间了

Answer 4

用date和time函数。

Answer 5

先拉一个timer,然后把interval改为1000
label1.caption=time$()