一： 利用错误捕获功能判断
创新互联公司是一家专注于网站设计制作、网站建设与策划设计,海沧网站建设哪家好?创新互联公司做网站,专注于网站建设十多年,网设计领域的专业建站公司;建站业务涵盖:海沧等地区。海沧做网站价格咨询:18982081108
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
Technorati 标签: VB,空数组对于空数组，如果用ubound(arr)就会提示错误：下标错误。是否有办法在使用一个动态数组之前，先看看它是否初始化了呢？试了isempty, isnull, is nothing都不管用。如果不想在使用之前ReDim arr(0)，那就只能用错误处理，在出错误的时候做处理并resume next。暂时没有更好的办法。
1.你说的这个有点问题,是要只输出一次,也可做,
2.但问题是如果你数组还有就看不到了!这个做法有点问题
1.解决方法:
循环前面加入一个变量 dim Temp as Double=0
For i = 0 To 9
If score(i) avg and score(i)temp Then
TextBox3.Text = TextBox3.Text score(i) " "
if score(i)=avg then
temp=score(i)
end if
End If
Next
Dim anArray(5, 3) As Integer
数组维数是从0开始计算的。
数组的 GetLength 方法返回指定维的长度。
anArray.GetLength(0) 表示取anArray第0维长度，0-5，即返回6
同理anArray.GetLength(1)取anArray第1维长度，0-3，即返回4
public function createstringarr() as string()
return new string(){"d1","d2","d3","d4"}
end function
