Sub testsub(byref JUd As JUD変数(), byref Ary As Object())
Sub testsub(byref JUd, byref Ary) Dim i As Integer For i = 1 To 10 Step 2 Dim temp As JUD変数 temp.N = Ary(i) temp.Hi = Ary(i + 1) JUd(i) = temp Next i End Sub
for i= 1 to 10 step 2 JUd(i).N = Ary(i) '名前 JUd(i).Hi = Ary(i+1) '番号 next i