vb.net 斐波那契數(shù)列 求大神幫助?。。?/h2>

代碼：

成都創(chuàng)新互聯(lián)是一家專注于網(wǎng)站建設(shè)、成都做網(wǎng)站與策劃設(shè)計(jì),新干網(wǎng)站建設(shè)哪家好?成都創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)10余年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:新干等地區(qū)。新干做網(wǎng)站價(jià)格咨詢: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("數(shù)據(jù)的總和：" tot)

ListBox1.Items.Add("數(shù)據(jù)的平均值：" 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的運(yùn)算溢出問(wèn)題

因?yàn)槟?jì)算的數(shù)值太大，超過(guò)了整數(shù)的最上限。

而如果您用LONG數(shù)據(jù)類型或ULONG數(shù)據(jù)類型，也不會(huì)計(jì)算超過(guò)8次的結(jié)果。

vb.net如何使用控件數(shù)組，希望可以用label為例

vb.net和vb6.0不同，無(wú)法直接使用控件數(shù)組。不過(guò)可以通過(guò)其他方式變通一下。

比如現(xiàn)在有10個(gè)label，要將這10個(gè)label的text屬性統(tǒng)一設(shè)置為“這是第X個(gè)標(biāo)簽”（X為1-10）。

1.建立10個(gè)label，名稱分別為label1、label2、label3。。label10

2.代碼：

For i = 1 To 10

Me.FindControl("label" i).Text = "這是第" i “個(gè)標(biāo)簽”

Next i

關(guān)鍵點(diǎn)是Me.FindControl()的方法，在代碼中Me.FindControl("label1").text與label1.text是一樣的。

有一個(gè)數(shù)列，其前二項(xiàng)分別為1,2 從第三項(xiàng)開始 每項(xiàng)稱為其相鄰的前二項(xiàng)之和1.5倍。在VB.NET的環(huán)境下編寫 謝

代碼:

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("數(shù)列是:")

Console.WriteLine()

For i = 0 To 19

Console.Write(a(i))

Console.Write(" ")

Next

Console.WriteLine()

Console.Write("第18項(xiàng)與第6項(xiàng)的差是: ")

Console.Write(a(17) - a(5))

End Sub

測(cè)試結(jié)果:

數(shù)列是:

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項(xiàng)與第6項(xiàng)的差是: 556407.624435425