锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net股票代码 vba获取股票实时数据( 四 )

IT技术代码


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.net股票代码的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于vba获取股票实时数据、vb.net股票代码的信息别忘了在本站进行查找喔 。

推荐阅读


上一篇：gis中创建数据库，arcgis数据库建库

下一篇：ios单机mud武侠游戏，苹果单机武侠手游