189 8069 5689
int 型，取值范围-2,147,483,648 到 2,147,483,647 ，默认值是 0 int是值类型，读内存区间中指定长度单元里的数据，这块单元就算不做任何处理也全是0，那么数值就是0 所以，int 型，永远不会为空，从声明一个 int 变量时，它默认就是0，而不是空
10年的安丘网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。全网营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整安丘建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“安丘网站设计”,“安丘网站推广”以来，每个客户项目都认真落实执行。
为什么一定要用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
注：由于统计方式比较简单，要取得需要的结果并不需要将相减后的数据放入另一数组，所以没有浪费内存去生成另一个数组。
一： 利用错误捕获功能判断
Dim ArrayS() As String
Private Sub Command1_Click()
On Error GoTo z
ReDim ArrayS(10)
If UBound(ArrayS) -1 Then
MsgBox "数组不为空"
End If
Exit Sub
z:
MsgBox "数组空"
End Sub
二、 Join方法：
Dim ArrayS() As String
Private Sub Command1_Click()
If (CStr(Join(ArrayS, ""))) = "" Then
MsgBox "为空"
Else
MsgBox "不为空"
End If
End Sub
不知道你说的空是哪种意思?
有两种说法,一种是String.Empty,例如
Dim s As String = String.Empty 等同于 Dim s As String = ""
这种情况下直接If s = "" Then就可以判断是不是空.
还有一种是Nothing,必须要用If IsNothing(s) Then来判断.