胆拖注数计算公式
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
'***************************************************************************
'编写日期：2015-4-24
'入口参数： TouMa 是选好的拖码字符串
'入口参数： DanMa 是选好的胆码字符串
Exit Function
ONERROR:
If Err.number <> 0 Then
Select Case Err.number
Case Else
MsgBox "错误代码：" & Err.number & "错误描述：" & Err.Description, vbExclamation, "胆拖号码注数计算"
DanTouZhuShu = Application_bin(UBound(Array1) + 1, MaxPl - (UBound(Array2) + 1))
Set Application_object = Nothing
Erase Array1: Erase Array2
Array2 = Split(DanMa, FenGeFu, -1, 1) '返回一个下标从零开始的一维数组 胆码数组
'CreateObject 函数创建并返回一个对 ActiveX 对象的引用
Set Application_object = CreateObject("Excel.Application") '创建Excel应用程序对象，打开Excel2000
'入口参数： MaxPl 是最大排列数。如双色球每注是六个号码 则输入 6
'入口参数： FenGeFu 是字符串的分割符。如，"," 或 " "
'功能；胆拖号码注数计算
Public Function DanTouZhuShu(ByVal TouMa As String, ByVal DanMa As String, ByVal MaxPl As Integer, ByVal FenGeFu As String) As String
End Select
End If
End Function
'**************************************************************ONERROR
Dim Application_object As Object
Dim Array1 As Variant '临时数组1
Dim Array2 As Variant '临时数组2
Array1 = Split(TouMa, FenGeFu, -1, 1) '返回一个下标从零开始的一维数组 拖码数组
'编写日期：2015-4-24
'入口参数： TouMa 是选好的拖码字符串
'入口参数： DanMa 是选好的胆码字符串
Exit Function
ONERROR:
If Err.number <> 0 Then
Select Case Err.number
Case Else
MsgBox "错误代码：" & Err.number & "错误描述：" & Err.Description, vbExclamation, "胆拖号码注数计算"
DanTouZhuShu = Application_bin(UBound(Array1) + 1, MaxPl - (UBound(Array2) + 1))
Set Application_object = Nothing
Erase Array1: Erase Array2
Array2 = Split(DanMa, FenGeFu, -1, 1) '返回一个下标从零开始的一维数组 胆码数组
'CreateObject 函数创建并返回一个对 ActiveX 对象的引用
Set Application_object = CreateObject("Excel.Application") '创建Excel应用程序对象，打开Excel2000
'入口参数： MaxPl 是最大排列数。如双色球每注是六个号码 则输入 6
'入口参数： FenGeFu 是字符串的分割符。如，"," 或 " "
'功能；胆拖号码注数计算
Public Function DanTouZhuShu(ByVal TouMa As String, ByVal DanMa As String, ByVal MaxPl As Integer, ByVal FenGeFu As String) As String
End Select
End If
End Function
'**************************************************************ONERROR
Dim Application_object As Object
Dim Array1 As Variant '临时数组1
Dim Array2 As Variant '临时数组2
Array1 = Split(TouMa, FenGeFu, -1, 1) '返回一个下标从零开始的一维数组 拖码数组