本程序设计界面及运行界面如下：程序功能是：用户输入一个3位正整数后，按&ld...

问答题 本程序设计界面及运行界面如下：

程序功能是：用户输入一个3位正整数后，按“确定”键，该数字的个位、十位、百位数字分别显示在输出框中。如果输入的数据不在规定范围之内，程序要给出错误提示。
请编写单击“确定”按钮的事件处理程序。

您可能感兴趣的试卷

你可能感兴趣的试题

1.填空题 数据库mydb中有关系表student，其结构如下：
student（sno学号，sname姓名，sex性别，birthday生日）
现编写一个学生信息浏览程序，设计界面和运行界面如下图所示：

在下划线处填写相应数据库组件的属性值：
Database1. DatabaseName : mydb
Table1. DatabaseName : mydb T
able1. TableName : student
Table1. Active :（①）
Datasource1.DataSet :（②）
DBNavigator1. DataSource : （③）
DBEdit2. DataSource :（④）
DBEdit2. DataField :（⑤）

参考答案：①true；②table1；③datasource1；④DataSource1；⑤sname

2.填空题 本程序根据用户选择的运算符对输入的二个操作数进行运算，并显示运算结果。设计界面和运行界面如图所示。其中，运算符是一个含有4个单选按纽的RadioGroup1对象。

下面是单击“运算”按钮的事件处理程序，请根据功能要求完成程序填空。
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;