189 8069 5689
int 型，取值范围-2,147,483,648 到 2,147,483,647 ，默认值是 0 int是值类型，读内存区间中指定长度单元里的数据，这块单元就算不做任何处理也全是0，那么数值就是0 所以，int 型，永远不会为空，从声明一个 int 变量时，它默认就是0，而不是空
创新互联建站 - 西部信息服务器托管，四川服务器租用，成都服务器租用，四川网通托管,绵阳服务器托管，德阳服务器托管，遂宁服务器托管，绵阳服务器托管，四川云主机，成都云主机，西南云主机，西部信息服务器托管，西南服务器托管，四川/成都大带宽，服务器机柜，四川老牌ＩＤＣ服务商
一： 利用错误捕获功能判断
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
为什么一定要用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
注：由于统计方式比较简单，要取得需要的结果并不需要将相减后的数据放入另一数组，所以没有浪费内存去生成另一个数组。
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 1000 'timer 的触发频率是1秒
Call DetermineText()
End Sub
Private Sub DetermineText()
If TextBox1.Text = vbNullString Then
Timer1.Enabled = False 'Timer 停止
Else
Timer1.Enabled = True 'Timer 启动
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Call DetermineText()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'***************此处填写你要在Time中想要执行的代码****************Start
'***************此处填写你要在Time中想要执行的代码****************End
If TextBox1.Text = vbNullString Then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If
End Sub
End Class