能否帮忙给这段程序优化一下

Question

Private Sub Command4_Click() '删除本条记录
If Adodc3.Recordset.RecordCount = 0 Then Exit Sub '记录表中无记录时，如果要删除，就立即退出
Adodc3.Recordset.Delete
If Adodc3.Recordset.RecordCount = 0 Then Exit Sub '删除了最后一条记录则退出
Adodc3.Recordset.MoveNext
End Sub

Answer 1

#include "math.h"/*调用数学函数要用的头文件*/main() /*主函数*/{long int i,x,y,z; /*定义下面要用到的长整型变量*/for (i=1;i<100000;i++) /*从1到10000开始找数*/{ x=sqrt(i+100); /*x为加上100后开方后的结果,sqrt()为开方函数*/y=sqrt(i+268); /*y为再加上168后开方后的结果*/if(x*x==i+100&&y*y==i+268)/*如果一个数的平方根的平方等于该数，这说明此数是完全平方数*/printf("\n%ld\n",i);/*把这个数显示在输出结果框*/}}

Answer 2

Private Sub Command4_Click() '删除本条记录On Error GoTo errAdodc3.Recordset.DeleteAdodc3.Recordset.MoveNexterr:End Sub