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

如圖?圖呢?

成都創(chuàng)新互聯(lián)從2013年開始，先為深州等服務(wù)建站，深州等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為深州企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

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é)號")

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

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

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

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é)號為" cj(i, 0) "的學(xué)生平均成績?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é)總平均成績?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平均分怎么弄

我做了一遍是這樣做的：

A：先放3個(gè)label,caption值分別設(shè)為：語文 數(shù)學(xué) 英語

B：再放3個(gè)text控件

C：再放一個(gè)command caption值為平均分

Private Sub Command1_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

print (a + b + c) / 3

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

我是初學(xué)的，我在本機(jī)試做是沒錯(cuò)的，只是可能沒有專家們的回答精致，我的比較笨拙，不過我做出來的結(jié)果是對的，你試下請不要見笑

用vb程序計(jì)算三個(gè)數(shù)的平均值 代碼要簡單易懂的，本人菜鳥

Private Sub Command1_Click() '計(jì)算平均分

Dim a As Single, b As Single, c As Single, d As Single

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

d = (a + b + c) / 3

Text4.Text = d

End Sub

Private Sub Command2_Click() ‘清除

Text1.Tex = ""

Text2.Tex = ""

Text3.Tex = ""

Text4.Tex = ""

End Sub

Private Sub Command3_Click() ’退出

End

End Sub

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

Dim A(1 To 10) As Single。

Private Sub Command1_Click()。

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

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 集成開發(fā)環(huán)境中，在這種集成開發(fā)環(huán)境與 VB 在若干方面有差異。主要體現(xiàn)在窗體的布局以及菜單等方面都有所不同。

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

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

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

本文題目：計(jì)算平均分vb.net 如何計(jì)算平均分
文章轉(zhuǎn)載：http://jinyejixie.com/article26/doohcjg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供手機(jī)網(wǎng)站建設(shè)、做網(wǎng)站、Google、網(wǎng)站設(shè)計(jì)、網(wǎng)站營銷、網(wǎng)站建設(shè)

廣告

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