凯利指数是什么:如何用VB获取或储存程序运行中产生的值？

根据搂主的问题，看来搂主对数据库不太熟悉，所以我建议搂主使用写注册表的方式。该方法特别简单。SaveSetting 函数、GetSetting 函数。
-------------------------------------
新建一个普通的VB程序,窗体上包含一个名为text1的文本框，一个名为command1的命令按钮caption属性为"保存"，并添加如下窗体代码。
Private Sub Command1_Click()
SaveSetting "MyApp", "Startup", "text1", setting:=Text1.Text
End Sub

Private Sub Form_Load()
Dim strSave As String
strSave = GetSetting("MyApp", "Startup", "text1", "第一次运行")
Text1.Text = strSave
End Sub
----------------------------------
如果还不满意，请ly6345@163.com

写入ini文件不就的了吗？

你是用什么做的后台数据库？
比如用SQL
或用ASSCES做的都不一样！

先引用这位boydgmx朋友的回答：
---------------------------------------------
Private Sub WriteLog(str As String)
Dim FNum As Integer
Dim strFile As String

FNum = FreeFile

'在应用程序所在路径下的Log.txt文件中写入日志
strFile = App.Path

If Right(strFile, 1) <> "\" Then
strFile = strFile & "\"
End If

strFile = strFile & "Log.txt"

Open strFile For Append As #FNum

Print #FNum, str

Close #FNum
End Sub

Private Sub Form_Load()
Dim i As Integer

i = 0

Call WriteLog(i)'应该是Call WriteLog(Cstr(i))
End Sub
回答者：boydgmx - 魔法学徒 一级 ( 40 )
----------------------------------------------

你会发现，这位朋友的回答虽然可行，但没有真正解决问题,并且存在错误，还应该多写一个函数并且在Form_Load()中补充一些内容。
函数如下：
Private function ReadLog() as string
Dim FNum As Integer
Dim strFile As String
Dim str as string
FNum = FreeFile

'在应用程序所在路径下的Log.txt文件中读入日志
strFile = App.Path

If Right(strFile, 1) <> "\" Then
strFile = strFile & "\"
End If

strFile = strFile & "Log.txt"
on error goto ErrHandle
Open strFile For Input As #FNum
Input #FNum, str
Close #FNum
ReadLog=Str
Exit function
ErrHandle:
ReadLog="NoLog"
End Function

Private Sub Form_Load()
Dim i As Integer
dim flag as string
flag=ReadLog()
if flag="NoLog" then
i=0'正常初始化
else
i=cint(flag)'将字串转换成数值，这里假设i是整型的
end if
'对i进行处理操作
'.................
'然后将数据写入日志：
Call WriteLog(Cstr(i))
End Sub

附：
这个例子只记录了一个数据，你可以对其修改，用来记录程序的所有需要记录的数据。

debug.print就行了

文件流,输出.