关于水石榴要怎么养殖，水石榴怎么吃这个很多人还不知道，今天小篇来为大家解答以上的问题，现在让我们一起来看看吧！

1、text1.setfoceOption Base 1Private Sub Command1_Click()Dim mw As String, st As String, i As IntegerDim p Option ExplicitAs String, t() As String, k As Integermw = Text1if mw="" then '判断空值msgbox "必须填入内容！"end ifFor i = 1 To Len(mw)p = Mid(mw, i, 1)If p >= "0" And p st = st & pElseIf Len(st) <> 0 Thenk = k + 1t(k) = stst = ""End Ifif k>0 then'判断是否有0~7数字For i = 1 To UBound(t)k = convert(t(i))st = st & Chr(k)Text2 = ssemsgbox "没有0~7的数字！"end ifEnd SubPrivate Function convert(p As String) As IntegerDim i As Integer, k As Integer, n As IntegerFor i = Len(p) To 1 Step -1n = n + Val(Mid(p, i, 1)) 8 ^ kk = k + 1convert = nEnd Function因为你的程序根本就没有执行这句：导致数组没有被初始化，所以会由此错误。

本文到这结束，希望上面文章对大家有所帮助。