改错题,指出下列程序错误并纠正(每小题5处1、 输入一个整数(小于100),输出其平方procedure squa (x:integer):integer{result=:x*x}2、 一个TADOQuery类数据集组件ADOQ1,其中存放一个含className字段的班
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/28 10:45:04
改错题,指出下列程序错误并纠正(每小题5处1、 输入一个整数(小于100),输出其平方procedure squa (x:integer):integer{result=:x*x}2、 一个TADOQuery类数据集组件ADOQ1,其中存放一个含className字段的班
改错题,指出下列程序错误并纠正(每小题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语言的作业
改错题,指出下列程序错误并纠正(每小题5处1、 输入一个整数(小于100),输出其平方procedure squa (x:integer):integer{result=:x*x}2、 一个TADOQuery类数据集组件ADOQ1,其中存放一个含className字段的班
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;
自己对比一下就知道哪里错误.