3.如果一個三位正整數等于它的每個數字的立方和則次數稱為“水仙花”數(如:153=1^3+5^3+3^3)。下列程序用于求出100-999之間的所有“水仙花”數,請將畫線處的語句補充完整。
Private Sub Command1_Click()
   Dim m As Integer, n As Integer
   Dim a As Integer, b As Integer, c As Integer
   For m = 100 To 999
       a =     ①       
       b =     ②       
       c =     ③       
       n = a ^ 3 + b ^ 3 + c ^ 3
       If   ④     Then List1.AddItem Str(m)
Next  m
End Sub 
 
4.某企業在第1年初購買一臺價值為120萬元的設備,該設備的價值在使用過程中逐年減少。從第2年到第6年,每年初的 價值比上年初減少10萬元;從第7年開始,每年初的價值為上年初的75%。問第n年初該設備的價值是多少?下面的Visual Basic程序用于解決此問題,運行程序,在文本框Text1中輸入年數n,單擊“計算”按鈕Command1,則在標簽Label1中顯示此年初的價值a。程序運行界面如圖1所示,流程圖如圖2所示。
 
 
 
 
程序代碼如下:
Private Sub Command1_Click()
  Dim n As Single, a As Single
  n = Val(Text1.Text)
  If n = Int(n) And n >= 1 Then