۱۳ ارديبهشت ۱۳۸۹ ساعت ۱۱:۰۳:۲۲
پروژه ای طراحی کنید که ارقام فرد هر عدد طبیعی دلخواهی را محاسبه کرده و نمایش دهد
|
رویداد دکمه Compute |
|
Private sub Form_Activate() Dim lngi As Long Dim lngno As Long Dim strinput As String Strinput = inputbox ( " Enter Your Number : " , " Input DATA " , 0) Lngno = val(strinput) Do Lngi = lngno mode 10 If lngi mode 2 = 1 then print lngi Lngno = lngno Loop While ( lngno>0) End sub |
نوشته شده توسط ابراهيم فوقي | لینک ثابت | موضوع: آرشيو نظرات (0)
