vb.net求平均值,vb求平均数

在vb.net中怎么编写一个控制台程序，求两个整数的平均值

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

判断输入是否是整数,IsNumeric(tmpStr) 是判断是否是数字,InStr(tmpStr, ".")是判断是否有小数点.

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输入10个同学的成绩,计算平均分和总分

Dim A(1 To 10) As Single。

Private Sub Command1_Click()。

'请在第一个文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)

扩展资料

vb.net 特性：

1、vb.net 完全集成到 Visual Studio 集成开发环境中，在这种集成开发环境与 VB 在若干方面有差异。主要体现在窗体的布局以及菜单等方面都有所不同。

2、vb.net 项目与 VB 不同。它使用基于文件夹的模型，所有项目均放置在项目文件夹层次结构中。

3、vb.net 中使用ado.net来访问数据库，ado.net是.netFramework的一部分。在 vb.net 中实现数据访问的方法主要有两种。

其一是在程序设计阶段，通过创建、配置数据适配器 DataAdapter 和生成数据集 DataSet；其二是在运行中，通过编程方式动态创建配置数据适配器和创建、生成数据集。

用vb.net 做一段程序从excel 的第一列中将数值不为空的单元格数据导入一个 一维数组并计算平均值

为什么一定要用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

注：由于统计方式比较简单，要取得需要的结果并不需要将相减后的数据放入另一数组，所以没有浪费内存去生成另一个数组。

vb计算函数平均数

输入函数

private sub command1_click()

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

for i=1 to 10

a(i) = val(inputbox("请输入第" i "个数"))

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

next

print "平均值="; avg/10

end sub

扩展资料

对象与类

对象（Object）

Visual Basic.NET 具有“面向对象”的特性，Visual Basic.NET 应用种程序的基本单元是对象，用 Visual Basic.NET 编程就是用“对象”组装程序。这种“面向对象”的编程方法与传统的全部用代码编制程序的方法有很大区别，就像用集成电路芯片组装电视机和用三极管，二极管组装电视机的区别一样。显然，“面向对象”的编程方法比传统的编程方法更简单，更方便，并且编写出的程序也更加稳定。因此，“对象”可以被看做 Visual Basic.NET 程序设计的核心。

在 Visual Basic.NET程序设计中，对象中还可以包含头，手，腿，脚等部位，其中的每个部位又可以单独作为作为被研究的对象。在 Visual Basic.NET程序设计中，整个应用程序就是一个对象，应用程序中又包含着窗体（Form），命令按钮（Command），菜单（Menu）等对象。

类（Class）

在 Visual Basic.NET中，对象是由类创建的，因此对象可以说是类的具体实例，这就好比是蛋糕和做蛋糕的模具之间的关系。

各种不同的对象分属于各种不同的种类。同一类对象可能具有一些不同的特征（或是说同一类对象不一定具有完全相同的特性）；具有某些相同的特性的对象，不一定是同一类对象。

参考资料来源：百度百科-Visual Basic

vb.net 关于2维数组求平均数的问题

如图?图呢?

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 "位学生的学号")

cj(i, 1) = InputBox("输入数学")

cj(i, 2) = InputBox("输入心理学")

cj(i, 3) = InputBox("输入人事管理学成绩")

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("学号为" cj(i, 0) "的学生平均成绩为:" (cj(i, 1) + cj(i, 2) + cj(i, 3) + cj(i, 4) + cj(i, 5) + cj(i, 6)) / 6)

Next

MsgBox("数学总平均成绩为:" (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编程：已知3个学生，5门功课的成绩，求每个学生的总分，平均分，每门功课的平均分。

方法有很多种，反正就是要输入每个人的成绩。下面就介绍一种最简单的给你

Private Sub Command1_Click()

'已知3个学生，5门功课的成绩，求每个学生的总分，平均分，每门功课的平均分。

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

For i = 1 To 3

If i = 1 Then

a = InputBox("请输入学科1的成绩：", "学生1")

b = InputBox("请输入学科2的成绩：", "学生1")

c = InputBox("请输入学科3的成绩：", "学生1")

d = InputBox("请输入学科4的成绩：", "学生1")

e = InputBox("请输入学科5的成绩：", "学生1")

ElseIf i = 2 Then

a = InputBox("请输入学科1的成绩：", "学生2")

b = InputBox("请输入学科2的成绩：", "学生2")

c = InputBox("请输入学科3的成绩：", "学生2")

d = InputBox("请输入学科4的成绩：", "学生2")

e = InputBox("请输入学科5的成绩：", "学生2")

Else

a = InputBox("请输入学科1的成绩：", "学生3")

b = InputBox("请输入学科2的成绩：", "学生3")

c = InputBox("请输入学科3的成绩：", "学生3")

d = InputBox("请输入学科4的成绩：", "学生3")

e = InputBox("请输入学科5的成绩：", "学生3")

End If

s = a + b + c + d + e

n = s / 5

a = a + a

b = b + b

c = c + c

d = d + d

e = e + e

If i = 1 Then

Print "学生1的各科总分为："; s; "平均分为："; n

ElseIf i = 2 Then

Print "学生2的各科总分为："; s; "平均分为："; n

Else

Print "学生3的各科总分为："; s; "平均分为："; n

a = a / 3

b = b / 3

c = c / 3

d = d / 3

e = e / 3

Print "学科1的平均分为："; a

Print "学科2的平均分为："; b

Print "学科3的平均分为："; c

Print "学科4的平均分为："; d

Print "学科5的平均分为："; e

End If

Next i

End Sub