vb計(jì)算函數(shù)平均數(shù)

輸入函數(shù)

十年的天山網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。全網(wǎng)營銷推廣的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動調(diào)整天山建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。成都創(chuàng)新互聯(lián)從事“天山網(wǎng)站設(shè)計(jì)”,“天山網(wǎng)站推廣”以來，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

private sub command1_click()

dim a(10) as integer,i,avg as integer

for i=1 to 10

a(i) = val(inputbox("請輸入第" i "個(gè)數(shù)"))

if a(i)0 then avg=avg+a(i)

next

print "平均值="; avg/10

end sub

擴(kuò)展資料

對象與類

對象（Object）

Visual Basic.NET 具有“面向?qū)ο蟆钡奶匦?，Visual Basic.NET 應(yīng)用種程序的基本單元是對象，用 Visual Basic.NET 編程就是用“對象”組裝程序。這種“面向?qū)ο蟆钡木幊谭椒ㄅc傳統(tǒng)的全部用代碼編制程序的方法有很大區(qū)別，就像用集成電路芯片組裝電視機(jī)和用三極管，二極管組裝電視機(jī)的區(qū)別一樣。顯然，“面向?qū)ο蟆钡木幊谭椒ū葌鹘y(tǒng)的編程方法更簡單，更方便，并且編寫出的程序也更加穩(wěn)定。因此，“對象”可以被看做 Visual Basic.NET 程序設(shè)計(jì)的核心。

在 Visual Basic.NET程序設(shè)計(jì)中，對象中還可以包含頭，手，腿，腳等部位，其中的每個(gè)部位又可以單獨(dú)作為作為被研究的對象。在 Visual Basic.NET程序設(shè)計(jì)中，整個(gè)應(yīng)用程序就是一個(gè)對象，應(yīng)用程序中又包含著窗體（Form），命令按鈕（Command），菜單（Menu）等對象。

類（Class）

在 Visual Basic.NET中，對象是由類創(chuàng)建的，因此對象可以說是類的具體實(shí)例，這就好比是蛋糕和做蛋糕的模具之間的關(guān)系。

各種不同的對象分屬于各種不同的種類。同一類對象可能具有一些不同的特征（或是說同一類對象不一定具有完全相同的特性）；具有某些相同的特性的對象，不一定是同一類對象。

參考資料來源：百度百科-Visual Basic

vb.net mid()函數(shù)

它本身是沒法忽略空格這個(gè)功能的，只能在MID取出字符后判斷是不是空格，是就放棄這個(gè)就可以了

用vb.net 做一段程序從excel 的第一列中將數(shù)值不為空的單元格數(shù)據(jù)導(dǎo)入一個(gè) 一維數(shù)組并計(jì)算平均值

為什么一定要用VB.NET？用EXCEL中的VBA即可完成，如果需要，代碼如下：

Sub?test()

Dim?Last?As?Double,?SUM?As?Double,?Resault?As?Double,?Count?As?Integer

Data?=?Range("a1:a"??Cells.Find("*",?,?,?,?1,?2).Row)

SUM?=?0:?Count?=?0

For?i?=?1?To?UBound(Data,?1)

If?Data(i,?1)??0?Then

If?Last??0?Then

SUM?=?SUM?+?Data(i,?1)?-?Last

Count?=?Count?+?1

End?If

Last?=?Data(i,?1)

End?If

Next?i

Resault?=?SUM?/?Count

End?Sub

注：由于統(tǒng)計(jì)方式比較簡單，要取得需要的結(jié)果并不需要將相減后的數(shù)據(jù)放入另一數(shù)組，所以沒有浪費(fèi)內(nèi)存去生成另一個(gè)數(shù)組。

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

代碼：

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