不對。步驟如下:
站在用戶的角度思考問題,與客戶深入溝通,找到老城網(wǎng)站設(shè)計與老城網(wǎng)站推廣的解決方案,憑借多年的經(jīng)驗,讓設(shè)計與互聯(lián)網(wǎng)技術(shù)結(jié)合,創(chuàng)造個性化、用戶體驗好的作品,建站類型包括:成都做網(wǎng)站、成都網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、域名與空間、網(wǎng)絡(luò)空間、企業(yè)郵箱。業(yè)務(wù)覆蓋老城地區(qū)。
添加一個label標(biāo)簽名字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
使用數(shù)組 和 結(jié)構(gòu)體
相應(yīng)的數(shù)據(jù)類型自己看看哪個最合適就用哪個,下面的例子全部用long,初始數(shù)據(jù)用100個隨機(jī)數(shù)
Option Explicit
Private Type dd
d1 As Long '存儲出現(xiàn)的數(shù)
d2 As Long '存儲出現(xiàn)次數(shù)
End Type
Private Sub Form_Load()
Me.AutoRedraw = True
Me.Width = 10000
Me.Height = 4500
Dim aa() As dd
Dim bb() As Long '原始數(shù)字的數(shù)組
Dim i, j, k, l, m As Long
ReDim aa(0)
k = 100 '隨機(jī)數(shù)個數(shù)
l = 500 '最大隨機(jī)數(shù)
m = 100 '最小隨機(jī)數(shù)
ReDim bb(k) As Long
'生成隨機(jī)數(shù),存儲在bb里面
Randomize
For i = 0 To k - 1
bb(i) = Int(((l - m) * Rnd) + m)
Next i
'統(tǒng)計bb里面各個數(shù)字出現(xiàn)次數(shù)
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
'輸出出現(xiàn)數(shù)字及次數(shù)
Me.Print "數(shù)字", "出現(xiàn)次數(shù)", "數(shù)字", "出現(xiàn)次數(shù)", "數(shù)字", "出現(xiàn)次數(shù)", "數(shù)字", "出現(xiàn)次數(shù)"
For i = 0 To UBound(aa) - 1
Me.Print aa(i).d1, aa(i).d2,
If i Mod 4 = 3 Then Me.Print '設(shè)置輸出格式
Next i
End Sub
直接新建exe,復(fù)制黏貼就可以運行了
畫command1
text1
在通用中定義s,假設(shè)初值為23
鼠標(biāo)左鍵為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
分享文章:vb.net中的計數(shù)器 vb中計時器怎么用
標(biāo)題網(wǎng)址:http://muchs.cn/article46/doedgeg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供全網(wǎng)營銷推廣、定制網(wǎng)站、域名注冊、App設(shè)計、網(wǎng)站收錄、動態(tài)網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)