VB显示当前时间的程序

加入以下代码：

Private Sub Form_Load()

Text1.Text = Now

Timer1.Enabled = True

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

Text1.Text = Now

End Sub

扩展资料：

VB获取系统当前时间并格式化输出

用到的函数：

Date函数：返回系统的日期

Now函数：返回系统的日期和时间

Format函数：根据格式表达式来格式化数据

实例：

Private Sub Form_Load()

'设置同步时间显示

Timer1.Interval = 1000

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Label2.Caption = Format(Now, "hh:mm:ss")            '获取当前时间

Label4.Caption = Format(Now, "yyyy-mm-dd")          '获取当前日期

Label6.Caption = Format(Now, "yyyy-mm-dd hh:mm:ss") '日期和时间

End Sub

vb显示计算后的结果有两种方法

1、直接用输出控件

比如用text1输出。计算结果是s

你可以把s赋给text1.text

代码为

text1.text=s

这里的s可以字符型，也可以是数字型

他会自动转换成字符型，等效

text1.text=cstr（s）

本例中

就用这种方法来显示，代码有错误

把(Text.1

text)

=

s

改成(Text1.

text)

=

s

就可以了

2、用

print

语句

print

语句用法为:

控件名.print

s

控件名为你要显示的地方，可以是form

也可以是picture控件等

s就是的计算结果。

也可以用debug.print

s。这样结果就显示在调试窗口。

1、首先在开发工具中打开VBA编辑器。

2、在单元格区域当中输入一些内容作为例子。

3、在VBA编辑器中插入模块。

4、在模块当中输入如下代码，然后运行Private Sub UserForm_Initialize() Me.Height=Application.Height '窗体高度等于Excel程序的高度 Me.Width=Application.Width  '窗体宽度等于Excel程序的宽度End Sub。

5、用快捷键F5运行窗体，则窗体全屏显示。

---