2024年4月30日发(作者：)
小键盘数字录入练习软件[终稿]
小键盘数字录入练习软件
Option Explicit
Private A0 As Integer, A1 As Integer, A2 As Integer, A3 As
Integer, A4 As Integer, A5 As Integer, A6 As Integer
Private C1 As Boolean, C2 As Boolean
Private D1(3, 15) As Integer
Rem 分项统计面板
Private Sub Lab_M_Click()
Static S1 As Boolean
S1 = Not S1
If S1 Then
= -6000
e = True
Lab_M = "关闭"
Dim S2 As Integer
For S2 = 0 To 150 Step 10
Lab_F(S2) = D1(0, S2 / 10)
Lab_F(S2 + 1) = D1(1, S2 / 10)
Lab_F(S2 + 2) = D1(2, S2 / 10)
If D1(0, S2 / 10) > 0 Then
Lab_F(S2 + 3) = Int((D1(1, S2 / 10) / D1(0, S2
/ 10)) * 10000) / 100 & "%" '录入正确率
Else
发布者：admin，转转请注明出处：http://www.yc00.com/web/1714461999a2451110.html
评论列表（0条）