求VB程序 求出班級(jí)平均分 的代碼

不是從表里抓的話，可以直接輸入。

成都創(chuàng)新互聯(lián)是一家專(zhuān)注于成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)與策劃設(shè)計(jì),老城網(wǎng)站建設(shè)哪家好?成都創(chuàng)新互聯(lián)做網(wǎng)站,專(zhuān)注于網(wǎng)站建設(shè)十年,網(wǎng)設(shè)計(jì)領(lǐng)域的專(zhuān)業(yè)建站公司;建站業(yè)務(wù)涵蓋:老城等地區(qū)。老城做網(wǎng)站價(jià)格咨詢(xún):028-86922220

Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load

? txtAll.Text?=?""

? lblAvg.Text?=?0

? lblCount.Text?=?0

? lblSum.Text?=?0

? 'MsgBox("請(qǐng)輸入各位同學(xué)的分?jǐn)?shù)，以"",""隔開(kāi)，如?89,78,92")

? txtAll.Select()?'這里focus聚焦點(diǎn)有時(shí)候不行，可以用select代替，會(huì)聚焦到此處

End?Sub

Private?Sub?btnCalculate_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?btnCalculate.Click

? Dim?strAll?As?String?=?String.Empty

? Dim?arrAll()?As?String

? Dim?intCount?As?Integer?=?0

? Dim?intAll?As?Integer?=?0

? Dim?DecAvg?As?Decimal?=?0

? If?txtAll.Text.Trim?=?""?Then

? ? ? MsgBox("請(qǐng)先輸入各位同學(xué)的分?jǐn)?shù)！")

? Else

? ? ? strAll?=?txtAll.Text.Trim

? ? ? If?InStr(strAll,?"，")??0?AndAlso?InStr(strAll,?",")??0?Then? 'InStr(String1,String2)返回在String1找到String2的位置，找不到返回0

? ? ? ? ? MsgBox("請(qǐng)先將隔開(kāi)符統(tǒng)一！")

? ? ? ? ? Exit?Sub

? ? ? ElseIf?InStr(strAll,?"，")??0?Then?'如果隔開(kāi)符統(tǒng)一是"，"

? ? ? ? ? arrAll?=?strAll.Split("，")

? ? ? ElseIf?InStr(strAll,?",")??0?Then?'如果隔開(kāi)符統(tǒng)一是","

? ? ? ? ? arrAll?=?strAll.Split(",")

? ? ? End?If

? ? ? For?i?As?Integer?=?0?To?arrAll.Length?-?1

? ? ? ? ? arrAll(i)?=?Trim(arrAll(i))

? ? ? ? ? If?Not?arrAll(i)?=?""?Then

? ? ? ? ? ? ? '確保是數(shù)字，且取值范圍在0~100?（范圍根據(jù)需要設(shè)置）

? ? ? ? ? ? ? If?Not?IsNumeric(arrAll(i))?OrElse?Not?CInt(arrAll(i))?=?0?OrElse?Not?CInt(arrAll(i))?=?100?Then

? ? ? ? ? ? ? ? ? MsgBox("您輸入的分?jǐn)?shù)有誤！請(qǐng)重新輸入！")

? ? ? ? ? ? ? ? ? Exit?Sub

? ? ? ? ? ? ? Else

? ? ? ? ? ? ? ? ? intCount?+=?1

? ? ? ? ? ? ? ? ? intAll?+=?CInt(arrAll(i))

? ? ? ? ? ? ? End?If

? ? ? ? ? End?If

? ? ? Next

? ? ? '這里如果除不盡的話，可能會(huì)出現(xiàn)多位小數(shù)。10/4只等于2.5，但10/3會(huì)得0.33333333333.....

? ? ? DecAvg?=?intAll?/?intCount

? ? ? lblSum.Text?=?intAll

? ? ? lblCount.Text?=?intCount

? ? ? If?DecAvg.ToString.Length??6?Then

? ? ? ? ? '可以先把平均數(shù)變?yōu)閟tring類(lèi)型，在對(duì)它進(jìn)行處理，只取所需要的長(zhǎng)度

? ? ? ? ? '比如我這里的平均數(shù)應(yīng)該會(huì)變成：兩位整數(shù)+小數(shù)點(diǎn)+三位小數(shù)?，也就一共6位長(zhǎng)

? ? ? ? ? lblAvg.Text?=?DecAvg.ToString.Substring(0,?6)

? ? ? Else

? ? ? ? ? lblAvg.Text?=?DecAvg

? ? ? End?If

? End?If

End?Sub

從表里抓的話，其實(shí)也差不多，還可以分成不同科目同時(shí)處理。

就是取數(shù)據(jù)的方式不同，都是一樣簡(jiǎn)單的處理，想做成什么樣就什么樣。

vb輸入10個(gè)同學(xué)的成績(jī),計(jì)算平均分和總分

Dim A(1 To 10) As Single。

Private Sub Command1_Click()。

'請(qǐng)?jiān)诘谝粋€(gè)文2113本中輸入成績(jī),成績(jī)之間用5261空格隔開(kāi)。

Dim s As String

s = Trim(Text1.Text)

d = Split(s, " ")

ReDim A(1 To UBound(d) + 1) As Single

For i = 1 To UBound(A)

A(i) = d(i - 1)

Next

End Sub

Private Sub Command2_Click()

maxn = A(1)

For i = 2 To UBound(A)

擴(kuò)展資料

vb.net?特性：

1、vb.net 完全集成到 Visual Studio 集成開(kāi)發(fā)環(huán)境中，在這種集成開(kāi)發(fā)環(huán)境與 VB 在若干方面有差異。主要體現(xiàn)在窗體的布局以及菜單等方面都有所不同。

2、vb.net 項(xiàng)目與 VB 不同。它使用基于文件夾的模型，所有項(xiàng)目均放置在項(xiàng)目文件夾層次結(jié)構(gòu)中。

3、vb.net 中使用ado.net來(lái)訪問(wèn)數(shù)據(jù)庫(kù)，ado.net是.netFramework的一部分。在 vb.net 中實(shí)現(xiàn)數(shù)據(jù)訪問(wèn)的方法主要有兩種。

其一是在程序設(shè)計(jì)階段，通過(guò)創(chuàng)建、配置數(shù)據(jù)適配器 DataAdapter 和生成數(shù)據(jù)集 DataSet；其二是在運(yùn)行中，通過(guò)編程方式動(dòng)態(tài)創(chuàng)建配置數(shù)據(jù)適配器和創(chuàng)建、生成數(shù)據(jù)集。

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

輸入函數(shù)

private sub command1_click()

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

for i=1 to 10

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

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

next

print "平均值="; avg/10

end sub

擴(kuò)展資料

對(duì)象與類(lèi)

對(duì)象（Object）

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

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

類(lèi)（Class）

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

各種不同的對(duì)象分屬于各種不同的種類(lèi)。同一類(lèi)對(duì)象可能具有一些不同的特征（或是說(shuō)同一類(lèi)對(duì)象不一定具有完全相同的特性）；具有某些相同的特性的對(duì)象，不一定是同一類(lèi)對(duì)象。

參考資料來(lái)源：百度百科-Visual Basic

vb.net 關(guān)于2維數(shù)組求平均數(shù)的問(wèn)題

如圖?圖呢?

Dim cj(10, 6) As Double

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i As Integer

For i = 1 To 2

cj(i, 0) = InputBox("輸入第" i "位學(xué)生的學(xué)號(hào)")

cj(i, 1) = InputBox("輸入數(shù)學(xué)")

cj(i, 2) = InputBox("輸入心理學(xué)")

cj(i, 3) = InputBox("輸入人事管理學(xué)成績(jī)")

Next

Button2.Enabled = True

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim i As Integer

For i = 1 To 10

MsgBox("學(xué)號(hào)為" cj(i, 0) "的學(xué)生平均成績(jī)?yōu)?" (cj(i, 1) + cj(i, 2) + cj(i, 3) + cj(i, 4) + cj(i, 5) + cj(i, 6)) / 6)

Next

MsgBox("數(shù)學(xué)總平均成績(jī)?yōu)?" (cj(1, 1) + cj(2, 1) + cj(3, 1) + cj(4, 1) + cj(5, 1) + cj(6, 1) + cj(7, 1) + cj(8, 1) + cj(9, 1) + cj(10, 1)) / 10)

End Sub

分享題目：vb.net求平均分?jǐn)?shù),VB求平均數(shù)
鏈接分享：http://aaarwkj.com/article4/dsspeie.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供外貿(mào)網(wǎng)站建設(shè)、軟件開(kāi)發(fā)、App設(shè)計(jì)、、動(dòng)態(tài)網(wǎng)站、外貿(mào)建站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)