用VB编写“拆红包”程序，界面如图所示。在Text1中输入红包金额（元），在Text2中输入人数，点击“Command1”命令按钮，在列表框List1中显示分到的红包情况。
（1）把命令按钮Command1上显示的文字改成“拆红包”，应修改Command1按钮的__________属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer
Dim num As Integer '存储红包的个数
Dim money As Single '存储红包的剩余金额
Dim k As Single '存储每次分到的红包金额
money = Val(Text1.Text)
num = Val(Text2.Text)
For i = ①________ To 1 Step -1
If i = 1 Then
k = Int(money * 100) / 100 '保留两位小数
Else
k = Int(Rnd() * money / i * 100) / 100
End If
money =
②________
List1.AddItem Str(k)
Next i
End Sub
（3）执行该程序，（选填：有 / 没有）________可能产生金额为0元的红包。
