求一个VB统计小程序

我是未来的你，你现在是不是在年找寻小程序答案。你不要感觉诧异，给你来信原因，就是让你不在后悔。今天去学习如何推广小程序，相信......点击查看更多>

附件删除了，楼主进黑名单。

只有记录每天的数据，然后将每天输入的数据汇总求和吗？还有别的要求吗？

若能同时输出，总共记录的次数、盈利次数、亏损次数、最大的一次盈利、最大的一次亏损、成功率（盈利次数/总次数）
那就太感谢了。

追答

我考虑一下吧，我写的还没楼上的好呢

Private Sub Command1_Click() '记录
If IsNumeric(Text1.Text) Then
Open "D:\jilu.txt" For Append As #1 '打开记录文件
Print #1, Date; "|"; '保存日期
Print #1, Text1.Text '保存盈利值
Close #1 '关闭文件
Else
MsgBox "请输入数字！", vbCritical '显示错误信息
End If
End Sub

Private Sub Command2_Click() '统计
Dim s As String, Profit As Currency, n As Long, t As Currency, r As Integer, max, min
Open "D:\jilu.txt" For Input As #1 '打开记录文件
Do While Not EOF(1) '文件未结束则循环
Line Input #1, s '读取一条记录
n = n + 1
t = Val(Right(s, Len(s) - InStr(s, "|")))
If n = 1 Then max = t: min = t
If t >= 0 Then r = r + 1
If max < t Then max = t
If min > t Then min = t
Profit = Profit + t '累加
Loop
Close #1 '关闭文件
'显示盈利情况
MsgBox "总盈利：" & Profit & vbCrLf & _
"记录的总次数：" & n & vbCrLf & _
"总盈利：" & Profit & vbCrLf & _
"盈利次数/亏损次数：" & r & "/" & n - r & vbCrLf & _
"成功率：" & Format(r / n, "Percent") & vbCrLf & _
"最大的一次盈利" & max & vbCrLf & _
"最大的一次亏损" & min
End Sub

弄好了。谢谢啊。

追答

请及时采纳