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

Question

Private Sub Command4_Click() '删除本条记录If Adodc3.Recordset.RecordCount = 0 Then Exit Sub '记录表中无记录时，如果要删除，就立即退出Adodc3.Recordset.DeleteIf Adodc3.Recordset.RecordCount = 0 Then Exit Sub '删除了最后一条记录则退出Adodc3.Recordset.MoveNextEnd 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 err
Adodc3.Recordset.Delete
Adodc3.Recordset.MoveNext
err:
End Sub