ارجوا المساعدة

ضع هذا الكود تحت حدث command2_click

 Dim s1, s2 As String

 s1 = Mid(Text1.Text, Len(Text1.Text), 1)
 s2 = Mid(Text2.Text, Len(Text2.Text), 1)

 If (Asc(s1) > Asc(s2)) Then
  P2.Print s1 & " grater then " & s2
ElseIf (Asc(s1) < Asc(s2)) Then
  P2.Print s2 & " grater then " & s1
Else
P2.Print "Same Letter"
 End If

omani كتب:

 Dim s1, s2 As String

Devd كتب:

Be Careful:

s1 not a string variable!

شكرا استاذي . يمكن كتابتها بهذه الطريقة

Dim s1 as String, s2 As String

تحياتي

الشكر للجميع وتحت التجربة

يسلمو كثييييييير تم انجاز البرنامج بنجاح ومع الشكر الجزيل للجميع وبارك الله فيكم

اخوكم خالد سمارة