求双色球和大乐透都可以用的AC计算器
发布网友
发布时间：2022-04-24 08:59
共1个回答
热心网友
时间：2022-05-23 14:38
'下列代码复制到记事本，选另存为
XXX.VBS
脚本文件，就可运行，若杀毒软件报危险，那纯粹是扯蛋,
dim
i,j,k
dim
aa(6),bb(15)
for
k=1
to
6
sj="请输入第
"
&
k
&
"
位号码"
aa(k)=inputbox(sj)
next
bb(1)=aa(2)
-
aa(1)
bb(2)=aa(3)
-
aa(1)
bb(3)=aa(4)
-
aa(1)
bb(4)=aa(5)
-
aa(1)
bb(5)=aa(6)
-
aa(1)
bb(6)=aa(3)
-
aa(2)
bb(7)=aa(4)
-
aa(2)
bb(8)=aa(5)
-
aa(2)
bb(9)=aa(6)
-
aa(2)
bb(10)=aa(4)
-
aa(3)
bb(11)=aa(5)
-
aa(3)
bb(12)=aa(6)
-
aa(3)
bb(13)=aa(5)
-
aa(4)
bb(14)=aa(6)
-
aa(4)
bb(15)=aa(6)
-
aa(5)
for
i=1
to
14
for
j=i
+
1
to
15
if
bb(i)=bb(j)
then
bb(j)=0
next
next
for
i
=1
to
15
if
bb(i)
<>
0
then
tt=tt
+
1
next
msgbox
"AC值为："
&
tt
-
5
