[問答題] 完成下列問題：

在考生文件夾下有一個(gè)工程文件sjt4.vbp，相應(yīng)的窗體文件為sjt4.frm，在窗體上有一個(gè)命令按鈕和一個(gè)文本框。程序運(yùn)行后，單擊命令按鈕，即可計(jì)算出0～200范圍內(nèi)能被3整除的所有整數(shù)的和，并在文本框中顯示出來。在窗體的代碼窗口中，已給出了部分程序，其中計(jì)算能被3整除的整數(shù)的和的操作在通用過程Fun中實(shí)現(xiàn)，請(qǐng)編寫該過程代碼。

要求：請(qǐng)勿改動(dòng)程序中的任何內(nèi)容，只在Function Fun()和End Function之間填入若干語句。最后把修改后的文件按原文件名存盤。

[題目提供的源程序]

Sub SaveData()

Open App.Path & "" & "outtxt.txt" For Output As #1

Print #1.Text1.Text

Close #1

End Sub

Function Fun()

’考生應(yīng)編寫的程序

End Function

Private Sub Command1_Click()

d=Fun()

Text1.Text=d

SaveData

End Sub

[操作步驟] 第1步：打開工程文件sjt4.vbp 第2步：編寫函數(shù)Fun，參考程序如下。 Function Fun( ) Sum=0 For i=0 To 200 If i Mod 3=0 Then Sum=Sum+i Next i Fun=Sum End Function 第3步：調(diào)試、運(yùn)行并保存程序。

使用Mod運(yùn)算符來判斷兩個(gè)數(shù)的整除關(guān)系。