VB程序分析

来源：百度知道 编辑：UC知道 时间：2024/07/02 16:24:51
最好把每句解释下
好的话追加200
Dim m As Integer
Private Sub Command1_Click()
Randomize
Text1 = ""
For i = 1 To 30
a = Chr(Int(Rnd * 26) + 65)
Text1 = Text1 + a
Next i
End Sub

Private Sub Command2_Click()
Text1 = "": Text2 = "": Text3 = "": Text4 = ""
Text2.Locked = False
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If Len(Text2) = 30 Then
t2 = DateDiff("s", t1, Time)
Text3.Text = t2
Text2.Locked = True
y = 0: n = 0
For i = 1 To 30
If Mid(Text1, i, 1) = Mid(Text2, i, 1) Then
y = y + 1
Else
n = n + 1
End If
Next i
y = y / (y + n)
Text4 = Format(y, "0.00%")
End If
End Sub

Private Sub Form_Load()
m = 0
End Sub

Private Sub Text2_GotFoc

你这个应该是一个进行大写字符输入正确率统计的程序。不过总还是有一些个问题。你可以复制后在程序中看，这样更清楚。不过都是很简单的一些内容，对照着MSDN都可以明白！

Dim m As Integer '定义M为 Integer类型 以下定义雷同
Private Sub Command1_Click()
Randomize '初始化随机数生成器
Text1 = ""
For i = 1 To 30 '从1到30 执行30次
a = Chr(Int(Rnd * 26) + 65) '取65到91的随即整数，然后利用chr（）函数转换为大写的字母。
Text1 = Text1 + a '所有的字母叠加赋值给text1
Next i
End Sub

Private Sub Command2_Click()
Text1 = "": Text2 = "": Text3 = "": Text4 = "" '所有text均为“”空
Text2.Locked = False 'text2的locked属性为FALSE 既text控件的可否编辑定为“可编辑”
End Sub

Private Sub Command3_Click()
End '退出
End Sub

Private Sub Text2_KeyPre