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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 16:47:02
VB求出50以内所有奇数的和两行星号号之间填空(事件)双击窗体.''(响应)求出50以内所有奇数的和.''将结果存入变量SUM中''-------------------------------------

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

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

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