بدست اوردن متقارن در ويژوال بيسيك6

[mehdiafzali]

سلام.
يه سوال دارم ممنون مي شم جواب بدين.
چطوري ميشه در ويژوال بيسيك6 يك عدد از ورودي بگيريم و متقارن ان را چاپ كنيم.

 

[the_king]

سلام.
يه سوال دارم ممنون مي شم جواب بدين.
چطوري ميشه در ويژوال بيسيك6 يك عدد از ورودي بگيريم و متقارن ان را چاپ كنيم.

چیزی به اسم متقارن عدد نداریم، عدد یا خودش متقارن هست یا نیست، مثلا 12321 و 4554 متقارن هستند و
ولی 12341 و 78 متقارن نیستند. اگه منظورتون از متقارن، قرینه (معکوس) است از ترکیب (((Val(StrReverse(CStr(x
استفاده کنید، مثلا :

    Dim i As Integer, j As Integer
    i = 4567
    j = Val(StrReverse(CStr(i)))
    MsgBox j

 

[mehdiafzali]

يعني اينكه چك كنه ايا عدد ورودي كه ما مي ديم متقارن هست يا نه؟
خيلي ممنون مي شم پاسخ اين رو هم بدين

 

[the_king]

يعني اينكه چك كنه ايا عدد ورودي كه ما مي ديم متقارن هست يا نه؟
خيلي ممنون مي شم پاسخ اين رو هم بدين

    Dim i As Integer
    i = Val(InputBox("Please enter a number :"))
    If i = Val(StrReverse(CStr(i))) Then
        MsgBox "Yes"
    Else
        MsgBox "No"
    End If