在考生文件夾下有一個(gè)工程文件sjt4．vbp，相應(yīng)的窗體文件為sit4．frm，在窗體上有一個(gè)文本框和一個(gè)命令按鈕。程序運(yùn)行后，單擊命令按鈕，即可計(jì)算出0～10
在考生文件夾下有一個(gè)工程文件sjt4．vbp，相應(yīng)的窗體文件為sit4．frm，在窗體上有一個(gè)文本框和一個(gè)命令按鈕。程序運(yùn)行后，單擊命令按鈕，即可計(jì)算出0～1000范圍內(nèi)不能被7整除的整數(shù)的個(gè)數(shù)，并在文本框中顯示出來。在窗體的代碼窗口中，已給出了部分程序，其中計(jì)算不能被7整除的整數(shù)的個(gè)數(shù)的操作在通用過程Fun中實(shí)現(xiàn)，請編寫該過程的代碼。
要求：請勿改動(dòng)程序中的任何內(nèi)容，只在FunctionFun（）和EndFunction之間填入你編寫的若干語句。最后將修改后的文件按原文件名存盤。
正確答案：【考點(diǎn)分析】本題考點(diǎn)有：Mod運(yùn)算符、文件編輯、For循環(huán)語句、If判斷語句以及過程函數(shù)。【解題思路】可通過求余運(yùn)算符Mod來計(jì)算某數(shù)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中滿足條件的數(shù)If i Mod 7$amp;s=s+1′將
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。