首页学历类考试电大国家开放大学《Delphi程序设计》
(简答题)

本程序设计界面及运行界面如下图所示 该程序的功能是:用户在界面上的两个编辑框(Edit1、Edit2)内分别输入两个正整数M和N(M

正确答案

答案解析

相似试题

  • (简答题)

    本程序设计界面及运行界面如下图所示。 该程序的功能是:用户在界面上的两个编辑框(Edit1、Edit2)内分别输入两个正整数M和N(M

    答案解析

  • (填空题)

    数据库mydb中有关系表student,其结构如下: student(sno学号,sname姓名,sex性别,birthday生日)  现编写一个学生信息浏览程序,设计界面和运行界面如下图所示: 在下划线处填写相应数据库组件的属性值:

    答案解析

  • (简答题)

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

    答案解析

  • (简答题)

    输入一个数字,程序判断如下情况:如果能被3整除但同时不能被5整除,显示“该数只能被3整除”;如果只能被5整除但是不能被3整除,显示“该数只能被5整除”,若被3整除同时被5整除,显示“该数可以同时被3、5整除”。 本程序设计界面及运行界面如下: 请编写单击“判断”(Button1)按钮的事件处理程序。

    答案解析

  • (填空题)

    本程序根据用户选择的运算符对输入的二个操作数进行运算,并显示运算结果。设计界面和运行界面如图所示。其中,运算符是一个含有4个单选按纽的RadioGroup1对象。 下面是单击“运算”按钮的事件处理程序,请根据功能要求完成程序填空。

    答案解析

  • (简答题)

    某厂对使用的原材料钢筋进行用前检测。要求输入钢筋的直径进行检查。标准品为10.0毫米直径。实际产品的直径与标准品之间的误差为±0.5毫米以下(含0.5毫米)的都认为是合格的,提示“检测为合格品”。否则提示“检测为废品”。 本程序设计界面及运行界面如下: 请编写单击“检测”(Button1)按钮的事件处理程序。

    答案解析

  • (简答题)

    某俱乐部实行会员注册收费,每位会员按整月每月收费500元整。但是对注册时期较长的会员有价格优惠。规则如下:注册6个月以下(含6个月)每月收费金额不变,6至12个月实行9折收费,12个月以上(不含12个月)8折收费。编程在“注册月数”框中输入会员欲注册的月数,单击“计算”按钮后在“应收金额”框中显示应收会费总钱数。单击“结束”按钮结束程序。 本程序设计界面及运行界面如下: 请编写单击“计算”(Button1)按钮的事件处理程序。

    答案解析

  • (填空题)

    应用程序的用户界面如下图所示: 功能说明: 该界面是一个教师信息录入界面。  用户在编辑框(Edit1)中输入姓名,利用单选按钮(RadioGroup1)指定性别,利用组合框(ComboBox1)选择或直接输入所在系,利用列表框(ListBox1)指定职称。当输入完上述信息后,单击“确定”按钮,教师信息将显示在右边的Memo1编辑窗口中。  下面是开发过程,请完成填空部分:

    答案解析

  • (填空题)

    本程序实现一个简单的借书界面。程序的设计界面和运行界面如下图所示: 该程序涉及到数据库中的两张表:books(图书信息)和borrow(借书记录)。表的结构为:  books(bno,书号,bname书名,num现有册数)  borrow(rno 读者号,bno书号,rdate还书日期) 其中,rno和bno都是字符型(3位)。  在用户界面,操作员选中一本书、输入借书证号后,按“借书”键完成借书功能,即在borrow表中插入一条借书记录,并将books表中该书现有册数减1。  该界面要实现以下合法性检查:  1.当该读者已经借了此书,不能再借。    2.当所借的书现有册数为0,不能再借。  在Form1上建立的数据库组件对象及连接关系如下:  Database1-Table1(与books表相连)-DataSource1-DBGrid1(显示图书信息)  Database1-Table2(与borrow表相连,用于插入借书记录)  Database1-Query1  其中为Table1建立了3个永久字段:Table1bno(书号)、Table1bname(书名)、Table1num(现有册数)。  Query1的SQL语句如下:  select bno  from borrow  where rno = :rno and bno = :bno   下面是Unit1的代码实现部分,请完成程序填空:

    答案解析

快考试在线搜题