[問答題] 在考生文件夾下有一個(gè)工程文件sjt4. vbp,相應(yīng)的窗體文件為sjt4. frm在窗體上有一個(gè)文本框和一個(gè)命令按鈕。當(dāng)程序運(yùn)行后,單擊命令按鈕,即
2021-07-20
[問答題] 在考生文件夾下有一個(gè)工程文件sjt4. vbp,相應(yīng)的窗體文件為sjt4. frm在窗體上有一個(gè)文本框和一個(gè)命令按鈕。當(dāng)程序運(yùn)行后,單擊命令按鈕,即可計(jì)算出0~100范圍內(nèi)所有偶數(shù)的平方和,并顯示在文本框中。在窗體的代碼窗口中,已給出了部分程序,其中計(jì)算偶數(shù)平方和的操作在通用過程Fun中實(shí)現(xiàn),請(qǐng)編寫該過程的代碼。
要求:請(qǐng)勿改動(dòng)程序中的任何內(nèi)容,只在Function Fun()和End Function之間填入你編寫的若干語句。最后將修改后的文件按原文件名存盤。
正確答案:[解題思路] 根據(jù)題意,通過For循環(huán)語句的循環(huán)變量i(初值為0,終值為A00,步長(zhǎng)為B)來獲得0~A00范圍內(nèi)的所有偶數(shù),并逐一將i^B的值累加到變量s,最后將s的值顯示在文本框中,并將其作為函數(shù)返回值。[操作步驟] 步驟A:打開本題工程文件。 步驟B:分析并編寫程序代碼。 程序提供代碼 Sub SaveData() Open App. Path & "" & "outtxt. txt" For Output As #A Print #A, TextA. Text
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。