**چند سوال در حد دبستان!!

نقل قول:

---

نوشته شده توسط BabyBoy [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

vb دم دستم نیست امتحانش نکردم امیدوارم کار کنه!!! :8:

کد:

---

s = "12345678910"
k = 1
For i = 1 To 10
  x = Mid(s, i, k)
    Print x
  k = k + 1
  i = (i * 2) - 1
Next i

---

---

ممنون
ببخشيد دير جواب دادم
كار كرد دوست عزيز