甲传真告知乙：我处现有××型号特种钢材一批，欲购从速。乙提出了所需钢材的数量、质量和价款等内容，甲告知：完全接受乙的报价，但履行地改为甲之所在地，并要求签订合同书。7月6日，乙回电：完全同意，并依双方前述电文之内容拟制了合同书。7月8日，乙在合同书上签字盖章并以特快专递寄给甲。7月9日甲收到后即安排交货，当日乙在甲之所在地受领了货物，7月10日，甲在合同书上签字盖章。则合同成立的时间是：

A．7月6日

B．7月8日

C．7月9日

D．7月10日

下面程序对已知数组b，删除数组中某指定值的元素，但程序不完整，请填空。
Private Sub Command1_Click()
Dim m, n%, i%, j%
m=Array(1,3,5,29,34,50)
n=Val(InputBox("请输入要删除的值"))
For i=0 To UBound(m)
If (12) Then
For j=i+1 To UBound(m)
(13)
Next j
ReDim Preserve (14)
MsgBox("删除完成")
Exit For
End If
Next i
End Sub