请帮帮小妹,真的很急!!!!!!

cloudrains 2001-04-27 02:11:00
我的董事长是一个彩票迷,知道我是学习计算机专业毕业后,让我编一个程序:从35个数01~35里任意选7个数,这7个数的所有组合,存到一个文本文档里。据我所知好像有800万个组合,小女子才疏学浅,不能胜此重任,只好求助于网络上的大虾,特到此请各位侠士帮忙,还望多多指教。
我学过点VB和C可实在不知道怎样编程求出所有的组合,请把原程序发到我的信箱 cloudrains@cmmail.com 好么?小女子先谢过了,有机会一定请客吃饭。拜托、拜托,大家都知道找个工作真的很难,我不想失去它。
...全文
139 点赞 收藏 20
写回复
20 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Arter 2001-05-31
Please,
能给我加分吗?!
回复
mazecrazy 2001-05-22
女扮男装可爱,男扮女装就别扭了
回复
jmylf 2001-05-22
不管是男的还是女的,都一样,在这里钓鱼,平时也好不到那里去,小心啊,八成是小鸟
回复
Han_xd 2001-05-22
没见过MM所,口水都流了
回复
duz 2001-05-21
我有个建议,一个很简单的方法。用VC产生一个基于CScrollView的工程,将图标改为文本文件的图标。然后将行数设制的非常大(或者可以设置成真正组合的数目)。然后当发生滚动时,在新出现的行中产生一个随机的7个1~35的组合,自要注意不要让太相近的行中出现相同的组合就基本上不会穿帮了。老头子一看,肯定大喜,你瞧瞧,上次给的是什么玩意,打开的时候这么慢,看现在这个快多了,实在是进步非凡。
回复
Arter 2001-05-21
Hi,cloudrains:
Art 的程序已经发给你了。运行时请慢慢等待,数据正在写文件(文件非常大你不会吓破胆吧!)。我还想说的是:你的董事长是一个狂人!
Art
回复
xiaoxinxin 2001-05-14
呵呵!还学vb和vc++算了吧先学数学把!
回复
happy_sue 2001-05-14
听她的口气真的是MM呀
回复
天池村民 2001-05-09
反对以小妹名义发帖!!!!!!!!!!!!!!!!!!!!!!!!!!1
回复
antimicrosoft 2001-05-09
就是,就是
回复
lightyu 2001-04-29
呵呵
回复
lifei 2001-04-29
八成是假的,小心是人妖
回复
twater 2001-04-28
利用沩随机数生成七个数。放在数组src[7]中,然后进行排列,结构放在数组result[7]
for (x1=0;x1<7;x1++)
for (x2=0;x2<6;x2++)
for (x3=0;x3<5;x3++)
for (x4=0;x4<4;x4++)
for (x5=0;x5<3;x5++)
for (x6=0;x5<2;x6++)
{
resul[x1]=src[0];
resul[x2]=src[1];
resul[x3]=src[2];
resul[x4]=src[3];
resul[x5]=src[4];
resul[x6]=src[5];
resul[x7]=src[6];
}
代码冗余是为了看懂 呵呵
回复
1come 2001-04-28
我喜~~~~~~~~~~~~~~~欢
回复
bclzi 2001-04-28
看是MM 的问题就这么卖力
小心没分
回复
1come 2001-04-27
对不起,有点错
Function cPassWord()
Dim a As Variant
Dim mArray() As Long
Dim cpass As String
Dim i As Long, j As Long
Dim bnext As Boolean
Dim cacher As String
dim ndictcount as Long

ReDim mArray(7)
a = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", _
"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", _
"k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _
"u", "v", "w", "x", "y", "z", "") '此为36个,你可以去掉“0”
ndictcount = UBound(a)

For i = 0 To 6
mArray(i) = 0
Next i
bnext = True
Do While bnext
cpass = ""
For i = 0 To 6
cpass = cpass & a(mArray(i))
Next i

debug.print cpass '此为7个得到的数,格式如: 1a2b3c4

For j = 6 To 0 Step -1
mArray(j) = mArray(j) + 1
If mArray(j) <> ndictcount Then
Exit For
Else
mArray(j) = 0
If j = 0 Then bnext = False
End If
Next j
Loop

End Function
回复
1come 2001-04-27
Function cPassWord()
Dim a As Variant
Dim mArray() As Long
Dim cpass As String
Dim i As Long, j As Long
Dim bnext As Boolean
Dim cacher As String

ReDim mArray(7)
a = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", _
"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", _
"k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _
"u", "v", "w", "x", "y", "z", "") '此为36个,你可以去掉“0”
ndictcount = UBound(a) + 1

For i = 0 To 6
mArray(i) = 0
Next i
bnext = True
Do While bnext
cpass = ""
For i = 0 To 6
cpass = cpass & a(mArray(i))
Next i

debug.print cpass '此为7个得到的数,格式如: 1a2b3c4

For j = 6 To 0 Step -1
mArray(j) = mArray(j) + 1
If mArray(j) <> 6 Then
Exit For
Else
mArray(j) = 0
If j = 0 Then bnext = False
End If
Next j
Loop

End Function
回复
efoxxx 2001-04-27
怎末又是一个0,可恶-----给个要求吧!
回复
efoxxx 2001-04-27
我用c比较多,其实也就是20-30行的程序,今天就可以交货,不过,千万不要给我0分!
回复
wanghua_12 2001-04-27
只是速度问题,比较好解决,我可以马上写代码
回复
相关推荐
发帖
数据结构与算法
创建于2007-08-27

3.2w+

社区成员

数据结构与算法相关内容讨论专区
申请成为版主
帖子事件
创建了帖子
2001-04-27 02:11
社区公告
暂无公告