قرار دادن عناصر مشابه دو آرایه در آرایه سوم به زبان ویژوال بیسیک

[anayurdu]

سلام بروبکس عزیر !!!!

من چنتا سوال برام پیش اومده توش موندم و کمک داره نفسم تموم میشه لطفا کمکم کنید.

مساله ها اینن:

1- برنامه بنویسید که دو دسته اعداد 10 تایی را خوانده و در 2 آرایه قرار دهد. سپس اعدادی را که بین دو آرایه مشترک هستند در ارایه 3وم قرار دهد و چاپ کند!

اینا همش تو vb6 هستش....


کمک....

 

[the_king]

1- برنامه بنویسید که دو دسته اعداد 10 تایی را خوانده و در 2 آرایه قرار دهد. سپس اعدادی را که بین دو آرایه مشترک هستند در ارایه 3وم قرار دهد و چاپ کند!

لطفا هر سوال را در تاپیک جداگانه ای مطرح کنید و در عنوان هر تاپیک موضوع سوال و زبان آنرا بنویسید.

Private Sub Form_Load()
    Dim A(1 To 10) As Long, B(1 To 10) As Long, C(1 To 10) As Long
    Dim I As Long, J As Long, K As Long, N As Long
    Dim S As String
    For I = 1 To 10
        A(I) = Val(InputBox("Please enter A(" & CStr(I) & ")"))
    Next
    For I = 1 To 10
        B(I) = Val(InputBox("Please enter B(" & CStr(I) & ")"))
    Next
    N = 0
    For I = 1 To 10
        For J = N + 1 To 10
            If A(I) = B(J) Then
                For K = 1 To N
                    If C(K) = A(I) Then Exit For
                Next
                If K = N + 1 Then
                    N = N + 1
                    C(N) = A(I)
                    B(J) = B(N)
                End If
                Exit For
            End If
        Next
    Next
    For I = 1 To N
        S = S & CStr(C(I)) & ", "
    Next
    MsgBox S
End Sub