مشاهده نسخه کامل
: درخواست در حل يه مساله ساده
mahmoodtaker
27-04-2010, 10:23
لطفا يكي سورس اين برنامه رو بهم بده(وي بي 6) خيلي گنگ به نظر مياد:41:
زير برنامه اي بنويسيد از نوع sub ،كه با دريافت يك متغير m به عنوان ارگومان ورودي مجموع n جمله ي ابتداي سري زير را چاپ كند
s=1 +1/2 + 1/3 +.... +1/n
:40::40::40:
برنامه نياز به يك Textbox و يك commandbutton دارد.
Private Sub Command1_Click()
x = 1
For i = 1 To Text1.Text
x = x + i / (i + 1)
Next
Print x
End Sub
mahmoodtaker
29-04-2010, 10:13
برنامه نياز به يك Textbox و يك commandbutton دارد.
Private Sub Command1_Click()
x = 1
For i = 1 To Text1.Text
x = x + i / (i + 1)
Next
Print x
End Sub
حل این مساله فقط همین چند خط کد ساده بود؟!!!!!
ممنون از شما دوست عزیز
---------- Post added at 11:11 AM ---------- Previous post was at 11:09 AM ----------
برنامه نياز به يك Textbox و يك commandbutton دارد.
Private Sub Command1_Click()
x = 1
For i = 1 To Text1.Text
x = x + i / (i + 1)
Next
Print x
End Sub
حل این مساله کلا همین چند خط سورس ساده بود؟!!!!
عجب!
ممنون از شما دوست عزیز.
خیر ببینی از جوونیت!
---------- Post added at 11:13 AM ---------- Previous post was at 11:11 AM ----------
برنامه نياز به يك Textbox و يك commandbutton دارد.
Private Sub Command1_Click()
x = 1
For i = 1 To Text1.Text
x = x + i / (i + 1)
Next
Print x
End Sub
حل این مساله کلا همین چند خط سورس ساده بود؟!!!!
عجب!
ممنون از شما دوست عزیز.
خیر ببینی از جوونیت!
vBulletin , Copyright ©2000-2025, Jelsoft Enterprises Ltd.