【答案解析】[操作步骤]
步骤1：打开本题工程文件。
步骤2：分析并编写程序代码。
程序提供代码
Sub SaveData()
Open App.Path & "" & "outtxt.txt"For Output As #1
Print#1, Text1.Text
Close #1
End Sub
Function Fun()
End Function
Private Sub Command1_Click()
d=Fun()
Text1. Text=d
SaveData
End Sub
程序结束
Function Fun()
Dim s As Integer, i As Integer
For i=0 To 200
If j Mod 3=0 Then
s=s+i
End If
Next i
Fun=s
End Function
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
答案考生文件夹 [解析] 判断0～200范围内的数能不能被3整除，须使用求余运算符Mod，如果余数不为0，则表示该数不能被整除。并需要设置一个变量，以累计不能被3整除的数的和。