在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画3个文本框，名称分别为Text1、Text2和Text3；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”、“＝”符；再建立一个含有4个单选按纽的RadioGroup组件，名称为RadioGroup 1，标题分别为“+”、“-”、“*”和“/”。程序运行后，在Text1、Text2中输入两个整数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Text3，程序运行情况如图所示。请填入适当的内容，将程序补充完整。 procedure TForm1.Button1Click(Sender: TObject); 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;
相关推荐
-
1、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）Dim c As Integer，n As IntegerFor c=0 T...
-
2、在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、L
在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、Label2、Label3的标签，然后编写如下的事件过程：Private x As Integer Private Sub Command1_Click()Static...
-
3、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）Dim array1（10，10）As IntegerDim I，j As...
-
4、在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、L
在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、Label2的标签，然后编写如下的事件过程：Private x As Integer Private Sub Command1_Click()x = 5: y =...
-
5、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Pri
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click（）Dim I As Integer，j As IntegerDim a（10，10）As IntegerFor I=1 To...
-
6、在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标
在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下的事件过程： Private Sub Command1_Click()s = 0For i = 0 To 15X = 2 * i - ...