vb.net统计数组 vb统计个数

VB.net中如何求出2维数组，每个维度上的值得个数

每行的数字个数不同,你说的这是不规则数组,解决方案如下:

Dim b As String = ""

Dim a As Integer()() = New Integer(9)() {}

a(0) = New Integer() {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}

a(1) = New Integer() {0, 3, 4, 5}

a(2) = New Integer() {0, 4, 5, 6, 7}

a(3) = New Integer() {0, 6, 5, 8, 9, 1}

a(4) = New Integer() {0, 2, 5, 1, 7}

a(5) = New Integer() {0, 4, 2, 6, 7, 3}

a(6) = New Integer() {0, 4, 5, 3, 2}

a(7) = New Integer() {0, 4, 1, 6, 2, 8, 5, 3}

a(8) = New Integer() {0, 4, 9, 6, 3, 5, 7}

a(9) = New Integer() {0, 1, 5, 9, 7, 6, 2, 4, 3, 8}

For i As Integer = 0 To a.GetUpperBound(0)

b = "第" i + 1 "行有" a(i).GetUpperBound(0) + 1 "个数" vbCrLf

Next

MessageBox.Show(b)

相关问答

Q1: vb.net 统计数组中相同数字的个数

Private Sub Form_Click()

Dim a(3) As Integer

Dim m As Boolean

m = True

For i = 0 To 3

a(i) = 1

Next i

For i = 0 To UBound(a)

If a(i) 1 Then

m = False

Exit For

End If

Next i

If m = True Then

Print "全部符合"

Else

Print "不全部符合"

End If

End Sub

Q2: 用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

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

Q3: vb.net用文本框输入数组的所有元素，数值之间用逗号分隔，统计数组中正数的个数，并显示最大值的元素下标

Dim str As String = "", temp, n As Integer

        Dim str1 As String = "12,45,2,9,41,31,66,83,2,1,-9,-91,-21"

        Dim a() As String = Split(str1, ",")

        For i = 1 To UBound(a) Step 1

            a(i) = Val(a(i))

        Next

        temp = 0

        n = 0

 

        For i = 1 To UBound(a)

            If a(i)  temp Then

                temp = a(i)

            End If

            If a(i)  0 Then

                n = n + 1

            End If

        Next

        str = str  "正数vb.net统计数组的个数为 "  n

        str = str  "最大元素vb.net统计数组的下标为 "

        For i = 1 To UBound(a)

            If a(i) = temp Then

                str = str  i  " "

            End If

        Next

 

        TextBox6.Text = str

Q4: 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

Q5: vb.net 数组

vb.net已经去掉了控件数组这个类，不过有个代替该方式的一个属性：Tag，你可以把这些关联的Tag属性设置为同一标记，如：a。然后遍历所有的checkbox并且tag为a的则选定：Protected Sub chkAll_Click() For Each ctl As Control In Me.Controls ''如果checkbox在一个容器里，比如groupbox，那可以用groupbox.controls

If ctl.GetType().Name.ToLower() = "checkbox" Then

CType(ctl, CheckBox).Checked = CheckBox3.Checked

End If

NextEnd Sub

关于vb.net统计数组和vb统计个数的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。