重庆分公司
重庆分公司，新征程启航
为企业提供网站建设、域名注册、服务器等服务
vb.net求平均分数,VB求平均数
求VB程序 求出班级平均分 的代码
不是从表里抓的话，可以直接输入。
成都创新互联是一家专注于成都网站设计、成都网站建设与策划设计,老城网站建设哪家好?成都创新互联做网站,专注于网站建设十年,网设计领域的专业建站公司;建站业务涵盖:老城等地区。老城做网站价格咨询: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("请输入各位同学的分数，以"",""隔开，如 89,78,92")
txtAll.Select() '这里focus聚焦点有时候不行，可以用select代替，会聚焦到此处
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("请先输入各位同学的分数！")
Else
strAll = txtAll.Text.Trim
If InStr(strAll, "，") 0 AndAlso InStr(strAll, ",") 0 Then 'InStr(String1,String2)返回在String1找到String2的位置，找不到返回0
MsgBox("请先将隔开符统一！")
Exit Sub
ElseIf InStr(strAll, "，") 0 Then '如果隔开符统一是"，"
arrAll = strAll.Split("，")
ElseIf InStr(strAll, ",") 0 Then '如果隔开符统一是","
arrAll = strAll.Split(",")
End If
For i As Integer = 0 To arrAll.Length - 1
arrAll(i) = Trim(arrAll(i))
If Not arrAll(i) = "" Then
'确保是数字，且取值范围在0~100 （范围根据需要设置）
If Not IsNumeric(arrAll(i)) OrElse Not CInt(arrAll(i)) = 0 OrElse Not CInt(arrAll(i)) = 100 Then
MsgBox("您输入的分数有误！请重新输入！")
Exit Sub
Else
intCount += 1
intAll += CInt(arrAll(i))
End If
End If
Next
'这里如果除不尽的话，可能会出现多位小数。10/4只等于2.5，但10/3会得0.33333333333.....
DecAvg = intAll / intCount
lblSum.Text = intAll
lblCount.Text = intCount
If DecAvg.ToString.Length 6 Then
'可以先把平均数变为string类型，在对它进行处理，只取所需要的长度
'比如我这里的平均数应该会变成：两位整数+小数点+三位小数 ，也就一共6位长
lblAvg.Text = DecAvg.ToString.Substring(0, 6)
Else
lblAvg.Text = DecAvg
End If
End If
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计算函数平均数
输入函数
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.net求平均分数,VB求平均数
URL网址：http://cqcxhl.com/article/dsspeie.html