Public Class Class1
Public Function Merge(ByVal arr() As Integer, ByVal arr1() As Integer) As Integer()
Dim l As Integer = arr.Length - 1
Dim arr2(l) As Integer
For i As Integer = 0 To l
arr2(i) = arr(i) + arr1(i)
Next
Return arr2
End Function
End Class
Imports ClassLibrary1
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim myDll As New Class1
MsgBox(myDll.Merge(New Integer() {2}, New Integer() {3})(0).ToString)
End Sub
End Class
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 60