下面这段代码，是我用来计算每个月存500元进银行，连续30年，最后连本带利能有多少钱。这里面涉及复利计算。界面中右边的文本框用来输出每一次计算的结果。
玉溪网站建设公司创新互联建站,玉溪网站设计制作，有大型网站制作公司丰富经验。已为玉溪成百上千提供企业网站建设服务。企业网站搭建\成都外贸网站建设公司要多少钱，请找那个售后服务好的玉溪做网站的公司定做！
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nianxian As Integer '年限变量
Dim dingcun As Integer '定存变量
Dim fuli_big As Long '大复利
Dim fuli_small As Long '小复利
Dim i As Integer '循环变量
Dim DATAstring As String '数据字符串
nianxian = Val(年限_TextBox.Text)
dingcun = Val(定存_TextBox.Text)
DATAstring = ""
For i = 1 To nianxian
fuli_small = dingcun * (1 + 0.1875)
dingcun = fuli_small
fuli_big = fuli_big + fuli_small
DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_big) + Chr(13) + Chr(10)
'DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_small) + Chr(13) + Chr(10)
Next
'fuli_big = fuli_small
TextBox1.Text = DATAstring
结果_TextBox.Text = Str(fuli_big) + "元"
End Sub
简单的 用TextBox 或者RichTextBox 控件啊 至于文件 可以存为ANSIC编码的文本文件 或者数据库存取也行啊
这是编码问题。
用下面的方法：
If (Me.OpenFileDialog1.FilterIndex = 1) Then '1是一个标识
System.IO.File.WriteAllText(Me.SaveFileDialog1.FileName, RichTextBox1.Text, System.Text.Encoding.Default) '当标识等于1时保存的事PlainText格式
Else '否则
System.IO.File.WriteAllText(Me.SaveFileDialog1.FileName, RichTextBox1.Rtf, System.Text.Encoding.Default) '保存的是另一种格式
直接用text框，作为输入。
利用 date控件获得当前日期。
使用 fileopen 生成文件。
writeln 写入文件并存储。
另外的方案可以用数据库作为存储，那就直接用data控件存取数据。其他的同上。