日记本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://scyanting.com/article/ddijdjs.html