vb.net案例代码 vbnet doevent

求vb.net的源代码，最好说明其解决问题，越多越好，满意加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

相关问答

Q1: vb.net实现类的实例化的代码怎么写？

可以使用 New 关键字对类进行实例化vb.net案例代码，如

Dim frmDemo As New Form1

Q2: VB.net实例

1 生成txt文件。

DimSaveFileDialog1AsNewSaveFileDialog() '创建一个保存对话框

SaveFileDialog1.Filter ="txt files (*.txt)|*.txt" '设置扩展名

IfSaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OKThen '如果确定保存

My.Computer.FileSystem.WriteAllText(SaveFileDialog1.Filename, Textbox1.Text,False) '保存文本,False表示不追加文本vb.net案例代码，直接覆盖其内容

EndIf

原文链接vb.net案例代码：

关于vb.net案例代码和vbnet doevent的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。