查看解析

var a:integer;

var b:real;

begin

a:=120;

if a<=100 then

b=a*0.6

else

b=100*0.6+(a-100)*1.0;

writeln(‘a=’,a,’ ‘,’b=’,b);
运行结果是：

查看解析

查看解析

下列组件中不是可视组件的是（ ）

A MaskEdit B TImagelist C Tlable D Radiobutton

查看解析

下列组件中不能获得焦点的是（ ）

A edit B Listbox C Memo D MainMenu

查看解析