[問答題] 注意：下面出現(xiàn)的“考生文件夾”均為C：wexam25160002。

(1) 在考生文件夾下有一個(gè)工程文件sjt3.vbp，相應(yīng)的窗體文件為sjt3.frm。其功能是產(chǎn)生20個(gè)0～ 1000的隨機(jī)整數(shù)，放入一個(gè)數(shù)組中，然后輸出這20個(gè)整數(shù)中大于500的所有整數(shù)之和。程序運(yùn)行后，單擊命令按鈕(名稱為Command1，標(biāo)題為“輸出大于500的整數(shù)之和”)，即可求出這些整數(shù)的和，并在窗體上顯示出來，如圖25-4所示。這個(gè)程序不完整，請把它補(bǔ)充完整，并能正確運(yùn)行。

要求：去掉程序中的注釋符，把程序中的改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。

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

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

本題要產(chǎn)生隨機(jī)整數(shù)，需要使用Rnd函數(shù)和Int函數(shù)。 Int函數(shù)是將參數(shù)轉(zhuǎn)換成整數(shù)。 Rnd函數(shù)返回小于A，但大于或等于0的值，其語法格式為： Rnd[(number)] 可選的number參數(shù)是Single或任何有效的數(shù)值表達(dá)式。 number的值決定了Rnd函數(shù)生成隨機(jī)數(shù)的方式。為了生成某個(gè)范圍內(nèi)的隨機(jī)整數(shù)，可使用以下公式： Int((upperbound-lowerbound+A) *Rnd+lowerbound) 這里，upperbound是隨機(jī)數(shù)范圍的上限，而lowerbound則