درخواست در حل يه مساله ساده

[mahmoodtaker]

لطفا يكي سورس اين برنامه رو بهم بده(وي بي 6) خيلي گنگ به نظر مياد

زير برنامه اي بنويسيد از نوع sub ،كه با دريافت يك متغير m به عنوان ارگومان ورودي مجموع n جمله ي ابتداي سري زير را چاپ كند

s=1 +1/2 + 1/3 +.... +1/n

[AQOUA]

برنامه نياز به يك 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]

برنامه نياز به يك 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

حل این مساله کلا همین چند خط سورس ساده بود؟!!!!
عجب!
ممنون از شما دوست عزیز.
خیر ببینی از جوونیت!