万字票全打VBA编程

rcyaw2

google找不到,就自己写个:Sub list_permu()
Dim n As String
Dim i, ii, iii, iiii, c As Integer
Dim l As String
Dim d(4) As String
n = "5678"
d(1) = Mid$(n, 1, 1)
d(2) = Mid$(n, 2, 1)
d(3) = Mid$(n, 3, 1)
d(4) = Mid$(n, 4, 1)


For i = 1 To 4
For ii = 1 To 4
For iii = 1 To 4
For iiii = 1 To 4
    If d(i) <> d(ii) And d(ii) <> d(iii) And d(iii) <> d(iiii) And d(i) <> d(iiii) And _
    d(i) <> d(iii) And d(ii) <> d(iiii) Then
    l = l & d(i) & d(ii) & d(iii) & d(iiii) & ","
    c = c + 1
    End If

Next
Next
Next
Next
Debug.Print l
Debug.Print "c = " & c
End Sub

城之内

哈哈。。不错下。。。

rcyaw2

放在excel VBA就可以跑了。万字票程序是我最拿手的，
可以帮忙你写一个，收费是RM9990
而已，正在做分析软件。

ck07

google找不到,就自己写个:Sub list_permu()
Dim n As String
Dim i, ii, iii, iiii, c As Integer
Dim l ...
rcyaw2 发表于 16-5-2012 01:58 PM

    老板。。。请问你这个东西要怎样RUN的 ？

谢谢

mengmeng1288

那只是一部分，给人看罢了

hooi1983

放在excel VBA就可以跑了。万字票程序是我最拿手的，
可以帮忙你写一个，收费是RM9990
而已，正在做分析软 ...
rcyaw2 发表于 21-5-2012 01:21 PM

需不需要酱贵？又不是很难写。Javascript 的大把。。。


http://scriptar.com/JavaScript/permute.html

ryusukekenji

倘若对于体育统计学有兴趣的话，可以浏览【体育统计学社区】交流哦！
http://soccer.oksport.cn

k-1

google找不到,就自己写个:Sub list_permu()
Dim n As String
Dim i, ii, iii, iiii, c As Integer
Dim l ...
rcyaw2 发表于 16-5-2012 01:58 PM

  
  这个程式只是针对4个完全不同的号码，如果出现2个或以上一样的号码，例如. 5578 （12组）就不可以了。。

rcyaw2

我只是展示一部分，完全的我已经写好了。

alexyen

本公司提供万字投注系统出租与开发，有兴趣可以联络我。。。
系统主要语言为.net(website) +java(mobile apps)
011-28626898(Desmond)

jasonkidz

哈哈哈哈
不错下
完整的可以放出来吗

Fortuna11

你是学生吗？

teckyuan

我帮你design web service....
开个价....我卖给你....
我已经做好了....

012 7928182

charlieooi88

urgent 我正在寻找制做mobile app的人，freelancer或公司都行.
请联络我，charlieooi@yahoo.com.sg 谢谢.