Office中国论坛/Access中国论坛

标题: 超强难度！如何利用程序生成一定规律的数字，并保存在相应的表格中？ [打印本页]

作者: zhycfb2006 时间: 2006-11-7 04:48
标题: 超强难度！如何利用程序生成一定规律的数字，并保存在相应的表格中？
超强难度！如何利用程序生成一定规律的数字，并保存在相应的表格中？

这个问题稍微有点难！有谁能帮帮我呢？

或者上传一个例子看看，小弟不胜感激！

作者: wu8313 时间: 2006-11-7 05:03
生成一定规律的数字,什么规律呢？

作者: fan0217 时间: 2006-11-7 05:03
其实这个问题不难，把你的问题详细说明一下。

作者: leonard123 时间: 2006-11-8 06:24
给你看一个我模拟温度自记仪做的一个程序，把这个文件拷到D盘根目录下运行就可以了。别的目录不可以。但是你改程序就可以了。见过温度自记仪的人都知道为什么程序要这么麻烦了。[attach]21397[/attach]

作者: xuyuhui1984 时间: 2006-11-8 06:31
其实我是高手

作者: zhycfb2006 时间: 2006-11-8 07:46
就是有一定的规律,从数字的字面上看不出来,可是用程序进行检验,就可以检测出这个数字是不是这个用这个程序生成的!

我觉得挺难的!

有哪位强人会吗?辛苦举个例!!

作者: fan0217 时间: 2006-11-8 20:08
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
Dim i As Long

Set conn = CurrentProject.Connection

strSQL = "SELECT * FROM 汉字"

rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic

For i = 19968 To 40869

      rs.AddNew
            rs("ID") = i
            rs("汉字") = ChrW(i)
            rs("拼音") = HZQP(ChrW(i), -1)

      rs.Update
Next
      rs.Close

Set rs = Nothing
Set conn = Nothing

作者: fan0217 时间: 2006-11-8 20:18
Dim rs As DAO.Recordset
Dim i As Long

Set rs = CurrentDb.OpenRecordset("汉字")

For i = 19968 To 40869

         rs.AddNew
            rs("ID") = i
            rs("汉字") = ChrW(i)
            rs("拼音") = HZQP(ChrW(i), -1)
         rs.Update

Next
rs.Close

Set rs = Nothing

作者: sgrshh29 时间: 2006-11-8 20:55

以下是引用fan0217在2006-11-8 12:18:00的发言：

Dim rs As DAO.Recordset
Dim i As Long

Set rs = CurrentDb.OpenRecordset("汉字")

For i = 19968 To 40869

         rs.AddNew
            rs("ID") = i
            rs("汉字") = ChrW(i)
            rs("拼音") = HZQP(ChrW(i), -1)
         rs.Update

Next
rs.Close

Set rs = Nothing

fan0217版主，哪跟哪啊?

作者: van_zeng 时间: 2006-11-8 23:23
....

作者: andymark 时间: 2006-11-9 00:09

以下是引用zhycfb2006在2006-11-7 23:46:00的发言：

就是有一定的规律,从数字的字面上看不出来,可是用程序进行检验,就可以检测出这个数字是不是这个用这个程序生成的!

我觉得挺难的!

有哪位强人会吗?辛苦举个例!!

你自已都不愿把问题说清楚,试问谁能帮你

作者: fan0217 时间: 2006-11-9 02:26

以下是引用sgrshh29在2006-11-8 12:55:00的发言：

fan0217版主，哪跟哪啊?

那些难道不是把有规律的数据写入表中吗？

[此贴子已经被作者于2006-11-8 18:27:20编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)