内容每5分钟更新
客服QQ:4008017500
乐彩论坛静态版乐彩论坛静态版 “自编双色球缩水程序...
共34条2页 30条/页首页上一页第1页下一页尾页
点击:   回复:3933 关闭此页

“自编双色球缩水程序(VB语言)”

楼主
  duy3 | 发表于2022-04-11 15:22:36
转:自编双色球缩水程序(C语言)

以下是本人自编自用的双色球缩水程序,四年多来本人最多一次中过3000(离500W就一个数,28与29的差别),中过十几次200。儿子杨朗死后就再也没有用过该程序。现将其公布在天涯,以感谢天涯对本人的支持。
   编程的思路是以前面的30期为数据统计依据,计算下一期要出的号码。懂C的朋友如有不解之处,可给本人发短信,共同探讨。
转的C语言原贴链接




Sub YangLang_SSQ_30期数据()
rngB = "5,7,10,14,17,25-5,8,10,15,23,26-3,7,13,23,27,30-7,13,17,26,32,33-10,11,13,16,19,30-10,19,20,21,23,32-2,5,11,26,30,32-1,2,14,23,28,29-8,12,20,22,30,33-2,15,19,24,31,32-4,10,16,23,28,30-6,11,18,20,25,30-3,5,12,18,21,23-1,2,9,10,21,31-4,5,23,26,31,32-1,3,12,20,21,29-9,16,17,18,22,27-5,10,16,19,23,28-1,13,15,17,20,30-9,18,19,25,28,31-1,9,14,16,28,32-5,7,12,14,15,20-2,9,16,21,30,31-1,11,13,25,32,33-4,5,6,25,29,30-11,15,18,21,27,29-2,8,12,18,24,28-4,9,11,20,32,33-4,8,12,17,20,30-11,12,13,18,23,32" '开奖号码
sint_A = Split(rngB, "-")
For col = 0 To UBound(sint_A)
sint_Aa = Split(sint_A(col), ",")
For N = 0 To UBound(sint_Aa)
Cells(col + 51, N + 1) = sint_Aa(N)
Next
Next
End Sub

Public Sub YangLang_SSQ(ssjg() As String)
Application.Calculation = 3
Dim startTimer As Double
startTimer = Timer
Dim BaseMin As Integer, BaseMax As Integer, BaseNum As Integer
BaseMin = 1: BaseMax = 33: BaseNum = 6
Dim col As Integer, N As Integer, tRow As Integer, Base()
Base = Range("A51:F80"): tRow = UBound(Base, 1)
Dim pT As Integer, i As Integer, k As Integer
For pT = 0 To (tRow - 30)
RowF = tRow - pT
nStart = RowF - (30 - 1)
nStar5 = RowF - (5 - 1)
Row = RowF
Dim C(33) As Integer
For k = BaseMin To BaseMax
C(k) = 0
For i = nStart To RowF
For N = 1 To BaseNum
If Val(Base(i, N)) = k Then C(k) = C(k) + 1
Next
Next
Next
Dim e(33) As Integer
For k = BaseMin To BaseMax
e(k) = 0
For i = nStar5 To RowF
For N = 1 To BaseNum
If Val(Base(i, N)) = k Then e(k) = e(k) + 1
Next
Next
Next
Dim D(6) As Integer, f(6) As Integer, nNum(10) As Integer, Z As Integer, R As Integer, X As Integer
For k = BaseMin To BaseMax
Hz = 0: R = 0: X = 0
For N = 1 To BaseNum
If Val(Base(RowF, N)) = k Then D(N - 1) = C(k): f(N - 1) = e(k): nNum(N) = k
Z = Z + nNum(N): R = R + D(N - 1): X = X + f(N - 1)
Next
Next
Dim Cs(12) As Integer, Lh(12) As Integer, v As Integer, p As Integer, yNum(10)
For v = 0 To 12
Cs(v) = 0: Lh(v) = 0
For p = 0 To BaseNum - 1
If D(p) = v Then Cs(v) = Cs(v) + 1
If f(p) = v Then Lh(v) = Lh(v) + 1
Next
Next
Cells(Row, 17) = Z: Cells(Row, 18) = R: Cells(Row, 19) = X
Next
ReDim ssjg(0 To 999, 0 To 16)
Dim S As Integer, j As Integer, N1 As Integer, N2 As Integer, N3 As Integer, N4 As Integer, N5 As Integer, N6 As Integer
S = 0
For io = 0 To 7
D(0) = C(io + 1): f(0) = e(io + 1): N1 = io + 1
For i1 = 7 To 9
If i1 > io Then
D(1) = C(i1 + 1): f(1) = e(i1 + 1): N2 = i1 + 1
For i2 = 10 To 24
If i2 > i1 Then
D(2) = C(i2 + 1): f(2) = e(i2 + 1): N3 = i2 + 1
For i3 = 4 To 29
If i3 > i2 Then
D(3) = C(i3 + 1): f(3) = e(i3 + 1): N4 = i3 + 1
For i4 = 10 To 31
If i4 > i3 Then
D(4) = C(i4 + 1): f(4) = e(i4 + 1): N5 = i4 + 1
For i5 = 15 To 32
If i5 > i4 Then
D(5) = C(i5 + 1): f(5) = e(i5 + 1): N6 = i5 + 1
R = 0: Z = 0: X = 0
Z = N1 + N2 + N3 + N4 + N5 + N6
yNum(1) = N1: yNum(2) = N2: yNum(3) = N3: yNum(4) = N4: yNum(5) = N5: yNum(6) = N6
R = (D(0) + 0) + (D(1) + 0) + (D(2) + 0) + (D(3) + 0) + (D(4) + 0) + (D(5) + 0)
X = (f(0) + 0) + (f(1) + 0) + (f(2) + 0) + (f(3) + 0) + (f(4) + 0) + (f(5) + 0)
For v = 0 To 12
Cs(v) = 0: Lh(v) = 0
For p = 0 To BaseNum - 1
If D(p) = v Then Cs(v) = Cs(v) + 1
If f(p) = v Then Lh(v) = Lh(v) + 1
Next
Next
If (R = 25 Or R = 27 Or R = 33) And (Z = 88 Or Z = 94 Or Z = 100 Or Z = 66) And (X = 5 Or X = 7) _
And N1 < N2 And N2 < N3 And N3 < N4 And N4 < N5 And N5 < N6 And (N1 = 1 Or N1 = 3 Or N1 = 5 Or N1 = 6) _
And (N6 = 22 Or N6 = 24 Or N6 = 26 Or N6 = 27 Or N6 = 28 Or Z = 31) And (N2 < 11) Then
If (Cs(2) + Cs(4)) >= 1 And Cs(7) = 0 And Cs(8) >= 1 And Cs(9) <= 1 And Cs(2) <= 2 And Cs(6) >= 1 _
And Cs(5) <= 2 And Cs(6) <= 3 And Cs(4) <= 1 And (Cs(2) >= 2 Or Cs(5) = 2 Or Cs(6) >= 2) _
And Lh(0) >= 2 And Lh(0) <= 3 And Lh(1) >= 1 And Lh(1) <= 2 And (Lh(2) + Cs(3)) >= 1 Then
For N = 1 To BaseNum
ssjg(S, N + 1) = yNum(N)
Next
ssjg(S, BaseNum + 2) = S + 1
ssjg(S, BaseNum + 4) = Z: ssjg(S, BaseNum + 5) = R: ssjg(S, BaseNum + 6) = X
ssjg(S, BaseNum + 7) = "'" & D(0) & D(1) & D(2) & D(3) & D(4) & D(5)
ssjg(S, BaseNum + 8) = "'" & f(0) & f(1) & f(2) & f(3) & f(4) & f(5)
S = S + 1
End If
End If
End If
End If: Next
End If: Next
End If: Next
End If: Next
End If: Next
Next
ssjg(0, 16) = S
'以上程序运行的结果为:
'1 8 19 20 22 24 94 27 645822 020201
'6 8 13 19 20 22 88 27 246582 021020
Application.Calculation = 1
End Sub


1楼
  lcwh5_hXT7 | 发表于2022-04-11 15:25:22
2楼
  方形视界 | 发表于2022-04-11 15:25:59
3楼
  地球人啥都知道 | 发表于2022-04-12 13:28:34
4楼
  天地一线牵 | 发表于2022-04-13 10:22:48
5楼
  爱预测6686 | 发表于2022-04-13 16:38:07
厉害
6楼
  按图索骥 | 发表于2022-04-19 21:37:37
'以上程序运行的结果为:
'1 8 19 20 22 24 94 27 645822 020201:注释:'1 8 19 20 22 24 为预测的6个红球,其和值=94,645822代表这6个红球在近30期内分别出现6、4、5、8、2、2次,27=6+4+5+8+2+2即次数的和值,020201代表这6个红球在近5期内分别出现0、2、0、2、0、1次,5=0+2+0+2+0+1即次数的和值。

'6 8 13 19 20 22 88 27 246582 021020 注释:'6 8 13 19 20 22 为预测的6个红球,其和值=88,246582代表这6个红球在近30期内分别出现2、4、6、5、8、2次,27=2+4+6+5+8+2即次数的和值,021020代表这6个红球在近5期内分别出现0、2、1、0、2、0次,5=0+2+1+0+2+0即次数的和值。
7楼
  按图索骥 | 发表于2022-04-19 22:26:09
条件:
If (Cs(2) + Cs(4)) >= 1 And Cs(7) = 0 And Cs(8) >= 1 And Cs(9) <= 1 And Cs(2) <= 2 And Cs(6) >= 1 _
And Cs(5) <= 2 And Cs(6) <= 3 And Cs(4) <= 1 And (Cs(2) >= 2 Or Cs(5) = 2 Or Cs(6) >= 2) _
And Lh(0) >= 2 And Lh(0) <= 3 And Lh(1) >= 1 And Lh(1) <= 2 And (Lh(2) + Cs(3)) >= 1 Then

先看 (Cs(2) + Cs(4)) >= 1 And Cs(7) = 0 And Cs(8) >= 1 And Cs(9) <= 1 And Cs(2) <= 2 And Cs(6) >= 1And Cs(5) <= 2 And Cs(6) <= 3 And Cs(4) <= 1 And (Cs(2) >= 2 Or Cs(5) = 2 Or Cs(6) >= 2)这部分拆解:
一、Cs(2) <= 2、Cs(2) >= 2,这两个,意思是在30期内红球出现2次个数小于等于2、大于等于2,条件重组后只有等于2即Cs(2) = 2成为条件,就是说在30期内出现2次的红球个数要有2个;
二、 Cs(5) <= 2、Cs(5) = 2,这两个,意思是在30期内红球出现5次个数小于等于2、等于2,条件重组后只有等于2即Cs(5) = 2成为条件,就是说在30期内出现5次的红球个数要有2个;
三、Cs(6) >= 1、Cs(6) >= 2、 Cs(6) <= 3,这三个,意思是在30期内红球出现6次个数大于等于1、大于等于2、小于等于3,条件重组后只有大于等于2且小于等于3即Cs(6) >= 2 And Cs(6) <= 3成为条件,就是说在30期内出现6次的红球个数要有2至3个;
四、Cs(8) >= 1 And Cs(9) <= 1,这两个,条件不变直接引用成为条件,就是说在30期内出现8次的红球至少有1个;出现9次的红球最多有1个;
五、Cs(4) <= 1 And (Cs(2) + Cs(4)) >= 1,这两个,意思是在30期内红球出现4次个数小于等于1、出现2次个数加出现4次个数大于等于1,条件重组后只有即Cs(4) <= 1成为条件,因为Cs(2) = 2,所以(Cs(2) + Cs(4)) >= 1条件成立。就是说在30期内出现4次的红球个数要最多有1个。
六、 Cs(7) = 0, 就是说在30期内出现7次的红球个数有0个。
七、按照上述条件,保留就是说在30期内出现2、3、4、5、6、8、9次的红球,其他出现次数的红球就可以杀掉了。

再看And Lh(0) >= 2 And Lh(0) <= 3 And Lh(1) >= 1 And Lh(1) <= 2 And (Lh(2) + Cs(3)) >= 1这部分拆解:
一、Lh(0) >= 2 And Lh(0) <= 3,这两个,意思是在5期内红球出现0次个数大于等于2、小于等于3,就是说在5期内出现0次的红球个数要有2至3个;
二、And Lh(1) >= 1 And Lh(1) <= 2,这两个,意思是在5期内红球出现1次个数大于等于1、小于等于2,就是说在5期内出现1次的红球个数要有1至2个;
三、(Lh(2) + Cs(3)) >= 1,这两个,意思是在5期内红球出现2次个数加上在30期内红球出现3次个数大于等于1;
8楼
  按图索骥 | 发表于2022-04-19 22:36:30
条件:If (R = 25 Or R = 27 Or R = 33) And (Z = 88 Or Z = 94 Or Z = 100 Or Z = 66) And (X = 5 Or X = 7) 拆解:
一、(R = 25 Or R = 27 Or R = 33),意思是预测结果中的6个红球在30期内红球次数的和值要等于25或者27或者33;
二、(Z = 88 Or Z = 94 Or Z = 100 Or Z = 66),意思是预测结果中的6个红球的和值要等于66或者88或者94或者100;(本人感觉和值有点小,没有100以上的)
三、(X = 5 Or X = 7),意思是预测结果中的6个红球在5期内红球次数的和值要等于5或者7;
9楼
  按图索骥 | 发表于2022-04-19 22:47:11
条件:And N1 < N2 And N2 < N3 And N3 < N4 And N4 < N5 And N5 < N6 ,预测结果中的6个红球要由小到大排序。
条件:And (N1 = 1 Or N1 = 3 Or N1 = 5 Or N1 = 6)And (N6 = 22 Or N6 = 24 Or N6 = 26 Or N6 = 27 Or N6 = 28 Or Z = 31) And (N2 < 11) ,预测结果中的6个红球的第1位要么是1,要么是3,要么是5,要么是6;第2位必须小于11;第6位要么是22,要么是24,要么是26,要么是27,要么是28;
Or Z = 31,意思是预测结果中的6个红球的和值要么等于31。
10楼
  按图索骥 | 发表于2022-04-19 22:52:34
根据上述条件就可以进行缩水预测了,减少了一些不必要的循环。
11楼
  按图索骥 | 发表于2022-04-19 23:02:32
例如:For k = BaseMin To BaseMax
C(k) = 0
For i = nStart To RowF
For N = 1 To BaseNum
If Val(Base(i, N)) = k Then C(k) = C(k) + 1
Next
Next
Next
这个循环,统计30期红球出现次数,好多是无用的循环。
可改为:
For k = BaseMin To BaseMax '1到33循环
C(k) = 0 '33个红球次数初始化0
Next
For i = nStart To RowF '遍历30期红球
For N = 1 To BaseNum '6个奖号
C(Base(i, N)) = C(Base(i, N)) + 1 '30期33个红球出现次数
Next
Next
12楼
  duy3 | 发表于2022-04-20 00:01:48

code:
Sub YangLang_SSQ_30期数据()
rngB = "5,7,10,14,17,25-5,8,10,15,23,26-3,7,13,23,27,30-7,13,17,26,32,33-10,11,13,16,19,30-10,19,20,21,23,32-2,5,11,26,30,32-1,2,14,23,28,29-8,12,20,22,30,33-2,15,19,24,31,32-4,10,16,23,28,30-6,11,18,20,25,30-3,5,12,18,21,23-1,2,9,10,21,31-4,5,23,26,31,32-1,3,12,20,21,29-9,16,17,18,22,27-5,10,16,19,23,28-1,13,15,17,20,30-9,18,19,25,28,31-1,9,14,16,28,32-5,7,12,14,15,20-2,9,16,21,30,31-1,11,13,25,32,33-4,5,6,25,29,30-11,15,18,21,27,29-2,8,12,18,24,28-4,9,11,20,32,33-4,8,12,17,20,30-11,12,13,18,23,32" '开奖号码
sint_A = Split(rngB, "-")
For col = 0 To UBound(sint_A)
sint_Aa = Split(sint_A(col), ",")
For n = 0 To UBound(sint_Aa)
Cells(col + 51, n + 1) = sint_Aa(n)
Next
Next
End Sub
Sub YangLang_SSQ(ssjg() As String)
Application.Calculation = 3
Dim startTimer As Double
startTimer = Timer
Dim BaseMin As Integer, BaseMax As Integer, BaseNum As Integer
BaseMin = 1: BaseMax = 33: BaseNum = 6
Dim col As Integer, n As Integer, tRow As Integer, Base()
Base = Range("A51:F80"): tRow = UBound(Base, 1)
Dim pT As Integer, i As Integer, k As Integer
For pT = 0 To (tRow - 30)
RowF = tRow - pT
nStart = RowF - (30 - 1)
nStar5 = RowF - (5 - 1)
Row = RowF
Dim c(33) As Integer, e(33) As Integer
For k = BaseMin To BaseMax
c(k) = 0: e(k) = 0
Next
For i = nStart To RowF
For n = 1 To BaseNum
c(Base(i, n)) = c(Base(i, n)) + 1
Next
Next
For i = nStar5 To RowF
For n = 1 To BaseNum
e(Base(i, n)) = e(Base(i, n)) + 1
Next
Next

Dim d(6) As Integer, f(6) As Integer, Z As Integer, R As Integer, X As Integer
Hz = 0: R = 0: X = 0
For n = 1 To BaseNum
k = Base(RowF, n): Z = Z + k: d(n - 1) = c(k): f(n - 1) = e(k): R = R + d(n - 1): X = X + f(n - 1)
Next
Dim Cs(12) As Integer, Lh(12) As Integer, v As Integer, p As Integer, yNum(10)
For v = 0 To 12
Cs(v) = 0: Lh(v) = 0
For p = 0 To BaseNum - 1
If d(p) = v Then Cs(v) = Cs(v) + 1
If f(p) = v Then Lh(v) = Lh(v) + 1
Next
Next
Cells(Row, 17) = Z: Cells(Row, 18) = R: Cells(Row, 19) = X
Next
ReDim ssjg(0 To 999, 0 To 16)
Dim S As Integer, j As Integer, N1 As Integer, N2 As Integer, N3 As Integer, N4 As Integer, N5 As Integer, N6 As Integer
S = 0
For io = 0 To 7
d(0) = c(io + 1): f(0) = e(io + 1): N1 = io + 1
For i1 = 7 To 9
If i1 > io Then
d(1) = c(i1 + 1): f(1) = e(i1 + 1): N2 = i1 + 1
For i2 = 10 To 24
If i2 > i1 Then
d(2) = c(i2 + 1): f(2) = e(i2 + 1): N3 = i2 + 1
For i3 = 4 To 29
If i3 > i2 Then
d(3) = c(i3 + 1): f(3) = e(i3 + 1): N4 = i3 + 1
For i4 = 10 To 31
If i4 > i3 Then
d(4) = c(i4 + 1): f(4) = e(i4 + 1): N5 = i4 + 1
For i5 = 15 To 32
If i5 > i4 Then
d(5) = c(i5 + 1): f(5) = e(i5 + 1): N6 = i5 + 1
R = 0: Z = 0: X = 0
Z = N1 + N2 + N3 + N4 + N5 + N6
yNum(1) = N1: yNum(2) = N2: yNum(3) = N3: yNum(4) = N4: yNum(5) = N5: yNum(6) = N6
R = (d(0) + 0) + (d(1) + 0) + (d(2) + 0) + (d(3) + 0) + (d(4) + 0) + (d(5) + 0)
X = (f(0) + 0) + (f(1) + 0) + (f(2) + 0) + (f(3) + 0) + (f(4) + 0) + (f(5) + 0)
For v = 0 To 12
Cs(v) = 0: Lh(v) = 0
For p = 0 To BaseNum - 1
If d(p) = v Then Cs(v) = Cs(v) + 1
If f(p) = v Then Lh(v) = Lh(v) + 1
Next
Next
If (R = 25 Or R = 27 Or R = 33) And (Z = 88 Or Z = 94 Or Z = 100 Or Z = 66) And (X = 5 Or X = 7) _
And N1 < N2 And N2 < N3 And N3 < N4 And N4 < N5 And N5 < N6 And (N1 = 1 Or N1 = 3 Or N1 = 5 Or N1 = 6) _
And (N6 = 22 Or N6 = 24 Or N6 = 26 Or N6 = 27 Or N6 = 28 Or Z = 31) And (N2 < 11) Then
If (Cs(2) + Cs(4)) >= 1 And Cs(7) = 0 And Cs(8) >= 1 And Cs(9) <= 1 And Cs(2) <= 2 And Cs(6) >= 1 _
And Cs(5) <= 2 And Cs(6) <= 3 And Cs(4) <= 1 And (Cs(2) >= 2 Or Cs(5) = 2 Or Cs(6) >= 2) _
And Lh(0) >= 2 And Lh(0) <= 3 And Lh(1) >= 1 And Lh(1) <= 2 And (Lh(2) + Cs(3)) >= 1 Then
For n = 1 To BaseNum
ssjg(S, n + 1) = yNum(n)
Next
ssjg(S, BaseNum + 2) = S + 1
ssjg(S, BaseNum + 4) = Z: ssjg(S, BaseNum + 5) = R: ssjg(S, BaseNum + 6) = X
ssjg(S, BaseNum + 7) = "'" & d(0) & d(1) & d(2) & d(3) & d(4) & d(5)
ssjg(S, BaseNum + 8) = "'" & f(0) & f(1) & f(2) & f(3) & f(4) & f(5)
S = S + 1
End If
End If
End If: Next
End If: Next
End If: Next
End If: Next
End If: Next
Next
ssjg(0, 16) = S
'以上程序运行的结果为:
'1 8 19 20 22 24 94 27 645822 020201
'6 8 13 19 20 22 88 27 246582 021020
Application.Calculation = 1
End Sub


13楼
  天地一线牵 | 发表于2022-04-20 09:11:06
'1 8 19 20 22 24 94 27 645822 020201[94 27 645822 020201]
'6 8 13 19 20 22 88 27 246582 021020[88 27 246582 021020]
后面这部分没看懂,请指教!
14楼
  按图索骥 | 发表于2022-04-20 10:42:29


'1 8 19 20 22 24 94 27 645822 020201
注释:'1 8 19 20 22 24 为预测结果即6个红球,1+8+19+20+22+24=94是这6个红球的和值,645822代表这6个红球在近30期内分别出现6、4、5、8、2、2次,即红球1出现6次、8出现4次、19出现5次、20出现8次、22出现2次、24出现2次,27=6+4+5+8+2+2即次数的和值,020201代表这6个红球在近5期内分别出现0、2、0、2、0、1次,即红球1出现0次、8出现2次、19出现0次、20出现2次、22出现0次、24出现1次。5=0+2+0+2+0+1即次数的和值。
15楼
  天地一线牵 | 发表于2022-04-20 10:49:36
按图索骥
16楼
  天地一线牵 | 发表于2022-04-20 10:50:18
没看懂缩水原理,请指教!
17楼
  duy3 | 发表于2022-04-20 13:52:12
If (Cs(2) + Cs(4)) >= 1 And Cs(7) = 0 And Cs(8) >= 1 And Cs(9) <= 1 And Cs(2) <= 2 And Cs(6) >= 1 _
And Cs(5) <= 2 And Cs(6) <= 3 And Cs(4) <= 1 And (Cs(2) >= 2 Or Cs(5) = 2 Or Cs(6) >= 2) _
And Lh(0) >= 2 And Lh(0) <= 3 And Lh(1) >= 1 And Lh(1) <= 2 And (Lh(2) + Cs(3)) >= 1 Then

If
(Cs(2) + Cs(4)) >= 1 And
Cs(4) <= 1 And
Cs(7) = 0 And
Cs(8) >= 1 And
Cs(9) <= 1 And
Lh(0) >= 2 And
Lh(0) <= 3 And
Lh(1) >= 1 And
Lh(1) <= 2 And
(Lh(2) + Cs(3)) >= 1 And

Cs(2) <= 2 And
Cs(5) <= 2 And
Cs(6) >= 1 And Cs(6) <= 3 And
(Cs(2) >= 2 Or Cs(5) = 2 Or Cs(6) >= 2) 这个是三个满足任意一个就成立,前面的单独的这三个是必须在设置的范围内
Then
18楼
  高兴问彩 | 发表于2022-04-21 11:03:36
老师,这个思路十分好,但我用在蓝精灵软件上无法实现,请老师帮助用在什么软件上能实现?谢谢!
19楼
  东方工 | 发表于2022-08-13 09:21:50
'以上程序运行的结果为:
'1 8 19 20 22 24 94 27 645822 020201
'6 8 13 19 20 22 88 27 246582 021020

运行的结果在哪显示????
20楼
  东方工 | 发表于2022-08-31 10:45:34
哪显示????{:new002:}
21楼
  lch5_wQvHO6LZ | 发表于2022-09-14 05:45:32
老师,怎么关注你
22楼
  lch5_wQvHO6LZ | 发表于2022-09-14 05:45:32
老师,怎么关注你
23楼
  荷塘阅色 | 发表于2022-09-14 08:11:55
,佩服,佩服。
24楼
  道友虫二 | 发表于2022-09-14 11:35:52
25楼
  mak7909 | 发表于2022-09-18 21:44:00
看不懂C语言,尴尬
26楼
  duy3 | 发表于2022-09-22 17:40:45






27楼
  ax88 | 发表于2022-09-23 17:51:33
路过,看看。
28楼
  rjr124 | 发表于2022-10-29 20:38:07
29楼
  rjr124 | 发表于2022-10-29 20:38:12
共34条2页 30条/页首页上一页第1页下一页尾页
参与原帖交流,请访问:

http://bbs.17500.cn/thread-8893385-1-1.html

访问本站表明您同意:本站提供的资料和数据仅供您参考,请您在使用前核实并慎重对待,因此受到的任何损失,乐彩网不承担任何责任。
© 2004-2023 版权所有 京ICP备13046446号-1 | 京公网安备11011202001644号