首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个文本框,名称分别为Textl、Text2:还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“输入”、“计算”、“存盘”(如图1-210所示)。并有一个函数过程isprime(a)可以在程序
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个文本框,名称分别为Textl、Text2:还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“输入”、“计算”、“存盘”(如图1-210所示)。并有一个函数过程isprime(a)可以在程序
admin
2010-09-02
64
问题
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个文本框,名称分别为Textl、Text2:还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“输入”、“计算”、“存盘”(如图1-210所示)。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则返回True,否则返回False。请编写适当的事件过程,使得在运行时,单击“输入”按钮,就把文件in5.txt中的整数放入Textl中;单击“计算”按钮,则找出大于Textl中的整数的第一个素数,并显示在Text2中;单击“存盘”按钮,则把Text2中的计算结果存入out5.txt文件中。
注意:考生不得修改isprime函数过程和控件的属性,必须把计算结果通过单击“存盘”按钮存入out5.txt文件中。
选项
答案
【操作步骤】 步骤l:打开考生文件中的本题工程文件sit5.vbp,在代码编辑窗口,分别编写命令按钮的单击事件。 参考代码: Private Sub Cl_Click() Open"in5.txt"For Input As#1 Input#1,a% Close#1 Textl.Text=a% End Sub Private Sub C2_Click() a%=Text1.Text DO a%=a%+1 Loop Until isprime(a%) Text2.Text=a% End S11b Private Sub C3_Click() Open"out5.txt"For Output As#1 Print#1,Text2.Text Close#1 End Sub 步骤2:按要求将文件保存至考生文件夹中。
解析
程序设计思路:在“输入”按钮的单击事件过程中,用Open语句以Input方式打开数据文件in5.txt,并用Input()函数读出所有字符后显示在文本框中;在“计算”按钮的单击事件过程中,调用过程isprime来求解大于Textl中整数的第一个素数。
在“存盘”按钮的单击事件过程中,用Open语句以Output方式打开数据文件out5.txt,并通过For循环用Print#方法逐一将数组中的元素存入该文件。
转载请注明原文地址:https://www.kaotiyun.com/show/EUmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序片段的执行中,说法正确的是( )。publicclassTest{publicstaticvoidmain(Stringargs[]){bytey=20;
设一棵完全二叉树共有699个结点,则该二叉树中的叶子结点数为( )。
下面程序实现对zip文件file.zip的查询,在横线处填上正确的语句______。packagetest;importjava.io.*;importjava.util.*;impor
关系数据库管理系统应实现的专门的关系运算包括______。
下列说法中,不属于数据模型所描述的内容是()。
为了使模块尽可能独立,要求
当用户按Tab键离开文本框时,将激发( )事件
下列为窗口事件的是
下列适配器类中不属于事件适配器的是
随机试题
简述肾脏结构和血流特点。
超声在下列介质中的传播速度(声速)由大到小依次是
下列哪项不是海藻玉壶汤的组成
根据《汽车库、修车库、停车场设计防火规范》,车位数为8个,总建筑面积为1000m2的修车库属于()。
下列各项正确的一项是()。
在基本建设中,建成后不能独立发挥生产能力或效益的工程有()。
个人商用房贷款的还款来源主要是()。
如果设置报表上某个文本框的控件来源属性为“=7Mod4”,则打印预览视图中,该文本框显示的信息为(2004年9月)
Peopletendtostrugglewhenlearninganotherlanguage,especiallyiftheyareexposedonlyitwhileattendingclasses.【M1】_____
Nature______herwithabeautifulsingingvoice.
最新回复
(
0
)