求1000以內(nèi)滿足如下條件的正整數(shù)N： 它的各個因子（包括1和N）之和sum是一個素數(shù)。 例如：25的因子為1、5、25，其和 1+5+25 = 31是素數(shù)。 程序的思想是選取正整數(shù)N，分解其因子，并累加，子過程Prime 用于判斷累加和是否是素數(shù)；主調(diào)程序調(diào)用子過程，若是素數(shù)，在文本框內(nèi)顯示所求結(jié)果。 Private Sub Button1_Click() Handles Button1.Click Dim i%, sum%, n%, t$ Dim tag As Boolean For n = 2 To 1000 sum = 1 t = "1" " 存放各個因子之和表達式 i = 2 Do While i <= 1 _____(1)_____ " 求給定正整數(shù)的所有因子 if n mod i="0" then sum="_____(2)_____" t &="+" end + loop call ____(3)____ tag textbox1.text ": " vbcrlf next sub private prime(byval s%, ___(4)___flag as boolean) 判斷s是否是素數(shù) dim m% flag="True" for m="2" to math.sqrt(s) s exit 補全程序，在答題時，務(wù)必在答題框中寫好題號和答案，如下： (1)： _________ (2)： (3)： (4)：>