سلام.
خوب هستید؟
یه سوال داشتم.
می خواستم یه برنامه بنویسم که از عدد یک تا 999 رو بخونه.
بعد که خوند حالا بهش بگی که عدد بیستو پنجم کودومه بگه
مثلا اینجوری اعدادو بگیره
12345678910111213141516171819202122232425
و بگه عدد بیستو پنجم چنده
که اینجا میشه عدد 7
یا عدد بیستو ششم میشه 1
خیلی ممنون میشم اگه راهنمایی کنید.
دوست عزیز
راه های زیادی برای انجام این کار وجود داره ،
در ساده ترین حالت کل 999 عدد رو می شه به وسیله یک Loop داخل یک آرایه ریخت و سپس هر کدوم از آرایه ها رو که
خواستید بر طبق شماره اون بخونید.
کد php:
start
10 : i=i+1
input a(i)
if i<999 then goto 10
print "Input Your place Number"
input PNum
Print a(PNum)
end
راه دیگه اینه که اعداد رو به صورت یک رشته ذخیره کنید و با یک دستور Left و Right کاراکتر مورد نظرت رو بخونی
کد php:
Start
Input A
Print "Input Place Number"
Input PNum
A=Left (A,PNum)
A=Right(A,1)
Print A
End
سلام.
ببخشید میشه ببینید مشکل برنامه من کجاست؟
آخه من یک سال و نیمه که با vb کار نکردم....
اگه میشه یه چندین راه حلشو واسم بنوسید ممنون میشم....
چطور میشه تمام اعدادو تو تکست کنار هم قرار داد؟
کد:
Dim a As Integer
Private Sub Command1_Click()
For i = 1 To 30
Print i
Next i
a(i) = InputBox("enter")
If a(i) = i Then
Print a(i)
End If
End Sub
ببخشید کسی نیست جواب بده؟
ای بابا
من که همش رو گفتم ، الان دیگه کجا مشکل داری؟؟
برای نمایش همه اعداد یکجا داخل یک باکس کافیه همش رو پشت سر هم بخونی و داخل باکس نمایش بدی
کد php:
for i=1 to 999
Text1=Text1 & A(i)
next i