Question

请求VB高手 Option Explicit Option Base 0 Dim a() As Integer Private Sub Command1_Click() Dim m As L

Option Explicit
Option Base 0
Dim a() As Integer

Private Sub Command1_Click()
Dim m As Long, n As Long, i As Long
m = Text1.Text: n = Text2.Text
For i = m To n
If pd(i) Then
Text3 = CStr(i) & "=" & CStr(a(4)) & "^4+" & CStr(a(3)) & "^4+" & CStr(a(2)) & "^4+" & CStr(a(1)) & "^4" & vbCrLf
End If
Next i

End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Function pd(ByVal i As Long) As Boolean
Dim j As Integer, k As Integer, n As Long
n = i
Do
j = n Mod 10
n = n \ 10
k = k + 1
ReDim Preserve a(k)
a(k) = j
Loop Until i = 0
If a(1) ^ 4 + a(2) ^ 4 + a(3) ^ 4 + a(4) ^ 4 = i Then
pd = True
End If
End Function
在运行的时候，总是说数组a()的下标越界

Answer 1

Option Explicit :变量使用前必须声明.
Option Base 0:动态数组下界为0
Dim a() As Integer:a() 为整数型动态数组

Answer 2

cdcsc

Answer 3

标题党。。。。。

Answer 4

问题呢