Sub SaveData()
Open App.Path & "\" & "outtxt.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Function Fun()
Dim s As Long, i As Integer
For i = 0 To 100
If i Mod 2 = 0 Then
s = s + i ^ 2
End If
Next i
Fun = s 就在这里如果改为fun()就会提示什么什么溢出
End Function
Private Sub Command1_Click()
d = Fun()
Text1.Text = d
SaveData
End Sub
白板的微信
相关分类