日记本vb点虐 代码 vbse日记

求vb点虐 的源代码，最好说明其解决问题，越多越好，满意加50分。

下面这段代码，是我用来计算每个月存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

怎样用vb点虐 做记事本？？

简单的 用TextBox 或者RichTextBox 控件啊 至于文件 可以存为ANSIC编码的文本文件 或者数据库存取也行啊

vb点虐 编的记事本怎么保存后的文档成乱码

这是编码问题。

用下面的方法：

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) '保存的是另一种格式

怎么用VB设计日记本程序啊 急用啊

直接用text框，作为输入。

利用 date控件获得当前日期。

使用 fileopen 生成文件。

writeln 写入文件并存储。

另外的方案可以用数据库作为存储，那就直接用data控件存取数据。其他的同上。

分享标题：日记本vb点虐 代码 vbse日记
本文链接：http://mswzjz.cn/article/ddijdjs.html