python 编写一个彩票游戏？

按照题目要求编写的Python程序如下

import random

numlist=random.sample(range(0,10),5)

while numlist[0]==0:

  numlist=random.sample(range(0,10),5)

num=int(''.join([str(i) for i in numlist]))

inputnum=int(input("输入号："))

bonus=0

count=0

if inputnum==num:

bonus=10000

else:

for i in set(str(inputnum)):

if int(i) in numlist:

count+=1

bonus=1000*count

print("彩票号：%d" % num)

print("奖金：%d元" % bonus)

源代码(注意源代码的缩进)

抖音推荐：可向开店的所在地的市彩票中心咨询，申请。

初期投入资金会在5—8万元左右。现在加盟是晚了点，基本上是饱和状态了。现在许多城市已经开始实行末位淘汰制度了，对彩票站的销量要求也高了。但每个地方是不同的。利润一般是销售额的7%。现在很难办，都是“潜规则”，除了正常途径，如果你能通过关系“走后门”，会容易些。 现在给你一些流程看看参考一下。以当地的为准。

（爱上3d 整理）

具体程序、费用、要求如下，作个参考吧： （一）场地要求 1、申请人必须要有固定产权的门面或者有租赁权的门面一间； 面积不低于10平米； 2、必须专业经营福利彩票，不得从事其它非福利彩票经营。 （二）申请人员要求: 1、必须是具有独立民事行为的个人或者企业单位； 2、必须具有初中及其以上文化，年龄不超过60岁； 3、必须是业主本人或者其家属投资经营； 4、必须通过市福彩中心组织的对业主彩票经营能力的相关考核 （三）申办流程 1、申请者本人到南岸区福彩工作站填写《新建福彩站点申请审批表》； 2、带本人身份z复印件、房屋产权说明书或者房屋租赁合同复印件，担保人身份z复印件。(担保人不能是夫妻关系)； 3、福彩工作站受理了业主的建站申请以后，五个工作日内到该新建站点实地考察，看是否与现有投注站冲突，看是否在该地段可新建投注站，并最终将勘察意见上报市福彩中心市场二部； 4、如果站点地段审核通过，业主经营能力考试成绩合格，福彩中心会通知申请者到市福彩中心办理建站手续。办理建站手续时，需带上申请者本人身份z复印件、投注机押金、房屋租赁协议复印件（或房屋产权书复印件）。 （四）投注站缴纳押金及提成情况： 1、投注站经营是按照销售量的7.5%提取收益的。（福彩专卖店标准）。投注站自行租赁的门面费用、聘请销售员等费用由业主自行承担。 2、为防止资金风险，新建投注站需一次性缴纳20000元押金，待该站撤销时全部退还。（主城区标准） 3、投注站自办理之日起，必须缴纳100元/月的机器折旧费（每月交福彩中心），60元/月的电信网络费用（每月交当地电信局），机器保险费用80元/年（每年一次，交福彩中心）。 4、投注机设备维修、维护目前免费，投注站耗材使用目前免费，彩票经营不办理工商税务执照，目前不缴纳各项税费。 5、站点申请者不分性别、职业，目前是独立申办，优胜劣汰、公平竞争，在同等条件下，优先考虑下岗、失业人员。..

新建一个单窗体的工程，在上面画出七个TEXTBOX，最好是一个控件数组，这样编程时容易控制，再建一个COMMOND BUTTON，将CAPTION改为“随机产生”。在程序运行后，每点击一下COMMAND1，将随机产生一组数字并按从小到大的顺序显示在文本框中。下面就是程序部分：Dim NumArray(1 To 7) As Integer′通用中定义

Private Sub Command1_Click()

Dim i, j, N As Integer

For i = 1 To 7

NumArray(i) = 0

Next i

Randomize

NumArray(1) = Fix(1 ＋ 32 ＊ (Rnd()))

j = 1

Do

N = Fix(1 ＋ 32 ＊ (Rnd()))

For i = 1 To j

If N = NumArray(i) Then

Exit For ′重复时

ElseIf i = j Then ′未重复时

NumArray(i ＋ 1) = N

j = j ＋ 1

Exit For

End If

Next i

Loop While j <7

PopSort ′升序排列

For i = 1 To 7

Text1(i － 1).Text = NumArray(i)

Next i

End Sub

Private Sub PopSort() ′气泡排序法

Dim i, j, Temp As Integer

For i = 7 To 2 Step －1

For j = 7 － 1 To 1 Step －1

If i >= 7 － j ＋ 1 Then

If NumArray(j ＋ 1) <NumArray(j) Then

Temp = NumArray(j)

NumArray(j) = NumArray(j ＋ 1)

NumArray(j ＋ 1) = Temp

End If

End If

Next j

Next i

End Sub

---