PDA

View Full Version : سوال: تبدیل کد


terminator68
چهارشنبه 11 آبان 1390, 13:17 عصر
سلام.می خواستم اعداد 1 تا 100 رو توسط یه حلقه تو یه تکست ذخیره کنم کنار هم بصورت رشتهمثلا اینجوری اعدادو بگیره و چاپ کنه
محسن واژدی
چهارشنبه 11 آبان 1390, 13:22 عصر
سلام علیکم
کد زیر را بررسی کنید:

Private Sub Command1_Click()
Dim txt$, i%
For i = 1 To 100
txt$ = txt$ & i
Next i
Text1 = txt$
End Sub


موفق باشید
terminator68
پنج شنبه 12 آبان 1390, 21:29 عصر
سلام.حل کردم دوست عزیز...تشکر
محسن واژدی
پنج شنبه 12 آبان 1390, 22:35 عصر
سلام علیکم
کد زیر را بررسی کنید:

Private Sub Command1_Click()
Dim txt$
txt$ = "12345678910111213141516171819202122232425"
MsgBox Mid(txt$, 21, 1)
End Sub



موفق باشید