itgle.com

设计一个表单(如下图所示),判断一个正数是不是素数。要求:在文本框中输入一个正数,单击“确定”按钮后显示结果,单击“退出”按钮释放表单。控件的主要属性:Labe11. Caption=“请输入一个正数:”Labe12.Caption=“判断结果:”Command1. Caption=“确定”Command2. Caption=“退出”Text1.Value=2

题目

设计一个表单(如下图所示),判断一个正数是不是素数。

要求:在文本框中输入一个正数,单击“确定”按钮后显示结果,单击“退出”按钮释放表单。

控件的主要属性:

Labe11. Caption=“请输入一个正数:”

Labe12.Caption=“判断结果:”

Command1. Caption=“确定”

Command2. Caption=“退出”

Text1.Value=2


相似考题
参考答案和解析
正确答案:(1)编写Text1的GotFocus事件代码如下: THISFORM. LabeCaption=“判断结果:” (2)编写Command1的Click事件代码如下: FOR I=2 TO THISFORM. Tcxt1. Value-1 IF THISFORM. Text1. Value %I=0 THISFORM. Labe Caption=“判断结果:不是素数” RETURN ENDIF ENDFOR T
(1)编写Text1的GotFocus事件代码如下: THISFORM. LabeCaption=“判断结果:” (2)编写Command1的Click事件代码如下: FOR I=2 TO THISFORM. Tcxt1. Value-1 IF THISFORM. Text1. Value %I=0 THISFORM. Labe Caption=“判断结果:不是素数” RETURN ENDIF ENDFOR T
更多“ 设计一个表单(如下图所示),判断一个正数是不是素数。要求:在文本框中输入一个正数,单击“确定”按钮后显示结果,单击“退出”按钮释放表单。控件的主要属性:Labe11. Caption=“请输入一个正数:”Labe”相关问题
  • 第1题:

    设计一个文件名和表单名均为“bdl”的表单。表单的标题为“外汇持有情况”。表单中有一个选项按钮组控件、一个表格控件及两个命令按钮“查询”和“关闭”。其中,选项按钮组控件有3个按钮“美元”、“英镑”和“港币”。运行表单时,在选项组控件中选择“美元”、“英镑”和“港币”,单击“查询”命令按钮后,根据选项组控件的选择将“外汇账户”表的情况显示在表格控件中。单击“关闭”按钮,关闭并释放表单。


    正确答案:
    【考点指引】本大题主要考查表单的表格控件和选项按钮组控件的建立及使用,重点是表格数据源的设置。
    【操作步骤】
    ①选择【文件】→【新建】命令,选择“表单”,单击“新建文件”按钮打开表单设计器,在表单属性窗口中将Caption属性值修改为“外汇持有情况”;单击表单控件工具栏上的“选项按钮组”控件图标,为表单添加一个选项按钮组0ptionGroup1;单击表单控件工具栏上的“命令按钮”控件图标,为表单添加两个命令按钮Command1和Command2;单击表单控件工具栏上的“表格”控件图标,再添加一个表格控件“Grid1”。

    ②选择选项按钮组0ptionGroup1,单击右键,在弹出的快捷菜单中选择“生成器”打开选项按钮组生成器对话框,单击“按钮”选项卡,设置按钮的数目为3,在“标题”列下修改3个按钮的标题分别为“美元”、“英镑”和“港币”,单击“确定”按钮关闭命令组生成器对话框。
    ③分别选择两个命令按钮,在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“查询”,Command2的Caption属性值修改为“关闭”,如图63–1所示。“关闭”命令按钮,在Click事件中输入代码:ThisForm.Release,用来关闭表单。
    ④选择表格控件“Grid1”,在表格控件属性窗口中将“RecordSource”属性值修改为“〝〞”,将“RecordsourceType”属性值修改为“1”。
    ⑤双击“查询”命令按钮,在Click事件中输入代码:
    DO CASE
    CASE ThisForm.Option Group1.value=1
    SELECT外汇账户.*INTO CURSOR tmp FROM外汇账户,货币代码WHERE外汇账户.货币代码=货币代码.货币代码AND货币名称=〝美元〞
    CASE ThisForm.Option Group1.value=2
    SELECT外汇账户.*INTO CURSOR tmp FROM外汇账户,货币代码WHERE外汇账户.货币代码=货币代码.货币代码AND货币名称=〝英镑〞
    CASE ThisForm.Option Group1.value=3
    SELECT外汇账户.*INTO CURSoR tmp FROM外汇账户,货币代码WHERE外汇账户.货币代码=货币代码.货币代码AND货币名称=〝港币〞
    ENDCASE
    This Form.Grid1.Record SourceType=1
    This Form.Grid1.Record Source=〝tmp〞
    This Form.Grid1.Refresh
    ⑥选择【表单】→【执行表单】命令,系统首先要求保存该表单文件,在弹出的“另存为”对话框中输入表单文件名“bd1”,保存在考生文件夹下,然后运行表单。

  • 第2题:

    设计一个文件名和表单名均为currency_form的表单,所有控件的属性必须在表单设计器的属性窗口中设置完成。表单的标题为“外币市值情况”。表单中有一个“姓名”标签控件Labell、一个文本框控件Textl、一个表格控件Gridl和两个命令按钮“查询”(Commandl)和“退出”(Command2),如下图所示。运行表单时,在文本框Text1中输入姓名,然后单击“查询”命令按钮,则在表格控件Grid1中会显示出他所持有的全部“外币名称”及对应的“人民币数量”,并按人民币数量降序排序,同时将结果存储到自由表 DBFA中。 注意,某种外币相当于人民币数量的计算公式:人民币数量=该种外币的“现钞买人价”*该种外币的“持有数量”。 单击“退出”按钮时关闭并释放表单。 运行该表单,查询“林诗因”持有的外币的市值情况。


    正确答案:
    【操作步骤】
    步骤1:在命令窗口输入命令“Create Form. currency_form”,
    并按回车键新建一个表单。
    步骤2:在属性窗口中修改表单的Name属性为C urrency_form,Caption属性为“外币市值情况”。在表单设计器中为表单添加一个标签控件Labell(Caption属性为“姓名”),一个文本框控件Text1,一个表格控件Grid1和两个命令按钮Com. mand1(Caption属性为“查询”)、Command2(Caption属性为“退出”)。
    步骤3:在表单空白处右击,在弹出的快捷菜单中选择“数据环境”命令,将表rate_exchange和currency_s1添加到表单的数据环境中。
    步骤4:双击“查询”按钮,编写Click事件代码如下:
    *********查询按钮的Click事件代码*********
    select外币名称,现钞买人价*持有数量as人民币数量;from rate_exchange,currency_sl;
    where rate_exchange.外币代码=currency_sl.外币代码
    and currency_sl.姓名=thisform.text1.value;
    order by人民币数量desc;into dbf dbfa
    thisform.grid1.recordsouree=”dbfa”
    **************************
    步骤5:双击“退出”按钮,编写Click事件代码如下:ThisForm.Release
    步骤6:保存表单,并按题目要求运行表单。

  • 第3题:

    在考生文件夹下完成下列操作:

    为了查询不同歌手演唱的歌曲,请设计一个表单mform.scx,其界面如下图所示:

    表单控件名为formone表单的标题为“歌曲查询”。表单左侧有一个标签控件Labelone,显示内容为“输入歌手姓名”,一个文本框控件Textone用于输入歌手姓名, 个命令按钮Commanda和Commandb分别显示“查询”和“退出”,以及一个表格控件Gridone。

    表单运行时,用户首先在文本框中输入歌手“刘德华”,然后单击“查询”按钮,如果输入正确,在表单右侧以表格形式显示此歌手的演唱的歌曲信息,包括歌曲名称、语言和歌,按点歌码升序排序,并将此信息存入tb.dbf文件中。单击“退出”按钮将关闭表单。


    正确答案:
    [操作步骤]步骤1:薪建一个表单,通过表单控件工具栏向表单添加各控件,在“表单设计器”中单击右键,在弹出的菜单中选择“数据环境”,将“歌手”表和“歌曲”表添加到数据环境设计器中。步骤2:通过属性窗口设置表单及各控件的属性控件表单标签文本框属性CaptionNamecaptionNalTleName值歌曲查询formone输入歌手姓名LableoneTextone控件命令按钮1命令按钮2表格属性captioncaptionNameRecordSourceRecordSourceType值查询退出GridoneSELECT歌曲名称,语言,点歌码FROM歌啦4-SQL说明步骤3:编写两个命令按钮的Click事件代码如下:****“查询”命令按钮的Click事件代码****Thisform.Gridone.RecordSource=”SELECT歌曲名称,语言,点歌码FROM歌曲,歌手;WHERE歌曲.演唱者一歌手.歌手id;AND姓名=ALLTRIM(Thisform.Textone.Value)IN-T0tabletb;orderby点歌码”****************************“退出”命令按钮的Click事件代码****ThisForm.Release************************步骤4:保存表单名为“mform”,按题目要求运行表单并执行相关操作。

  • 第4题:

    仓库管理数据库中含有3个数据库表“订购单”、“职工”和“供应商”。设计一个表单myf,表单的标题为“仓库管理”。表单左侧有标题为“请输入订购单号”标签,和用于输入订购单号的文本框,以及“查询”和“关闭”2个命令按钮和1个表格控件。

    表单运行时,用户在文本框内输入“订购单号” (如OR73),单击“查询”按钮,查询出对应的订购单的“供应商名”、“职工号”、“仓库号”和“订购日期”。表单的表格控件用于显示查询结果。单击“关闭”按钮,关闭表单。


    正确答案:单击“文件”菜单中的“新建”在类型选择框中选择“表单”单击“新建文件”按钮打开表单设计器。在属性窗口中设置表单的Caption 属性为“仓库管理”从“表单控件”工具栏中选择1个文本框1个标签1个表格控件2个命令按钮放置在表单上。在属性面板中分别设置两个命令按钮的Caption 属性分别为“查询”和“关闭”设置标签的Caption 属性值为“请输入订购单号”。 双击命令按钮“查询”编写该控件的Click 事件程序代码如下: ******命令按钮Command1(查询)的Click 事件代码***** SELECT 供应商名订购单.职工号仓库号订购日期; FROM 订购单供应商职工; WHERE 订购单.供应商号=供应商.供应商号; AND 职工.职工号=订购单.职工号; AND 订购单号=ALLTRIM(Thisform.Text1.value); INTO CURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" **************************************************** 以同样的方法为“关闭”命令按钮编写Click 事件代码:Thisform. Release。 保存表单文件为myf. scx 到考生文件夹下表单运行结果如图3-106所示。 图3-106
    单击“文件”菜单中的“新建”,在类型选择框中选择“表单”,单击“新建文件”按钮,打开表单设计器。在属性窗口中设置表单的Caption 属性为“仓库管理”,从“表单控件”工具栏中选择1个文本框,1个标签,1个表格控件,2个命令按钮放置在表单上。在属性面板中分别设置两个命令按钮的Caption 属性分别为“查询”和“关闭”,设置标签的Caption 属性值为“请输入订购单号”。 双击命令按钮“查询”,编写该控件的Click 事件,程序代码如下: ******命令按钮Command1(查询)的Click 事件代码***** SELECT 供应商名,订购单.职工号,仓库号,订购日期; FROM 订购单,供应商,职工; WHERE 订购单.供应商号=供应商.供应商号; AND 职工.职工号=订购单.职工号; AND 订购单号=ALLTRIM(Thisform.Text1.value); INTO CURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" **************************************************** 以同样的方法为“关闭”命令按钮编写Click 事件代码:Thisform. Release。 保存表单文件为myf. scx 到考生文件夹下,表单运行结果如图3-106所示。 图3-106 解析:本大题主要考查的是SQL语句的应用,程序部分属于SQL的简单联接查询,在显示查询结果时,首先可用一个临时表保存查询结果,然后将表格控件中来显示数据的属性值设置为该临时表,用来显示查询结果。

  • 第5题:

    SCORE_MANAGER数据库中有3个数据库表,它们分别是STUDENT、SCORE1和COURSE。 设计一个下图所示的表单Myforml(控件名为forml,表单文件名Myform1.sex),以便对SCORE_MANAG. ER数据库中的数据进行查询。表单的标题为“成绩查询”。表单左侧有文本“输入学号标签(名称为 Labell)、用于输入学号的文本框(名称为Textl)、“查询”(名称为Commandl)和“退出”(名称为Command2)两个命令按钮,表单中同时包含1个表格控件(名称为Gridl)。 表单运行时,首先在文本框中输入学号,然后单击“查询”按钮,如果输入学号正确,在表单右侧以表格形式显示该生所选课程名和成绩,否则提示“学号不存在,请重新输入学号”。 单击“退出”按钮,则关闭表单。


    正确答案:
    【操作步骤】
    步骤1:在命令窗口中输人“CREATE FORM. myforml”,新建一个表单。按题目的要求添加一个标签控件、一个文本框控件、两个命令按钮和一个表格控件。设置表单的Caption属性为“成绩查询”,标签控件的Caption属性为“输入学号”,Commandl的Caption属性为“查询”,Command2的Caption属性为“退出”;设置表格的ColumnCount属性为“2”,RecordSourceType属性为“0一表”,第1列的Caption属性为“课程名”,第2列的Caption属性为“成绩”。
    步骤2:右击表单空白处,选择“数据环境”命令,将表 course和scorel添加到数据环境中。
    步骤3:双击命令按钮,编写命令按钮的CliCk事件代码。
    ******“查询”按钮的Click事件代码 ******
    SELECT eourse.课程名,scorel.成绩;
    FROM eourse.scorel:
    WHERE course.课程号=scorel.课程号AND scoml.学号=ThisForm.Text1.text:
    INTO TABLE coruse_cursor
    IF RECC=0
    MESSAGEBOX(“学号不存在,请重新输入学号”)
    ELSE
    ThisForm.Gfidl.RecordSource=”COnlSe_cursor”
    ThisForm.Gridl.refresh
    ENDIF
    *************************
    *****“退出”按钮的Click事件代码*****
    ThisForm.Release
    *************************
    步骤4:保存并运行表单。