如何用VB做一个计数器

画command1

text1

在通用中定义宏轿s,假哪绝镇设初值为23

鼠标左键为1,右李粗键为2

Dim

s

As

Integer

Private

Sub

Command1_MouseDown(Button

As

Integer,

Shift

As

Integer,

X

As

Single,

Y

As

Single)

If

Button

=

2

Then

s

=

s

-

1

If

Button

=

1

Then

s

=

s

+

1

Text1.Text

=

s

End

Sub

Private

Sub

Form_Load()

s

=

23

Text1.Text

=

s

End

Sub

计算入学时庆咐间至今日之间的天数:使用DateDiff函数

按回车能誉贺纯够将该信息自动存储：请用ADO+Excel的数据库访问模式+Form的KeyPreview属性=True或添加一个Default=True的命令按钮……

两个

文本框

请自己画

序号可以通过打开Excel数据库以后的RecordCount来取得~关机以后仍然有效

注：本程序完全无需注册专利【拍孝也不能注册，汗一个

创建一个野模镇码慎COMMANDBUTTON按颂粗钮控件

把下面代码复制到代码窗口中

sub form_load()

command1.caption = "0"

end sub

sub command1_click

command1.caption = command1.caption+1

end sub

---