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