- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145711)
-- 发布时间：2020/2/5 13:36:00
-- 请教
2020年（农历庚子年）是中国传统的“鼠年”。 我们把只含数字2和0的自然数（包括0）称为“鼠数”，全体“鼠数” 自小至大排成的数列，称为“鼠数列”： 0，2，20，22，200，202，220，222，2000，? 一、第2020个“鼠数”是什么数？ 二、前2020个“鼠数”之和等于多少？ 三、前2020个“鼠数”中去掉开头的0，剩下的数之积的末尾一共有多少个0？ 四、前2020个“鼠数”中去掉开头的0，剩下的数从左至右写成一个数 A=220222002022202222000?。 那么，A是多少位数？ 五、A除以2020的余数是多少？
能不能用程序生成这样的数组？我用EXCELS想了二天，只想到它们的部份数据关系是：=IF(ROW()<=673,2*(1-10^(ROW()-1))/(1-10),"")
生成的数组是：2、22、222、2222、22222、222222
2*10^(ROW()-1)*10+2*10^(ROW()-(COLUMN()-(COLUMN($A$2)-1)))+2
生成有数组是：
此主题相关图片如下：qq图片20200205133307.png
此主题相关图片如下：qq图片20200205133307.png但这些数据不全面。
[此贴子已经被作者于2020/2/5 13:36:57编辑过]
-- 发布时间：2020/2/5 14:22:00
--
Dim lst As new List(of Long)
Dim i As Long = 0
Dim p2 As String = "^[0,2]+$"
Dim r As New System.Text.RegularExpressions.Regex(p2)
Do While lst.Count < 2020
If r.IsMatch(i) Then lst.Add(i)
i += 1
Loop
For Each s As Long In lst
Output.Show(s)
Next
-- 发布时间：2020/2/5 19:09:00
--
这段代码我在表属性的DataColChanging事件中执行，直接死机，等很久都没反应！
-- 发布时间：2020/2/6 10:12:00
--
首先这种代码不适合在表事件里使用，建议使用按钮处理。其次数据多循环比较久，要等。
找到规律改一下，可以提高n倍速度
Dim d As Date = Date.Now
Dim lst As new List(of Long)
Dim i As Long = 0
Dim p1 As String = "0$"
Dim p2 As String = "^[0,2]+$"
Dim p3 As String = "^2+$"
Dim p4 As String = "0[2]+$"
Dim r As New System.Text.RegularExpressions.Regex(p2)
Do While lst.Count < 500
Dim i2 As String= i.Tostring
Dim k As Long = i2.length
If r.IsMatch(i2,p2) Then
lst.Add(i)
If r.IsMatch(i2,p1) Then
i += 2
ElseIf r.IsMatch(i2,p4) Then
Dim s2 As String = System.Text.RegularExpressions.Regex.replace(i2,p4,"")
i=clng(s2 & "2".PadRight(k-s2.Length,"0"))
ElseIf r.IsMatch(i2,p3) Then
i=cint("2".PadRight(k+1,"0"))
Else
i += 18
End If
Else
i += 2
End If
Loop
Dim t As TimeSpan = Date.Now - d
Output.Show(t.TotalSeconds)
For Each s As Long In lst
Output.Show(s)
Next
-- 发布时间：2020/2/6 11:34:00
--
代码做到按钮里了，执行后一点反应都没有，我想把生成的数据全部显示在表中，因为题目要求还要对前2020个鼠数进行统计，所以D不必设为日期型，生成的数据能否设为长数字型，这样才能进行统计。
-- 发布时间：2020/2/6 11:52:00
--
我的代码只是输出到Output.Show里，如果要保存到表请先看懂代码自己改改。d变量是为了测试代码执行的速度的，不需要可以去掉。还是那句话，先看懂代码再说。
-- 发布时间：2020/2/6 19:44:00
--
我把你的代码在命令窗口中执行没错，但把500改为2020报错，在按扭上改成这样，执行的结果全是222220022，请教问题出在哪呢？
\'Dim d As Long
Dim lst As new List(of Long)
Dim i As Long = 0
Dim p1 As String = "0$"
Dim p2 As String = "^[0,2]+$"
Dim p3 As String = "^2+$"
Dim p4 As String = "0[2]+$"
Dim r As New System.Text.RegularExpressions.Regex(p2)
Do While lst.Count < 2020
Dim i2 As String= i.Tostring
Dim k As Long = i2.length
If r.IsMatch(i2,p2) Then
lst.Add(i)
If r.IsMatch(i2,p1) Then
i += 2
ElseIf r.IsMatch(i2,p4) Then
Dim s2 As String = System.Text.RegularExpressions.Regex.replace(i2,p4,"")
i=clng(s2 & "2".PadRight(k-s2.Length,"0"))
ElseIf r.IsMatch(i2,p3) Then
i=cint("2".PadRight(k+1,"0"))
Else
i += 18
End If
Else
i += 2
End If
Loop
\'Dim t As TimeSpan = Date.Now - d
\'Output.Show(t.TotalSeconds)
For Each s As Long In lst
\'Output.Show(s)
For Each dr As DataRow In DataTables("表A").DataRows
dr("鼠数") = s
Next
Next
[此贴子已经被作者于2020/2/6 19:45:41编辑过]
-- 发布时间：2020/2/7 11:34:00
--
多看看基础的内容：http://www.foxtable.com/webhelp/topics/1592.htm
Dim dr As DataRow
For Each s As Long In lst
\'Output.Show(s)
dr = DataTables("表A").AddNew
dr("鼠数") = s
Next
-- 发布时间：2020/2/7 11:38:00
--
我把代码改为这样：
\'Dim d As Long
Dim lst As new List(of Long)
Dim i As Long = 0
Dim p1 As String = "0$"
Dim p2 As String = "^[0,2]+$"
Dim p3 As String = "^2+$"
Dim p4 As String = "0[2]+$"
Dim r As New System.Text.RegularExpressions.Regex(p2)
Do While lst.Count < 2020
Dim i2 As String= i.Tostring
Dim k As Long = i2.length
If r.IsMatch(i2,p2) Then
lst.Add(i)
If r.IsMatch(i2,p1) Then
i += 2
ElseIf r.IsMatch(i2,p4) Then
Dim s2 As String = System.Text.RegularExpressions.Regex.replace(i2,p4,"")
i=clng(s2 & "2".PadRight(k-s2.Length,"0"))
ElseIf r.IsMatch(i2,p3) Then
i=cint("2".PadRight(k+1,"0"))
Else
i += 18
End If
Else
i += 2
End If
Loop
\'Dim t As TimeSpan = Date.Now - d
\'Output.Show(t.TotalSeconds)
For Each s As Long In lst
\'Output.Show(s)
For Each dr As DataRow In DataTables("表A").DataRows
For a As Integer = 0 To lst.count-1
dr = dr(a)
dr("鼠数") = dr("鼠数")(a) = s
Next
Next
Next
报错：
此主题相关图片如下：qq图片1.png
-- 发布时间：2020/2/7 11:41:00
--
哦，会不会象你的代码在命令中执行如果改为2020就报错，实际上是没法执行这么大的数据？