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

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

如果使用楼上的代码的话,你的datagrid里面原先显示的内容就没有了,就变成一个和了,为了使datagrid显示的内容不变化,我特意给你写了如下代码:

Private Sub Command1_Click()

Dim sum As Double'sum就是所有的和

sum = 0 '先给赋值为0

Adodc1.Recordset.MoveFirst

Do While Not Adodc1.Recordset.EOF '从开始一直到结尾,累加

sum = sum + Adodc1.Recordset.Fields("材料成本")

Adodc1.Recordset.MoveNext

Loop

Text1.Text = Str(sum) '保存到text1中去

Adodc1.Recordset.MoveFirst

End Sub

楼主,虽然上面的方法就能解决问题,但是我还是建议你用adodb,别老是用adodc

我又把adodb的代码写好了:

Private Sub Command1_Click()

Dim cnn As New ADODB.Connection '首先定义adodb两大件

Dim rs As New ADODB.Recordset

Dim myCnnStr As String 'mycnnstr就是连接字符串,楼主根据自己情况自己改下

Dim SQL As String

myCnnStr = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" _

&"C:\Documents and Settings\Administrator\桌面\data.mdb" _

&"Persist Security Info=False"

SQL = "select sum (材料成本) as 总价 from 表" '这个就是连接字符串

cnn.Open myCnnStr '打开连接

rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic'执行sql语句

Text1.Text = rs.Fields("总价") '把总和填到text1中去

rs.Close: cnn.Close '关闭连接

Set rs = Nothing: Set cnn = Nothing

End Sub

第一章 总则

第一条 为规范公司成本核算工作，提高成本核算的准确性和及时性，制定本办法。

第二条 公司的控股子公司可自行制定成本核算办法，报公司批准后执行。

第二章 成本开支范围

第三条 为生产商品和提供劳务而发生的直接材料、直接工资、其他直接支出和制造费用计入制造成本。

1. 直接材料：指生产商品产品和提供劳务过程中所消耗的，直接用于产品生产，构成产品实体的原料及主要材料、外购半成品、以及有助于产品形成的辅助材料和其他直接材料。

2. 直接工资：指在生产商品产品和提供劳务过程中，直接参加产品生产的工人工资以及按生产工人工资总额和规定比例计算提取的职工福利费。

3. 燃料及动力：指直接用于产品生产的外购燃料和水、电、汽、冷动力费用。

4. 制造费用：指应由产品制造成本负担的，不能直接计入各产品成本的有关费用，主要指各生产车间管理人员的工资、奖金、津贴、补贴，职工福利费，生产车间房屋建筑物、机器设备等的折旧费，租赁费（不包括融资租赁费），修理费、机物料消耗、低值易耗品摊销，取暖费（降温费），水电费，办公费，差旅费，运输费，保险费，设计制图费，试验检验费，劳动保护费，修理期间的停工损失以及其他制造费用。

第四条 下列各项支出不得计入成本：

1. 资本性支出，即购置和建造固定资产和其他资产的支出。

2. 对外投资的支出。

3.无形资产受让开发支出。

4. 违法经营罚款和被没收财产损失。

5. 税收滞纳金、罚金、罚款。

6. 灾害事故损失赔

7. 各种捐赠支出。

8. 各种赞助支出。

9. 分配给投资者的利润。

10. 国家规定不得列入成本的其他支出。

第三章 成本核算的任务、原则

第五条 公司成本核算的任务是：

1. 认真执行国家有关成本开支范围和费用开支标准，合理归集与核算生产经营过程中发生的各项费用，正确计算产品成本并根据公司内部经营管理需要和有关部门的要求，及时准确地提供成本报告和有关分析资料。

2. 监督成本费用发生的合规性和合理性。

3. 促进企业改善经营管理，降低生产耗费，提高经济效益。

第六条 成本核算工作的原则

1. 按照统一领导、分级管理的原则，建立健全适应市场竞争和内部管理需要的成本费用核算体制。

2. 开展成本费用核算工作，加强对二级核算单位以及班组成本核算的组织与管理。

3. 成本费用核算工作必须在不断加强与完善各项基础管理工作的前提下进行，使成本费用的核算具有可靠的基础。

4. 成本费用计算期应与会计核算期一致，规定为每年1月1日到12月31日，每月1日至当月末。计入当月成本的费用要素消耗和产品产量的起止日期须与成本计算期保持一致，不得提前和延后。

5. 成本核算必须坚持权责发生制的原则，应真实准确反映特定会计期间的成本水平的经营成果。

6. 成本核算须划清本期成本与下期成本的界限、在产品与产成品的界限、各种产品之间的成本界限。

7. 根据计算期内完工验收入库的产品数量、实际消耗和实际价格，计算产品的实际成本，不得以估计成本、目标成本代替实际成本。按计划成本、定额成本进行核算的，应在月末调整为实际成本。

8. 遵循谁受益谁承担费用的原则确定成本核算对象，对生产和经营过程中发生的各项费用，应设置成本费用账册，以审核无误手续齐备的原始凭证为依据，对成本项目在各成本核算与管理对象间进行分配，做到真实、准确、完整、及时。

9. 公司成本核算中的各项具体方法（包括材料计价、价差调整、费用分配方法、完工产品和在产品成本计算等），前后各期必须一致，不得随意变更。如需变更，应报经主管部门批准，并将变更的原因及其对成本费用和财务状况的影响，在当期的会计报告中加以说明。

第四章 生产费用的分类、归集、分配

第七条 生产费用按经济内容（或性质）分类称为生产费用要素。

1. 外购材料： 指为进行生产经营而耗用的一切从外部购进的原材料及主要材料、半成品、辅助材料、包装物、修理用备件和低值易耗品等。

2. 外购燃料： 指为进行生产经营而耗用的一切外部购进的各种燃料，包括固体、液休和气体燃料。

3. 外购动力： 指为进行生产经营而耗用的由外部购进的各种动力。

4. 工资 ：指应计入生产费用的职工工资。

5. 计提的职工福利费：指按照工资总额的规定比例14%计提的职工福利费。

6. 折旧费：指各生产单位房屋建筑物、机器设备等固定资产按照规定的折旧率计算提取的折旧费用。

7. 修理费：指按照确定并备案的提存率预提的房屋建筑物、机器设备等各类固定资产的大中小修理费用或直接计入生产费用的修理费用。

8. 利息支出：指应计入生产费用的银行借款利息支出减利息收入后的净额。

9. 税金：指应计入生产费用的各种税金，包括房产税、车船使用税、土地使用税、印花税等。

10. 其他支出：指不属于以上各要素的费用支出。如物耗和非物耗等。

第八条 生产费用按经济用途分类称为成本项目。公司成本项目规定如下：

1. 直接材料：直接用于生产构成产品实体的各种原料、主要材料和外购半成品以及有助于产品形成并具有消耗定额的辅助材料，另外包括包装物。

2. 燃料及动力：指直接用于产品生产的外购和自制的各种燃料和动力。

3. 工资及福利费：直接参加产品生产的工人工资以及按规定比例计提的职工福利费。

4. 制造费用：指各单位为组织和管理生产所发生的各种费用，包括：

(1) 工资：指车间生产工人以外的管理人员、辅助工人、勤杂人员的工资。

(2) 职工福利费：指按上述人员工资的14%提取的职工福利费。

(3) 折旧费：指车间使用的各类固定资产提取的折旧费。

(4) 修理费：指车间维修各类固定资产和低值易耗品所发生的修理费用。

(5) 办公费：指车间发生的文具、纸张、印刷品等办公费用。

(6) 水电费：指车间非工艺过程用水和照明用电的费用。

(7) 取暖费用：指车间应分担的采暖费用，不包括支付职工取暖费津贴。

(8) 租赁费：指车间从外部租入各种固定资产和工具而支付和租金。

(9) 差旅费：指车间因公外出的各种差旅费、市内交通费。

(10) 机物料消耗：指车间非直接用于产品、劳务的一般消耗材料，不包括 修理费用、劳动保护用品等。

(11) 保险费：指车间应负担的财产保险费

(12) 低值易耗品摊销：生产车间耗用的通用工具、生产用具、仪器等。

(13) 劳动保护费：车间为保证劳动安全发生的各项费用。包括：应由制造费用开支的各项劳动保护措施费、劳动保护装置维护费、防暑降温费、劳动保护用品等。不包括增加固定资产的劳动安防护措施支出。

(14) 季节性修理期间的停工损失。

(15) 运输费：车间内部运输所发生的费用和运输部门为车间提供的劳务费用。

(16) 外部加工费：指车间产品零部件委托外公司加工协作的费用。

(17) 试验检验费：指不能直接计入为鉴定某种产品质量而发生的产品的试验费、原材料、成品及半成品的检验费用、理化试验、质量监控等费用。

(18) 设计制图费：指对产品和工艺进行科研、设计所发生的费用。

(19) 其他：指不属于以上项目的其他应计入制造费用的支出。

第九条 生产费用归集与分配的原则

1. 按产品品种设置成本核算对象，对难以直接计入的间接费用要按合适的标准，在公司包括主营业务、其他所有产品之间分配。企业的产品包括全部的主营业务、其他业务和劳务协作。

2. 凡能直接计入各生产线、各作业、各产品的费用均应直接计入。

3. 凡不能直接计入各生产线、各作业、各产品的费用，应采用与费用形成有直接关系的分配标准进行分配。

4. 分配标准一经确定，不得随意变动。

第十条 购入材料的成本：

1. 生产过程中实际消耗的外购材料的成本包括：买价、外地运杂费、保险费、大宗材料的市内运杂费、运输途中的合理损耗和入库前的挑选整理费用等，但不包括购进材料增值税和购进免税农产品按规定的扣除率计算的进项税额。

2. 购进材料直接用于非应税产品的，应按包括进项增值税在内的全部支付价款全额计入材料成本。

3. 进口材料的采购成本应包括国外进价、进口税金。

第十一条 材料费用的归集与分配

1. 月终未报账的材料，按计划价办理暂估入库，于材料报账时冲回。

2. 采用公司内计划价格进行材料日常核算，月终将耗用材料的计划价调整为实际价格。材料的实际价格与计划价格的差异，使用当月实际差异率，按材料类别或品种核算。其中VB1主要原材料、制剂主要原材料按品种核算，辅助材料、备品备件、包装物、低制易耗品按材料类别核算。

3. 材料稽核员根据领料单，将属于直接构成产品实体的材料，计入制造一部生产成本。不能直接计入产品实体的，计入领用部门制造费用。成本核算员将直接计入产品实体的材料按材料稽核员转来的“材料领用单”，以材料核算价分配到各工序、各产品。并将材料成本调整为实际成本。

4. 月末车间材料员负责将已领未用的材料办理“假退库”手续。

第十二条 动力费用的归集与分配

1. 动力包括水、电、蒸汽、冷、压缩空气等，分外购自制两种。自制动力以及需经本单位辅助车间处理后使用的外购动力，均应作为辅助生产核算。

2. 动力费用根据计量仪表记录的实际耗用数量进行核算，没有计量仪表的，应由动力部门或有关部门确定的合理的分配标准，作为分配动力费用的依据。

3. 动力费用的核算要划清生产用和非生产用的界限、内供和外供的界限。