?? vb.txt
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -