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

Dim A(1 To 10) As Single。

創(chuàng)新互聯(lián)堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：成都網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時(shí)代的遵義網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

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ù)集。

在vb.net中怎么編寫一個(gè)控制臺程序，求兩個(gè)整數(shù)的平均值

Sub Main()

Dim i, j As Integer

Dim tmpStr As String

Console.WriteLine("please input a integer")

tmpStr = Console.ReadLine()

If IsNumeric(tmpStr) And InStr(tmpStr, ".") 1 Then

判斷輸入是否是整數(shù),IsNumeric(tmpStr) 是判斷是否是數(shù)字,InStr(tmpStr, ".")是判斷是否有小數(shù)點(diǎn).

i = CType(tmpStr, Integer)

Else

MsgBox("not a valid integer!")

Exit Sub

End If

Console.WriteLine("please input another integer")

tmpStr = Console.ReadLine()

If IsNumeric(tmpStr) And InStr(tmpStr, ".") 1 Then

j = CType(tmpStr, Integer)

Else

MsgBox("not a valid integer!")

Exit Sub

End If

Console.WriteLine("the avg is : " ((i + j) / 2).ToString "press enter to exit...")

Console.ReadLine()

End Sub

用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ù)組。