注意:此页面搜索的是所有试题
题目内容
(国家开放大学Delphi程序设计)
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程:
procedure TForm1.Button1Click(Sender: TObject);
var s,i,x: Integer;
begin
s := 0 ;
For i:=1 To 15 Do
Begin
x := 2*i-1;
IF x Mod 3=0 Then
s := s+1
end;
Label1.Caption := IntToStr(s);
End;
问点击Command1的命令按钮后,Label1标签显示数值为:( )
A、5
B、15
C、20
D、25
procedure TForm1.Button1Click(Sender: TObject);
var s,i,x: Integer;
begin
s := 0 ;
For i:=1 To 15 Do
Begin
x := 2*i-1;
IF x Mod 3=0 Then
s := s+1
end;
Label1.Caption := IntToStr(s);
End;
问点击Command1的命令按钮后,Label1标签显示数值为:( )
A、5
B、15
C、20
D、25
参考答案