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