添加兩個Timer控件,將第壹個控件的inte屬性設置為60000,並每分鐘運行壹次。
第二個的屬性設置為1000,每秒運行壹次。
然後添加兩個TEXTBOX,第壹個用於鍵入,第二個用於設置時間和壹個命令按鈕,然後復制下面的代碼並運行它。顯示打字速度結果的標簽控件。
=======================================================
將I標註為整數
私有子命令1_Click()
文本2。啟用=假
i = 0
定時器1。啟用=真
末端接頭
私有子窗體_Load()
末端接頭
私有子定時器1_Timer()
i = i + 1
末端接頭
私有子定時器2_Timer()
如果短信2。Text & lt& gt”“那麽
如果i = CInt(Text2。文本)然後
定時器1。啟用=假
MsgBox“妳是什麽”&;文本2。文本& amp“我分分鐘打電話”&;Len(Text1。正文)& amp“壹言為定!平均每分鐘打”&;CInt(Len(Text1。Text)) / CInt(Text2。正文)& amp" Word ",vbOKOnly+vbInformation," hint "
標簽2。Caption = "妳在這裏" &;文本2。文本& amp“我分分鐘打電話”&;Len(Text1。正文)& amp“壹言為定!平均每分鐘打”&;CInt(Len(Text1。Text)) / CInt(Text2。正文)& amp“壹句話”
定時器2。啟用=假
文本2。啟用=真
如果…就會結束
如果…就會結束
末端接頭
=================================================
或將以下代碼復制到文本文件中。保存為Form1.frm,然後用VB打開。
==================================================
版本5.00
開始VB。表單表單1
Caption = "Form1 "
客戶端高度= 6930
客戶端左側= 60
ClientTop = 345
ClientWidth = 8745
LinkTopic = "Form1 "
比例高度= 6930
ScaleWidth = 8745
StartUpPosition = 3 '窗口默認值
開始VB。定時器定時器2
間隔= 100
左= 3960
Top = 6480
結束
開始VB。定時器Timer1
Enabled = 0 '假
間隔= 60000
左= 3600
Top = 6480
結束
開始VB。命令按鈕命令1
Caption = "Go "
身高= 255
左= 7440
TabIndex = 2
Top = 6480
寬度= 855
結束
開始VB。文本框文本2
身高= 270
左= 6480
TabIndex = 1
Top = 6480
寬度= 495
結束
開始VB。文本框文本1
高度= 6255
左= 120
MultiLine = -1 'True
滾動條=垂直2英尺
TabIndex = 0
Top = 0
寬度= 8295
結束
開始VB。標簽Label2
AutoSize = -1 'True
BackStyle = 0 '透明
高度= 180
左= 0
TabIndex = 4
Top = 6480
寬度= 90
結束
開始VB。標簽Label1
Caption = "設置測試時間(分鐘):"
身高= 255
左= 4680
TabIndex = 3
Top = 6480
寬度= 1695
結束
結束
屬性VB_Name = "Form1 "
屬性VB_GlobalNameSpace = False
屬性VB_Creatable = False
屬性VB_PredeclaredId = True
屬性VB_Exposed = False
將I標註為整數
私有子命令1_Click()
文本2。啟用=假
i = 0
定時器1。啟用=真
末端接頭
私有子窗體_Load()
末端接頭
私有子定時器1_Timer()
i = i + 1
末端接頭
私有子定時器2_Timer()
如果短信2。Text & lt& gt”“那麽
如果i = CInt(Text2。文本)然後
定時器1。啟用=假
MsgBox“妳是什麽”&;文本2。文本& amp“我分分鐘打電話”&;Len(Text1。正文)& amp“壹言為定!平均每分鐘打”&;CInt(Len(Text1。Text)) / CInt(Text2。正文)& amp" Word ",vbOKOnly+vbInformation," hint "
標簽2。Caption = "妳在這裏" &;文本2。文本& amp“我分分鐘打電話”&;Len(Text1。正文)& amp“壹言為定!平均每分鐘打”&;CInt(Len(Text1。Text)) / CInt(Text2。正文)& amp“壹句話”
定時器2。啟用=假
文本2。啟用=真
如果…就會結束
如果…就會結束
末端接頭