vb.net平均值 vba 平均值

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.net平均值，在这种集成开发环境与 VB 在若干方面有差异。主要体现在窗体的布局以及菜单等方面都有所不同。

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

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

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

在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.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.net怎么编程

1、作验证，可用正则表达式、vb.net的自带函数（相对简单）

2、可采用排序方式

3、循环加限制条件

4 write

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求帮助 要用redim语句

写vb.net平均值的比较粗糙vb.net平均值，参考一下吧

Sub Main()

Dim numArr() As Double

Dim count As Integer = 1

Dim num As Double

Dim sumNum As Double = 0

Dim aveNum As Double

Dim flag As Integer = 0

While (True)

Console.Write("请输入第{0}个数:", count）

ReDim Preserve numArr(count - 1)

num = Convert.ToDouble(Console.ReadLine())

If num = 0 Then

Exit While

End If

numArr(count - 1) = num

count += 1

End While

If count 1 Then

Dim cha As Double

Dim minCha As Double = Double.MaxValue

For i As Integer = 0 To count - 1

sumNum += numArr(i)

Next

aveNum = sumNum / (count - 1)

For i As Integer = 0 To count - 1

cha = Math.Abs(aveNum - numArr(i))

If minCha = cha Then

minCha = cha

flag = i + 1

End If

Next

End If

Console.WriteLine("总共输入{0}个正数vb.net平均值，平均值为{1}", count - 1, aveNum）

Console.WriteLine("最接近平均值vb.net平均值的是第{0}个正数vb.net平均值，值为{1}", flag, numArr(flag - 1)）

Console.ReadKey()

End Sub

vb.net平均值的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba 平均值、vb.net平均值的信息别忘了在本站进行查找喔。