扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
不对。步骤如下:
站在用户的角度思考问题,与客户深入沟通,找到老城网站设计与老城网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:成都做网站、成都网站建设、企业官网、英文网站、手机端网站、网站推广、域名与空间、网络空间、企业邮箱。业务覆盖老城地区。
添加一个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
使用数组 和 结构体
相应的数据类型自己看看哪个最合适就用哪个,下面的例子全部用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,复制黏贴就可以运行了
画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
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流