vb.txt

包括一个复杂算法的执行程序和源代码,我编写用来测试GT3速度效果的东东.很简单请不要见笑.

Private Sub Command1_Click()
Dim shuru(19) As Integer
Dim jieguo(19) As Integer
Dim final As String
Dim test As String
Dim test1 As String
Dim final1 As String
Dim weishu, e, f, g, h, i, j, k, l, x, jj, jjj As Integer
weishu = Val(Text2.Text)
e = 0
f = 0
g = 0
h = 0
i = 0
j = 0
k = 0
l = 0
test = Text1.Text
For x = 1 To weishu
shuru(x - 1) = Mid(test, x, 1)
Next x

For f = 0 To weishu - 1
If shuru(f) = jieguo(f) Then
g = g + 1
End If
Next f
If g = weishu Then
For g = 0 To weishu - 1
final = final & jieguo(g)
Next g
Text3.Text = final
End If

For h = 0 To weishu - 1
For jjj18 = 0 To 8
jjj17 = 0
jieguo(18) = 0
For jjj17 = 0 To 8
jjj16 = 0
jieguo(17) = 0
For jjj16 = 0 To 8
jjj15 = 0
jieguo(16) = 0
For jjj15 = 0 To 8
jjj14 = 0
jieguo(15) = 0
For jjj14 = 0 To 8
jjj13 = 0
jieguo(14) = 0
For jjj13 = 0 To 8
jjj12 = 0
jieguo(13) = 0
For jjj12 = 0 To 8
jjj11 = 0
jieguo(12) = 0
For jjj11 = 0 To 8
jjj10 = 0
jieguo(11) = 0
For jjj10 = 0 To 8
jjj9 = 0
jieguo(10) = 0
For jjj9 = 0 To 8
jjj8 = 0
jieguo(9) = 0
For jjj8 = 0 To 8
jjj7 = 0
jieguo(8) = 0
For jjj7 = 0 To 8
jjj6 = 0
jieguo(7) = 0
For jjj6 = 0 To 8
jjj5 = 0
jieguo(6) = 0
For jjj5 = 0 To 8
jjj4 = 0
jieguo(5) = 0
For jjj4 = 0 To 8
jjj3 = 0
jieguo(4) = 0
For jjj3 = 0 To 8
jjj2 = 0
jieguo(3) = 0
For jjj2 = 0 To 8
jjj = 0
jieguo(2) = 0
For jjj = 0 To 8
jj = 0
jieguo(1) = 0
For jj = 0 To 8
jieguo(0) = 0
i = 0
For i = 0 To 8
jieguo(0) = jieguo(0) + 1


g = 0
f = 0
For f = 0 To weishu - 1
If shuru(f) = jieguo(f) Then
g = g + 1
End If
Next f
final1 = ""
For j1 = 0 To weishu - 1
final1 = final1 & jieguo(j1)
Next j1
Label5.Caption = ""
Label5.Caption = final1
Label5.Refresh


If g = weishu Then
For j = 0 To weishu - 1
final = final & jieguo(j)
Next j
Text3.Text = final
response = MsgBox("- -", vbOKOnly + vbCritical, "咋样捏")
End
End If

Next i
jieguo(1) = jieguo(1) + 1
Next jj
jieguo(2) = jieguo(2) + 1
Next jjj
jieguo(3) = jieguo(3) + 1
Next jjj2
jieguo(4) = jieguo(4) + 1
Next jjj3
jieguo(5) = jieguo(5) + 1
Next jjj4
jieguo(6) = jieguo(6) + 1
Next jjj5
jieguo(7) = jieguo(7) + 1
Next jjj6
jieguo(8) = jieguo(8) + 1
Next jjj7
jieguo(9) = jieguo(9) + 1
Next jjj8
jieguo(10) = jieguo(10) + 1
Next jjj9
jieguo(11) = jieguo(11) + 1
Next jjj10
jieguo(12) = jieguo(12) + 1
Next jjj11
jieguo(13) = jieguo(13) + 1
Next jjj12
jieguo(14) = jieguo(14) + 1
Next jjj13
jieguo(15) = jieguo(15) + 1
Next jjj14
jieguo(16) = jieguo(16) + 1
Next jjj15
jieguo(17) = jieguo(17) + 1
Next jjj16
jieguo(18) = jieguo(18) + 1
Next jjj17
jieguo(19) = jieguo(19) + 1
Next jjj18
Next h



End Sub