Printable View
دوستان لطفا بهم كمك كنيد تا بد بخت نشم!:41:
يه استاد عقده اي داريم كه يه برنامه درخواست كرده كه اگه ندم 2 نمره از نمره ي پايان ترممون كم ميكنه.!!!:18:
برنامه اي بنويسيد با دريافت يك عدد، مجموع ارقام ان عدد را جمع كند،اگر مجموع ارقام عدد مورد نظر تك رقمي شد،ان رو چاپ كرده ولي اگر مجموع ارقام عدد 1 رقمي نشد ان را تا موقعي كه 1 رقمي شود به طور پياپي جمع كرده و چاپ كند.
خواهشا كمكم كنيد.دعاتون ميكنم:40:
با تبدیل عدد به رشته راحت می شه این کار رو کرد
اول با تابع Mid با یه حلقه تک تک رقم های عددمون رو جمع کنیم بعدبقیشم که if ه
بابا دوست عزیز من خیلی امانور هستم!:41:نقل قول:
اگه میشه همینا رو به زیان وی بی 6 برام بنویس
دعات میکنم.:40:
نترس راه دوری نمیره!:11:
نوشتنش کاری نداره
-------------------------------------------------------
ایمیل من [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
بفرمایید ... کدش رو براتون نوشتم :
کد:Private Sub Command2_Click()
Dim a As Integer, b As String, c As Integer, d As Integer
a = InputBox("Enter Number")
b = CInt(a)
For i = 1 To Len(b)
c = c + Val(Mid(b, i, 1))
Next i
Do While c > 9
For i = 1 To Len(c)
d = d + Val(Mid(c, i, 1))
Next i
c = d
Loop
Print c
End Sub
يه دنيا تشكر
به به معلومه که کار این دوست عزیزمون حرف نداره.
انشا الله هر جا که هست موفق باشه.
3 روز دیگه امتحان ویژوال بیسیک دارم .
معلممون خودش 2 تا از سوالات عملی رو بهمون گفت!!!
برای شما که استاد هستی فکر کنم هرکدومش رو تو کمتر از 3 دقیقه بنویسی.
دوست عزیز اگه سورس کد این دو سوال رو بهم بدی سر نماز یه دعای حسابی از من و بقیه ی بچه ها داری!
1.برنامه ای بنویسید که حاصلn جمله ی اول سری زیر را محاسبه کند.
....!F=x - x^3/3! + x^5/5! - x^7/7
2. برنامه ای بنویسید که دو عدد صحیح مثبت ( mو n ) را از ورودی خوانده و با روش جمع n^m به توان نمایش دهد.
خواهشا سورس این دو تا برنامه رو به زبان وی بی 6 اگه بدی یه دنیا ممنونتم.
بفرمایید کد رو براتون نوشتم ... سوال دو :نقل قول:
کد:Private Sub Command1_Click()
Dim a As Integer
a = InputBox("number 1")
b = InputBox("number 2")
e = b - 1
For i = 1 To e
a = a + a
Next i
Print a
End Sub
* اگه گفت با روش ضرب ... باید کد زیر رو بنویسید !
کد:Private Sub Command1_Click()
a = InputBox("number 1")
b = InputBox("number 2")
c = a
e = b - 1
For i = 1 To e
a = a * c
Next i
Print a
End Sub
* سوال یک رو متوجه نشدم ...