改错题,指出下列程序错误并纠正(每小题5处
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/31 09:44:59
改错题,指出下列程序错误并纠正(每小题5处
1、 输入一个整数(小于100),输出其平方
procedure squa (x:integer):integer
{
result=:x*x
}
2、 一个TADOQuery类数据集组件ADOQ1,其中存放一个含className字段的班级表,要求将ADOQ1的className字段对应的所有值通过循环依次加到组合框CB_Class中,并设置其默认显示项为CB_Class中第一项,实现如下
while not ADOQ1.bof do
begin
CB_Class.items.add(ADOQ1.FieldByName(‘className’));
End
这是我学的Delphi语言的作业
1、 输入一个整数(小于100),输出其平方
procedure squa (x:integer):integer
{
result=:x*x
}
2、 一个TADOQuery类数据集组件ADOQ1,其中存放一个含className字段的班级表,要求将ADOQ1的className字段对应的所有值通过循环依次加到组合框CB_Class中,并设置其默认显示项为CB_Class中第一项,实现如下
while not ADOQ1.bof do
begin
CB_Class.items.add(ADOQ1.FieldByName(‘className’));
End
这是我学的Delphi语言的作业
1.
procedure squa (x:integer):integer;
begin
result := x*x;
end;
2.
ADOQ1.First;
while not ADOQ1.Eof do
begin
CB_Class.items.add(ADOQ1.FieldByName(‘className’).asString);
ADOQ1.Next;
End;
自己对比一下就知道哪里错误.
procedure squa (x:integer):integer;
begin
result := x*x;
end;
2.
ADOQ1.First;
while not ADOQ1.Eof do
begin
CB_Class.items.add(ADOQ1.FieldByName(‘className’).asString);
ADOQ1.Next;
End;
自己对比一下就知道哪里错误.
改错题,指出下列程序错误并纠正(每小题5处
改错题,指出错误处,并改正~
改错题(每小题有一处是错误的,请指出错误并订正或说明理由。本大题共5小题,每小题4分,共20分)
历史改错纠正题【3处错误】
三、指出下列公文标题的错误并加以改正(每题5分,
英语改错题.下列各句中均有一处错误,请指出并改正.急.
改错:下面每题都有一处错误,请指出错误并改正.
宾语从句改错(指出句中错误之处,并改正.每句均有错误)
语文改错题,望高手指出错误,并改正,
问一个程序改错题,指出下面程序中的错误//#includevoid main( ) { cout
单句改错:下面每句均有一处错误,指出并加以改正.
一.改错.每题均有一处错误指出并改正.