超强难度！如何利用程序生成一定规律的数字，并保存在相应的表格中？

zhycfb2006

超强难度！如何利用程序生成一定规律的数字，并保存在相应的表格中？

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

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

wu8313

生成一定规律的数字,什么规律呢？

fan0217

其实这个问题不难，把你的问题详细说明一下。

leonard123

给你看一个我模拟温度自记仪做的一个程序，把这个文件拷到D盘根目录下运行就可以了。别的目录不可以。但是你改程序就可以了。见过温度自记仪的人都知道为什么程序要这么麻烦了。

xuyuhui1984

其实我是高手

zhycfb2006

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

我觉得挺难的!

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

fan0217

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

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

以下是引用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

....