ايران ويج

نسخه‌ی کامل: يك سئوال در مورد ويژوال بيسيك 6
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
مي خواهم برنامه اي بنويسم كه اعداد غير صفر يك عدد را نمايش دهد. هر موقع كه اين برنامه را نوشته ام در يك حلقه بي نهايت مي افتد!/؟
بیشتر توضیح بده !
اگر منظورت تابعیه که مثلا با ورودی 85001201 خروجی 85121 رو بده می تونی از کد زیر استفاده کنی:

msgbox Replace(Str(85001201),"0",Empty)   <Code


البته سعی کن عنوان تاپیک رو مناسب تر انتخاب کنی تا هم خودت زودتر به جواب برسی هم دیگران رقبت پاسخگویی داشته باشند.