VB.NET 计时器的问题

不对。步骤如下：

站在用户的角度思考问题，与客户深入沟通，找到老城网站设计与老城网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：成都做网站、成都网站建设、企业官网、英文网站、手机端网站、网站推广、域名与空间、网络空间、企业邮箱。业务覆盖老城地区。

添加一个label标签名字label1 用来显示时间

再添加一个timer控件 名字timer1 interval属性=1000 用来计时

窗体添加代码

Dim t As Date '用来记录时间

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _

System.EventArgs) Handles Timer1.Tick

t = t.AddSeconds(1)

Label1.Text = "登录时间:" t.TimeOfDay.ToString

End Sub

如何用vb制作计数器

使用数组 和 结构体

相应的数据类型自己看看哪个最合适就用哪个，下面的例子全部用long，初始数据用100个随机数

Option Explicit

Private Type dd

d1 As Long '存储出现的数

d2 As Long '存储出现次数

End Type

Private Sub Form_Load()

Me.AutoRedraw = True

Me.Width = 10000

Me.Height = 4500

Dim aa() As dd

Dim bb() As Long '原始数字的数组

Dim i, j, k, l, m As Long

ReDim aa(0)

k = 100 '随机数个数

l = 500 '最大随机数

m = 100 '最小随机数

ReDim bb(k) As Long

'生成随机数，存储在bb里面

Randomize

For i = 0 To k - 1

bb(i) = Int(((l - m) * Rnd) + m)

Next i

'统计bb里面各个数字出现次数

For i = 0 To UBound(bb) - 1

For j = 0 To UBound(aa) - 1

If aa(j).d1 = bb(i) Then

aa(j).d2 = aa(j).d2 + 1

Exit For

End If

Next j

If j = UBound(aa) Then

ReDim Preserve aa(j + 1) As dd

aa(j).d1 = bb(i)

aa(j).d2 = 1

End If

Next i

'输出出现数字及次数

Me.Print "数字", "出现次数", "数字", "出现次数", "数字", "出现次数", "数字", "出现次数"

For i = 0 To UBound(aa) - 1

Me.Print aa(i).d1, aa(i).d2,

If i Mod 4 = 3 Then Me.Print '设置输出格式

Next i

End Sub

直接新建exe，复制黏贴就可以运行了

如何用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