用VB编写计算彩票奖励问题

'需要控件:command1

Private Sub Command1_Click()

Dim Sum As Long

For i = 0 To 9999

DoEvents

For j = 1 To Len(i)

Select Case UBound(Split(Str(i), Mid(Str(i), j, 1)))

Case 2: Sum = Sum + 10

Case 3: Sum = Sum + 100

Case 4: Sum = Sum + 1000

Case Else

End Select

Me.Caption = Sum

Next j

Next i

' 结果为:170640 此结果,,不考虑,相同的是否不相领 如 3313此号,也为中了100元

Me.Caption = Sum

End Sub

四个数4D彩票主要有在网上购买和在彩票销售站点购买两种方式。在网上购买的话可以通过官方指定的网站、手机APP或其它移动端购买；而在彩票销售中心购买，就是在销售点出示有效证件，现金或者yhk购买即可。

3D彩票复式投入有4个号码的。

根据我国现行彩票管理规定，彩票公益金来源于彩票发行销售收入和逾期未兑奖的奖金。彩票发行销售收入中，根据不同彩票品种，彩票公益金提取比例有所不同。

主要有以下4种类型：一是以双色球、超级大乐透、3D、排列三等为主的乐透数字型彩票，二是即开型彩票，三是以中福在线为主的视频型彩票，四是以足球彩票为主的竞猜型彩票。在广东，彩票公益金的使用也大大助力了养老事业。

福利彩票是国家公益彩票，公益是福彩的本质属性。彩票发行的目的是吸收和重新分配社会的闲散资金，协调社会的矛盾和关系，使彩票具有了一种特殊的地位和价值。

多年来公益金用于“扶老、助残、救孤、济困、赈灾”的实践效果，福利彩票的公益形象得到了公众的高度认同，公益资金也进一步支持公益事业的发展，公益慈善成为福利彩票鲜明的旗帜。

---