جواب اين سوال رو كي بلده؟

[amin-along]

برنامه اي كه 20 عدد رو از ورودي (input box) دريافت كند و حاصل جمع مربعات آنها را محاسبه و چاپ كند؟

[Slytherin]

برنامه اي كه 20 عدد رو از ورودي (input box) دريافت كند و حاصل جمع مربعات آنها را محاسبه و چاپ كند؟

یک Command به برنامه اضافه کنید و سپس کد های زیر را در قسمت کد های برنامه کپی کنید:

Private Sub Command1_Click()
Cls
Dim G(20) As Byte
Dim MG(20) As Byte
Dim i As Byte
Dim temp As Long
Dim R As Long
For i = 1 To 20
G(i) = Val(InputBox("Number" + CStr(i) + ":"))
MG(i) = G(i) ^ 2
R = R + MG(i)
Next i
Print CStr(R)
End Sub