本程序根據(jù)用戶選擇的運(yùn)算符對(duì)輸入的二個(gè)操作數(shù)進(jìn)行運(yùn)算,并顯示運(yùn)算結(jié)果。設(shè)計(jì)界面和運(yùn)行界面如圖所示。其中,運(yùn)算符是一個(gè)含有4個(gè)單選按紐的RadioGroup1對(duì)象。
下面是單擊“運(yùn)算”按鈕的事件處理程序,請(qǐng)根據(jù)功能要求完成程序填空。
procedure TForm1.Button1Click(Sender: TObject);//運(yùn)算
var
x1,x2,y :Integer;
begin
x1 := StrToInt( Edit1. ①);
x2 : = StrToInt( Edit2. ②);
Case ③.ItemIndex of
0: y := x1 + x2 ;
1: y := x1 - x2;
2: y := x1 * x2;
3: y := x1 Div x2;
End;
Edit3. ④:= IntToStr( ⑤);
end;
您可能感興趣的試卷

最新試題
枚舉類型的元素就是標(biāo)識(shí)符,所以必須符合標(biāo)識(shí)符的規(guī)定(不能是數(shù)字、不能是保留字等)。
Alignment 對(duì)齊方式屬性,該屬性值決定了顯示區(qū)中內(nèi)容的顯示位置,取值有()。
()執(zhí)行可以控制程序逐條執(zhí)行語(yǔ)句,每執(zhí)行完一條語(yǔ)句程序都會(huì)停下來(lái),等待用戶發(fā)出執(zhí)行下一條語(yǔ)句的命令。
Animate 組件的主要方法中能夠停止動(dòng)畫的播放的是()。
程序塊可出現(xiàn)在以下幾種場(chǎng)合中()