在考生文件夾下有一個工程文件sjt4．vbp，相應的窗體文件為sit4．frm，在窗體上有一個文本框和一個命令按鈕。程序運行后，單擊命令按鈕，即可計算出0～10
在考生文件夾下有一個工程文件sjt4．vbp，相應的窗體文件為sit4．frm，在窗體上有一個文本框和一個命令按鈕。程序運行后，單擊命令按鈕，即可計算出0～1000范圍內不能被7整除的整數的個數，并在文本框中顯示出來。在窗體的代碼窗口中，已給出了部分程序，其中計算不能被7整除的整數的個數的操作在通用過程Fun中實現，請編寫該過程的代碼。
要求：請勿改動程序中的任何內容，只在FunctionFun（）和EndFunction之間填入你編寫的若干語句。最后將修改后的文件按原文件名存盤。
正確答案：【考點分析】本題考點有：Mod運算符、文件編輯、For循環語句、If判斷語句以及過程函數。【解題思路】可通過求余運算符Mod來計算某數M能否被7整除，如果MMod7=0，那么M能被7整除；如果MMod7$amp;【操作步驟】步驟1：打開本題工程文件。步驟2：打開代碼編輯窗口，在代碼編輯窗口指定位置編寫以下代碼。參考答案Function Fun()Dim S As Integer，i As IntegerFor i=0 To 1000。求0～1000中滿足條件的數If i Mod 7$amp;s=s+1′將
詞條內容僅供參考，如果您需要解決具體問題
（尤其在法律、醫學等領域），建議您咨詢相關領域專業人士。