帮我 vb难题

Option Explicit
Dim xx1(50) As String
Dim xingming(50) As String
Dim d1(50) As Integer
Dim d2(50) As String
Dim y1(50) As Integer
Dim n1 As Integer, n2 As Integer
Dim xuhao As Integer, renshu As Integer
Private Sub Command3_Click()
xuhao = renshu
X1 = xingming(xuhao)
d1 = Str(nianling(xuhao))
d2 = dizhi(xuhao)
yi = youbian(xuhao)
If xingbie(xuhao) = 1 Then
n1.Value = True
Else
n2.Value = True
End If
End Sub

Private Sub Command4_Click()
If xuhao = renshu Then
MsgBox ("最后一个了,烦")
Else
xuhao = xuhao + 1
Call prtrec
End If
End Sub

Private Sub Command5_Click()
If xuhao = renshu Then
MsgBox ("最前一个了,烦")
Else
xuhao = xuhao - 1
Call prtrec
End If
End Sub

Private Sub Command6_Click()
xuhao = 1
X1 = xingming(xuhao)
d1 = Str(nianling(xuhao))
d2 = dizhi(xuhao)

帮我 vb难题 我有个VB难题,,能帮我的追加50分!!!!!!!! 帮我解答难题 帮我解决难题 vb难题，会我解给高分～～～～～～～～～～～～～～～～～～～ vb难题，会我解给高分!!!!!!!!!!!!!!!!!!!!!!!!! 帮我解决一个难题 帮我解道难题 帮我解答一个难题 帮我解决以下难题