改错题,指出下列程序错误并纠正(每小题5处
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/22 12:53:12
改错题,指出下列程序错误并纠正(每小题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语言的作业
![改错题,指出下列程序错误并纠正(每小题5处](/uploads/image/z/7436777-41-7.jpg?t=%E6%94%B9%E9%94%99%E9%A2%98%2C%E6%8C%87%E5%87%BA%E4%B8%8B%E5%88%97%E7%A8%8B%E5%BA%8F%E9%94%99%E8%AF%AF%E5%B9%B6%E7%BA%A0%E6%AD%A3%28%E6%AF%8F%E5%B0%8F%E9%A2%985%E5%A4%84)
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
单句改错:下面每句均有一处错误,指出并加以改正.
一.改错.每题均有一处错误指出并改正.