最新basic語(yǔ)言程序設(shè)計(jì)作業(yè)-資料下載頁(yè)
2025-07-07 14:22本頁(yè)面
【正文】 ingdim b(1 to 4) as stringi=1s=inputbox(請(qǐng)輸入4個(gè)數(shù),計(jì)算)for i=1 to 4do while(s,i,1),if c=mid(s,i,1), thend=s amp。 cend ifi=i+1loopb(1)=dnext for b(1)+b(2)+b(3)+b(4) (b(1)+b(2)+b(3)+b(4))/4.編程完成10個(gè)隨機(jī)數(shù)的降序排序。(要求：用數(shù)組：先產(chǎn)生1 0個(gè)隨機(jī)數(shù)、然后排序并輸出結(jié)果)。 答： Dim n(10)As IntegerFor i=1 To 10 n(i)=Rnd（）NextFor i=1 To 10 For j=i+1 To 10 if n（i）n(j) thena=n(i)n(i)=n(j)n(j)=aendifnext next For k=1 To 10 Print n(k) Next“哥德巴赫猜想”指出，每個(gè)大于6的偶數(shù)，都可以表示為兩個(gè)素?cái)?shù)的和。試用程序?qū)⒛硞€(gè)給定的數(shù)x表示為兩個(gè)素?cái)?shù)的和。 要求：首先編寫一個(gè)函數(shù)用于判斷一個(gè)數(shù)是否是質(zhì)數(shù)(素?cái)?shù))，然后使用“遍試算法。答：sub su(shu as integer) as boolean 39。判定shu是否是質(zhì)數(shù) dim x as integer,y as integer if shu=2 thensu=trueelse for x=2 to shu1if shu mod x=0 thensu=falseelse su=trueendifnextendsubprivate sub form_load(x as integer) 39。該函數(shù)完成題目要求 輸出x的兩個(gè)素?cái)?shù)的和dim j as integer for j=2 to xif su(j) thenif su(xj) thenprint x?！?”。j。”+”。xjendifendifnextendsub 程序改錯(cuò)題 為了計(jì)算1*1+2*2+3*3+……+100*100，下面的程序至少有5處錯(cuò)誤，請(qǐng)指出這些錯(cuò)誤。 Dim n As Integer，s As Integer Do While n100 s=n*n End Do Print s解：Dim n As Integer，s As Integer n=1 //1 s=0 //2 Do While n=100 //3 s=s+n*n //4 n=n+1 //5 End Do Print s
數(shù)學(xué)相關(guān)推薦
鄂ICP備17016276號(hào)-1