Question

VB求出50以内所有奇数的和

两行星号号之间填空

题目：(事件)双击窗体。
' (响应)求出50以内所有奇数的和。
' 将结果存入变量SUM中

'-------------------------------------------------
Private Sub Form_dblClick()
Dim sum As Integer
'******* Program *******

'******* End **********
YZJ (sum)
End Sub

Private Sub YZJ(i As Integer)

Dim OUT As Integer
OUT = FreeFile
Open App.Path & "\19.out" For Output As #OUT
Print #OUT, i
Close #OUT

End Sub

Answer 1

dim iA as integer

for iA =1 to 49 step 2
sum=sum+ia
next

Answer 2

sum = 625

Answer 3

dim i as integer,result as string
i=CINT(textbox1)
if i mod 2 <> 0 then
i=i+2
result=i+2
if i>47 then
textbox2.text=result