用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元的红包。