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


当前文章:vb.net求平均值,vb求平均数
网页网址:http://pwwzsj.com/article/hseceh.html