[問答題] 在考生文件夾下有一個(gè)工程文件sjr4.vbp,相應(yīng)的窗體文件為sjr4.frm,在窗體上有一個(gè)文本框和一個(gè)命令按鈕。程序運(yùn)行后,單擊命令按鈕,即可計(jì)
2021-07-20
[問答題] 在考生文件夾下有一個(gè)工程文件sjr4.vbp,相應(yīng)的窗體文件為sjr4.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之間填入你編寫的若干語句。最后將修改后的文件按原文件名存盤。
正確答案:[解題思路] 判斷0~B00范圍內(nèi)的數(shù)能不能被C整除,須使用求余運(yùn)算符Mod,如果余數(shù)不為0,則表示該數(shù)不能被整除。并需要設(shè)置一個(gè)變量,以累計(jì)不能被C整除的數(shù)的和。[操作步驟] 步驟A:打開本題工程文件。 步驟B:分析并編寫程序代碼。 程序提供代碼 Sub SaveData( ) Open App. Path & " " & "outtxt. txt" For Output As #A Print #A, TextA. Text Close #A End Sub Function
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。