大家来看看我的程序
我的循环有点问题，试验的时候来是死机，请各位帮忙，问题出在了那里？
Private Sub cmdSend_Click()
Dim mystr As String
mystr = (txtMobileNo.Text)
mystrs = Split(mystr, ",")
Dim i As Long
If chkqunfa.Value = 1 Then
For i = 0 To UBound(mystrs)
SMS.SendTimeOut = Text1.Text ‘这里是发送延时，请问SMS.sendtimeout 该怎么用啊？请指教
If SMS.SendMsg(mystrs(i), txtmsg.Text, IIf((chkChinese.Value = 1), True, False), IIf((chkReport.Value = 1), True, False)) = 0 Then
MsgBox "发送成功！"
SMS.SendTimeOut = 0
Else
MsgBox "发送失败"
End If
Next i
End If
If SMS.SendMsg(txtMobileNo.Text, IIf((chkChinese.Value = 1), True, False), IIf((chkReport.Value = 1), True, False)) = 0 Then
MsgBox "发送成功！"
Else
MsgBox "发送失败！"
End If
End Sub
问题点数：0、回复次数：4Top
1 楼bluezsh（张郎）回复于 2003-08-03 18:24:09 得分 0
菜鸟请教老鸟，怎么没有人回答呢？Top
2 楼bobob（静思）回复于 2003-08-03 18:26:48 得分 0
Text1是什么内容？
把循环改成
For i = lbound(mystrs) To UBound(mystrs)
Top
3 楼bluezsh（张郎）回复于 2003-08-03 18:33:19 得分 0
TEXT1。TEXT是用户输入的时间间隔啊，在没有其他的错误了吗？
但是我试验的时候怎么老是死机啊？Top
4 楼bluezsh（张郎）回复于 2003-08-04 09:56:38 得分 0
这么多的高手,难道不会?还是不想说啊?Top
