1. vb数组，vb中怎么添加数字类命令按钮数组？
在VB中，要创建数字类（例如整数）命令按钮数组，可以使用数组变量和循环结构来实现。以下是一个示例代码，演示如何创建一个整数命令按钮数组：
```vb
Public Class Form1
Dim btnArray() As Button '声明按钮数组变量
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim btnCount As Integer = 10 '按钮数量
ReDim btnArray(btnCount - 1) '根据按钮数量调整数组大小
For i As Integer = 0 To btnCount - 1 '循环创建按钮数组
btnArray(i) = New Button()
btnArray(i).Size = New Size(50, 30)
btnArray(i).Location = New Point(10 + (i * 60), 10)
btnArray(i).Text = i.ToString()
Me.Controls.Add(btnArray(i))
AddHandler btnArray(i).Click, AddressOf btn_Click '为每个按钮添加Click事件处理程序
Next
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs)
Dim btn As Button = CType(sender, Button)
MessageBox.Show("你点击了按钮：" & btn.Text)
End Sub
End Class
```
上述示例代码中，首先声明了一个名为`btnArray`的按钮数组变量。然后在Form1_Load事件中，通过使用`ReDim`调整数组大小为指定的按钮数量。接下来，使用一个循环结构，创建新的按钮对象并对其进行初始化设置，然后将其添加到窗体中的Controls集合中。同时，通过`AddHandler`为每个按钮的Click事件添加同一个事件处理程序。在点击按钮时，会触发btn_Click事件处理程序，其中可以对点击的按钮进行进一步操作。
通过使用上述代码，你可以创建一个整数命令按钮数组，并且可以根据具体需求进行相应修改和扩展。请根据需要对按钮的大小、位置、事件处理等进行适当调整。
2. vb全局数组介绍？
Public a() as single 这样定义的是一个没有任何元素的空数组，这时如果直接使用a(1)=3.14159，就会出现“下标越界”错误 对此数组中的元素赋值之前需要先调整它的上下标，比如要让它的元素个数变为10个，可以用redim a(1 to 10) as single，然后再用a(1)=3.14159这样的语句来给各元素赋值 如果事先已经知道数组元素的个数并且元素个数不会变动，可以直接用Public a(1 to 10) as single来定义数组，这样就不需要redim了，但之后无法改变数组上下标
3. vb定义动态多维数组？
在VB中，可以通过写索引号的方式定义多维数组，如下代码所示：
Dim multi(1 to 10,1 to 10 ) as Integer
按照这种方式，即定义了一个10 × 10的二维数组。
定义动态数组，有利于系统回收资源。
Dim arr() 这样即定义了一个动态数组
ReDim arr(2 to 8) 给数组定上下界
arr（2）="hello"
Redim preserve arr(2 to 10) preserve重定义大小
这样做了以后，原来的值会被保留。
4. vb中判断数据类型？
VB可使用TypeName 函数来判断某变量的数据类型。
TypeName 函数，返回一个 String，提供有关变量的信息。
TypeName 函数示例
本示例使用 TypeName 函数返回有关变量的信息。
' 声明变量。
Dim NullVar, MyType, StrVar As String, IntVar As Integer, CurVar As Currency
Dim ArrayVar (1 To 5) As Integer
NullVar = Null ' 设置变量值为 Null。
MyType = TypeName(StrVar) ' 返回 "String"。
MyType = TypeName(IntVar) ' 返回 "Integer"。
MyType = TypeName(CurVar) ' 返回 "Currency"。
MyType = TypeName(NullVar) ' 返回 "Null"。
MyType = TypeName(ArrayVar) ' 返回 "Integer()"。
5. 主函数实现数据输入及平均值输出？
Function Average(mySinge() As Single) As Single
Dim sn As Single
Dim cn As Integer, i As Integer
cn = UBound(mySinge) - LBound(mySinge) + 1
For i = LBound(mySinge) To UBound(mySinge)
sn = sn + mySinge(i)
Next i
Average = sn / cn
End Function
6. 如何在vb里定义一个数组？
有两种方法定义数组：
1、知道数组的元素个数，那么直接定义dim a(9) as integer
2、暂时不知道元素个数，或者该数组应用在多个地方那么如下定义dim a() as integer
7. VB怎么清除数组中的全部元素的值？
Erase 数组名要注意，如果是固定数组，则所有元素的值被初始化（字符型为空字符串，数值型为0），数组的大小是不变的；如果是动态数组，则所有元素被删除，内存空间被回收，要重新ReDim才能使用。
