20.某企業(yè)在第1年初購買一臺(tái)價(jià)值為120萬元的設(shè)備,該設(shè)備的價(jià)值在使用過程中逐年減少。從第2年到第6年,每年初的價(jià)值比上年初減少10萬元;從第7年開始,每年初的價(jià)值為上年初的75%.問第n年初該設(shè)備的價(jià)值是多少?下面的Visual Basic程序用于解決此問題,運(yùn)行程序,在文本框Text1中輸入年數(shù)n,單擊“計(jì)算”按鈕Command1,則在標(biāo)簽Label1中顯示此年初的價(jià)值a。程序運(yùn)行界面如圖1所示,流程圖如圖2所示。 程序代碼如下: Private Sub Command1_Click ( ?。?br />Dim n As Single,a As Single n=Val(Text1.Text) If n=Int(n) And n>=1 Then If n<=6 Then a=① Else a=70*0.75^(n-6) End If Label2.Caption=“第“+Str(n)+“年初價(jià)值:“+② +“萬元“ Else Label2.Caption=“輸入的年數(shù)不符合要求!“ End If End Sub 在程序①和②橫線處,填入適當(dāng)?shù)恼Z句或表達(dá)式,把程序補(bǔ)充完整: 程序中①橫線處應(yīng)填入
21.求完數(shù)(完美數(shù))。一個(gè)數(shù)恰好等于除它本身外的因子之和,這個(gè)數(shù)就稱為完數(shù)。例如28除本身之外的因子是1,2,4,7,14,且1+2+4+7+14=28,則28是完數(shù)。下列Visual Basic程序用于查找2~10000中的所有完數(shù),并將結(jié)果顯示在列表框List1中,程序運(yùn)行界面如圖1所示。其中方框內(nèi)程序?qū)?yīng)的流程圖如圖2所示 程序代碼如下: Private Sub Command1_Click ( ?。?br />Dim i As Integer,t As Integer,s as integer
For x=2 To 10000 s=0 For i=1 To x\2 If x Modi=0 Then s=② End If Next i If s=xThen List1.AddItem① End If Next x End sub