锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net案例代码 vbnet doevent

IT技术RBAC

求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
【vb.net案例代码 vbnet doevent】TextBox1.Text = DATAstring
结果_TextBox.Text = Str(fuli_big) + "元"
End Sub
vb.net实现类的实例化的代码怎么写？可以使用 New 关键字对类进行实例化vb.net案例代码，如
Dim frmDemo As New Form1
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的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：拍摄的过程叫什么，拍摄过程简述

    下一篇：phpcms模板路，phpcms教程