ترتيب بدون استخدام الاداة ado - نسخة قابلة للطباعة

كود :

Private Sub Command1_Click()



z = Len(Text1.Text)

For i = 1 To z

s(i) = Text1.Text

Print s(i)

Next i

For i = 1 To z

Print s(i)

Next i

z1 = Len(Text2.Text)

For i = 1 To z1

a(i) = Text2.Text

Print a(i)

Next i

For i = 1 To z1

Print a(i)

Next i





End Sub



Private Sub Command2_Click()



If s(4) >= a(4) Then

Print "ok"

Else: Print "not ok"

End If



End Sub



Private Sub Text1_Change()



z = Len(Text1.Text)

For i = 1 To z

s(i) = Text1.Text

Next i



End Sub



Private Sub Text2_Change()



z1 = Len(Text2.Text)

For i = 1 To z1

a(i) = Text2.Text

Next i



End Sub