خدمات البرمجة ---- أطلب أي مساعدة في البرمجة

[ahmad12]

سؤال وردني عبر الخاص :

س1: أكتب برنامجاً بلغة فيجول بيسك لحساب مجموع الأرقام:
ر=1تربيع+2تربيع...+100تربيع

الإجابة

sum = 1^2 + 2^2 +..... + 100^2

حيث ^ تعني ( أس )

sum : يمثل المجموع
i: نسميه عداد

هذه عبارة عن تعريفات للمتغيرات sum و i

Dim sum As Double
Dim i As Integer


For i = 1 To 100

sum = sum + i ^ 2

Next i

الجملة التالية تستخدم لإظهار المجموع بنافذة مستقلة
MsgBox sum