求Delphi试题答案 delphi 题目求解答。

求Delphi试题答案

1-
2-
3-A
4-D
5-A
6-B
7-B
8-B
9-A
10-C
11-A
12-(编译的快捷键应为Ctrl F9 运行的快捷键才是F9)
13-A
14-D
15-D
16-
17-D
18-D
19-C
20-
21-
22-A
23-
24-D
25-D

delphi 题目求解答。

procedure TForm1.Button1Click(Sender: TObject)
var
  array1:array[1..15] of byte
  i,j:integer
  str1,str2,str3:string
begin
  for i := 1 to 15 do
    array1[i]:=1 2*(i-1)
  for i := 1 to 5 do
    str1:=str1 inttostr(array1[i])
    memo1.Lines.Add(str1)
  for i := 6 to 10 do
    str2:=str2 inttostr(array1[i])
    memo1.Lines.Add(str2)
  for i := 11 to 15 do
    str3:=str3 inttostr(array1[i])
    memo1.Lines.Add(str3)
end