【简答题】
Sub SaveData()
Open App.Path & "\" & "outtxt.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Function Fun()
' 需要考生编写的代码
参考答案
For i = 0 To 1000
If i Mod 7 <> 0 Then
Y = Y + 1
End If
Next i
Fun = Y
End Function
Private Sub Command1_Click()
d = Fun()
Text1.Text = d
SaveData
End Sub