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

题目

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

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

控件的主要属性：

Labe11. Caption＝“请输入一个正数：”

Labe12.Caption=“判断结果：”

Command1. Caption＝“确定”

Command2. Caption=“退出”

Text1.Value＝2

相似考题

1.以下程序代码用来实现如下功能：单击命令按钮弹出对话框，在其中输入正数后单击确定，弹出一个提示信息显示刚才输入的正数，否则提示"error"。请填空。Private Sub Command1_Click()Dim a As Integer，b As Stringa=InputBox("请输入一个正数")If a ＞ 0 Then______Elseb=MsgBox("error"，0)End IfEnd Sub

2.设计一个表单名和文件名均为form_tem的表单，其中，所有控件的属性必须在表单设计器的属性窗口中设置。表单的标题设为“使用零件情况统计”。表单中有一个组合框(Combo1)、一个文本框(Text1)和两个命令按钮“统计”(Command1)和“退出”(Command2)。 运行表单时，组合框中有3个条目“sl”、“s2”和“s3”(只有3个，不能输入新的，Row Source Type的属性为“数组”，Style的属性为“下拉列表框”)可供选择，单击“统计”命令按钮后，则文本框显示出该项目所使用零件的金额合计(某种零件的金额=单价*数量)。 单击“退出”按钮关闭表单。 注意：完成表单设计后要运行表单的所有功能。

3.设计一个名为form_book的表单，表单的控件名为forml，文件名为form_book，表单的标题为“图书情况统计”。表单中有一个组合框(名称为Combo1)、一个文本框(名称为Text1)和两个命令按钮“统计”和“退出”(名称分别为Command1和Command2)。 运行表单时，组合框中有3个条目“清华”、“北航”、“科学”(只有3个出版社名称，不能输入新的)可供选择，在组合框中选择出版社名称后，如果单击“统计”命令按钮，则文本框显示出book表中该出版社图书的总数。 单击“退出”按钮则关闭表单。 注意：完成表单设计后要运行表单的所有功能。

4.设计名为“mysupply”的表单。表单的标题为“零件供应情况”。表单中有一个表格控件和两个命令按钮“查询”和“退出”。 运行表单时，单击“查询”命令按钮后，表格控件中显示工程号“J1”所使用的零件的零件名、颜色和重量。单击“退出”按钮关闭表单。

参考答案和解析
正确答案：(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：保存并运行表单。

相关内容