锐客网

  1. 首页 > 睿知 > it技术 > >

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

IT技术数组

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 = "第"i1"行有"a(i).GetUpperBound(0)1"个数"vbCrLf
Next
MessageBox.Show(b)
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
用vb.net 做一段程序从excel 的第一列中将数值不为空的单元格数据导入一个 一维数组并计算平均值为什么一定要用VB.NET？用EXCEL中的VBA即可完成，如果需要 ， 代码如下：
Sub test()
Dim Last As Double, SUM As Double, Resault As Double, Count As Integer
Data = https://www.04ip.com/post/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 Last0 Then
SUM = SUMData(i, 1) - Last
Count = Count1
End If
Last = Data(i, 1)
End If
Next i
Resault = SUM / Count
End Sub
注：由于统计方式比较简单 ， 要取得需要的结果并不需要将相减后的数据放入另一数组 ， 所以没有浪费内存去生成另一个数组 。
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 = n1
End If
Next
str = str"正数vb.net统计数组的个数为 "n
str = str"最大元素vb.net统计数组的下标为 "
For i = 1 To UBound(a)
If a(i) = temp Then
str = stri" "
End If
Next
TextBox6.Text = str
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.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统计个数】关于vb.net统计数组和vb统计个数的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：mysql服务启动1053 mysql服务的启动和停止命令是什么

    下一篇：python图书管理系统mvc，Python图书管理系统的目的