VB求出50以内所有奇数的和两行星号号之间填空(事件)双击窗体.'(响应)求出50以内所有奇数的和.'将结果存入变量SUM中'-------------------------------------------------PrivateSubFormdblClick()DimsumAsInteger'

Question

VB求出50以内所有奇数的和
两行星号号之间填空
(事件)双击窗体.
' (响应)求出50以内所有奇数的和.
' 将结果存入变量SUM中
'-------------------------------------------------
Private Sub Form_dblClick()
Dim sum As Integer
'
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