vb.net不能用数列 vb中不允许出现的数据形式
vb.net 斐波那契数列 求大神帮助!!!
代码:
成都创新互联是一家专注于网站建设、成都做网站与策划设计,新干网站建设哪家好?成都创新互联做网站,专注于网站建设10余年,网设计领域的专业建站公司;建站业务涵盖:新干等地区。新干做网站价格咨询:18982081108
Imports System.IO
Public Class feibo
Function fancibo(ByVal n As Integer) As Long
If n = 2 Then
Return 1
Else
Return fancibo(n - 1) + fancibo(n - 2)
End If
End Function
Sub CreateData(ByVal max As Integer)
Dim fs As New FileStream("fb.txt", FileMode.Create, FileAccess.Write)
Dim mywriter As New BinaryWriter(fs)
Dim i As Integer
For i = 1 To max
mywriter.Write(fancibo(i))
Next i
mywriter.Close()
End Sub
Sub ReadandDealData()
Dim fs As New FileStream("fb.txt", FileMode.Open, FileAccess.Read)
Dim myreader As New BinaryReader(fs)
Dim i, s As Integer
Dim tot As Long
Dim avg As Single
i = 0 : s = 0 : tot = 0 : avg = 0.0
ListBox1.Items.Clear()
While fs.Position fs.Length
s = myreader.ReadInt64()
ListBox1.Items.Add(s)
tot += s
i += 1
End While
avg = tot / i
ListBox1.Items.Add("数据的总和:" tot)
ListBox1.Items.Add("数据的平均值:" avg)
myreader.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
CreateData(15)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
ReadandDealData()
End Sub
End Class
VB.net的运算溢出问题
因为您计算的数值太大,超过了整数的最上限。
而如果您用LONG数据类型或ULONG数据类型,也不会计算超过8次的结果。
vb.net如何使用控件数组,希望可以用label为例
vb.net和vb6.0不同,无法直接使用控件数组。不过可以通过其他方式变通一下。
比如现在有10个label,要将这10个label的text属性统一设置为“这是第X个标签”(X为1-10)。
1.建立10个label,名称分别为label1、label2、label3。。label10
2.代码:
For i = 1 To 10
Me.FindControl("label" i).Text = "这是第" i “个标签”
Next i
关键点是Me.FindControl()的方法,在代码中Me.FindControl("label1").text与label1.text是一样的。
有一个数列,其前二项分别为1,2 从第三项开始 每项称为其相邻的前二项之和1.5倍。在VB.NET的环境下编写 谢
代码:
Sub Main()
Dim a(20) As Double
a(0) = 1
a(1) = 2
For i = 2 To 19
a(i) = (a(i - 1) + a(i - 2)) * 1.5
Next
Console.Write("数列是:")
Console.WriteLine()
For i = 0 To 19
Console.Write(a(i))
Console.Write(" ")
Next
Console.WriteLine()
Console.Write("第18项与第6项的差是: ")
Console.Write(a(17) - a(5))
End Sub
测试结果:
数列是:
1 2 4.5 9.75 21.375 46.6875 102.09375 223.171875 487.8984375 1066.60546875 2331.
755859375 5097.5419921875 11143.9467773438 24362.2331542969 53259.2698974609 116
432.254577637 254537.286712646 556454.311935425 1216487.39797211 2659412.5648613
第18项与第6项的差是: 556407.624435425
文章标题:vb.net不能用数列 vb中不允许出现的数据形式
网站网址:http://myzitong.com/article/ddojhss.html