單項(xiàng)選擇題
求1000以內(nèi)滿足如下條件的正整數(shù)N： 它的各個(gè)因子（包括1和N）之和sum是一個(gè)素?cái)?shù)。 例如：25的因子為1、5、25，其和 1+5+25 = 31是素?cái)?shù)。 程序的思想是選取正整數(shù)N，分解其因子，并累加，子過程Prime 用于判斷累加和是否是素?cái)?shù)；主調(diào)程序調(diào)用子過程，若是素?cái)?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" " 存放各個(gè)因子之和表達(dá)式 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是否是素?cái)?shù) dim m% flag="True" for m="2" to math.sqrt(s) s exit 補(bǔ)全程序，在答題時(shí)，務(wù)必在答題框中寫好題號(hào)和答案，如下： (1)： _________ (2)： (3)： (4)：>
A.Click
B.text
C.sqrt(s)
微信掃一掃關(guān)注公眾號(hào)后聯(lián)系客服
微信掃碼免費(fèi)搜題
