VB6 Do While-在满足条件的情况下程序仍跳过语句
  • 板块学术版
  • 楼主KingKylin
  • 当前回复1
  • 已保存回复1
  • 发布时间2020/9/5 07:41
  • 上次更新2023/11/5 13:43:47
查看原帖
VB6 Do While-在满足条件的情况下程序仍跳过语句
267070
KingKylin楼主2020/9/5 07:41
Private Sub Command1_Click()
删除 (Int(Text1.Text))
公告板.读取
MsgBox "删除成功", , "删除公告"
End Sub

Public Function 删除(del As Integer)
If del < 0 Or del > amount Then
MsgBox "编号有误", , "删除公告"
Exit Function
End If
Do While del <= amount'出错部分
Text(del) = Text(del + 1)
del = del + 1
Loop'部分结束,会直接从下方开始继续执行
Kill App.Path & "\data\text\" & amount & ".txt"
amount = amount - 1
Open App.Path & "\data\text\amount.txt" For Output As #1
Write #1, amount
Do While i < amount
i = i + 1
Open App.Path & "\data\text\" & i & ".txt" For Output As #2
Write #2, Text(i)
Close #2
Loop
Close #1
End Function

以上为局部代码,更多详见蓝奏源代码 报错完整源代码

2020/9/5 07:41
加载中...