王小石进来接分!!

windowlinux 2003-06-12 09:11:11
上几天帮了我忙,我今天来给分!呵呵,同时还有个问题,还是彩票的问题。
我要做一个21选5的彩票,这次不分顺序,
从0 到21 取出5个数,不分顺序。

规则是这样的,在窗口上有5个sle_1.text,用户输入彩票要包含的数字,可能是一位,或2位..或5位,之后程序列出所有包含用户输入数字的彩票,并可打印。

例如:用户输入:2,5,14,21 这四个数,则包含这4个数的可能有(不分顺序,即组合)
1,2,5,14,21,
3,2,5,14,21
4,2,5,14,21 ,,,
数字不允许重复,如:
2,2,5,14,21是错误的。呵呵,给个代码吧!!!
...全文
25 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
Thinkinger 2003-06-13
  • 打赏
  • 举报
回复
感动!!!!!!555555555……
windowlinux 2003-06-13
  • 打赏
  • 举报
回复
呵呵,我来了!!刚刚看到,谢谢王小石!1如果没问题,马上结帖,外加100分!!
llllay 2003-06-13
  • 打赏
  • 举报
回复
支持所有热心人
tchatcha 2003-06-13
  • 打赏
  • 举报
回复
支持王小石
rogery 2003-06-13
  • 打赏
  • 举报
回复
让我再感动一次吧


55
waterstony 2003-06-12
  • 打赏
  • 举报
回复
看起来你做的那个东西很有搞头啊。给你一段代码吧,写得恶心了点,将就用吧,答案是正确的,速度也够快

String ls_user_imput[] = {'2','3','12'}//由用户输入,可以是1到5个数
String ls_user_left[]
String ls_output[]

Long ll_user_left[]
Boolean flag
Long ll_r , ll_n
Long i,j,k,l

k = 1
for i = 1 to 21
flag = true
for j = 1 to upperbound(ls_user_imput)
if String(i) = ls_user_imput[j] then
flag = false
exit
end if
next

if flag then
ls_user_left[k] = String(i)
k++
end if
next


for i = 1 to 5 - upperbound(ls_user_imput)
ll_user_left[i] = i
next


ll_r = upperbound(ll_user_left)
ll_n = upperbound(ls_user_left)


k = 1
flag = true
do
for l = 1 to upperbound(ls_user_imput)
ls_output[k] = ls_output[k] + ls_user_imput[l] + ','
next
for l = 1 to ll_r
ls_output[k] =ls_output[k] + ls_user_left[ll_user_left[l]] + ','
next
k++

i = ll_r

Do While i > 0
if ll_user_left[i] = ll_n - ll_r + i then
i --
else
exit
end if
Loop

if i <= 0 then
flag = false
continue
end if


ll_user_left[i] = ll_user_left[i] + 1

for j = i + 1 to ll_r
ll_user_left[j] = ll_user_left[i] + j - i
next

loop until not flag


dw_1.Object.ddd.primary = ls_output


windowlinux 2003-06-12
  • 打赏
  • 举报
回复
明天我在来等吧!!晚安!
windowlinux 2003-06-12
  • 打赏
  • 举报
回复
我等,在线等!!!
rogery 2003-06-12
  • 打赏
  • 举报
回复
看来楼主是中国福利事业和体育事业的忠实者
mmmmmmmmmm2927 2003-06-12
  • 打赏
  • 举报
回复
up
andyzq 2003-06-12
  • 打赏
  • 举报
回复
rand()函数
rogery 2003-06-12
  • 打赏
  • 举报
回复
我来占楼顶


等王小石^^^^^^^^^^^^^^^^^^^^^


UP

1,072

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧