 |
ความคิดเห็นที่ 8 |
ลองใหม่ละ compile ผ่าน
Dim a() As Integer = {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}
Dim f, g, h, i, j, k, l, m, n, o, p, q, r, s, t As Integer
Dim d As Integer
Me.TextBox1.Text = ""
For f = 1 To 15 Step 1
For g = 1 To 15 Step 1
For h = 1 To 15 Step 1
For i = 1 To 15 Step 1
For j = 1 To 15 Step 1
For k = 1 To 15 Step 1
For l = 1 To 15 Step 1
For m = 1 To 15 Step 1
For n = 1 To 15 Step 1
For o = 1 To 15 Step 1
For p = 1 To 15 Step 1
For q = 1 To 15 Step 1
For r = 1 To 15 Step 1
For s = 1 To 15 Step 1
For t = 1 To 15 Step 1
a(8) = f
a(3) = g
a(11) = h
a(2) = i
a(0) = j
a(14) = k
a(5) = l
a(9) = m
a(1) = n
a(6) = o
a(4) = p
a(7) = q
a(10) = r
a(13) = s
a(12) = t
If (a(0) = a(2) - a(1) And a(1) = a(4) - a(3) And a(2) = a(4) - a(5) And a(3) = a(6) - a(7) And a(4) = a(8) - a(7) And a(5) = a(8) - a(9) And a(6) = a(11) - a(10) And a(7) = a(12) - a(11) And a(8) = a(12) - a(13) And a(9) = a(13) - a(14) And Not (a(0) = a(1) = a(2) = a(3) = a(4) = a(5) = a(6) = a(7) = a(8) = a(9) = a(10) = a(11) = a(12) = a(14) = a(13))) Then
For d = 0 To 14
Me.TextBox1.Text += a(d)
Next
f = 16
g = 16
h = 16
i = 16
j = 16
k = 16
l = 16
m = 16
n = 16
o = 16
p = 16
q = 16
r = 16
s = 16
t = 16
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
แก้ไขเมื่อ 27 ธ.ค. 52 01:53:10
แก้ไขเมื่อ 27 ธ.ค. 52 00:19:20
| จากคุณ |
:
mint_la  
|
| เขียนเมื่อ |
:
26 ธ.ค. 52 19:45:14
|
|
|
|
|
