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

来源：学生作业帮编辑：灵鹊做题网作业帮分类：综合作业时间：2024/04/29 08:26:22

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

dim iA as integer

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

用VB分别求出100以内的奇数和、偶数和用while语句求出100以内的所有奇数之和和偶数之和 100以内的奇数和偶数之和代码 VB 100以内所有奇数的和是() 求出1000以内的所有的因子个数为5的数的VB编程用vb求出[2000,9999]以内的所有回文数的个数. 在VB里输入什么代码求出1000以内的所有勾股数! 100以内所有的奇数十以内所有奇数的和的倒数是?十以内所有质数的和是? 100以内所有奇数的和怎么计算? 100以内所有奇数的和是（　　）用VB写出1-100的所有奇数和偶数和