VB程序设计、、求0到100的偶数平方和,在begin和end之间填写、在通用过程fun中实现

Sub SaveData()
    Open App.Path & "\" & "progout.dat" For Output As #1
    Print #1, Text1.Text
    Close #1
End Sub

Function Fun()
'********begin********



'*********end*********
End Function

Private Sub Command1_Click()
    d = Fun()
    Text1.Text = d
    If d <> Empty Then SaveData
End Sub

答案：dim i as integer
for i=0 to 100
if i mod 2=0 then
fun=fun+i^2
next i

其他：dim i%
for i=0 to 100 step 2
fun=fun+i^2
next i for i=0 to 100 step 2
fun=fun+i^2
next 

上一个：vb中a=6=5的值等于?
下一个：VB如何打开一个TXT文件？