首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个文本框,名称分别为Textl、Text2;还有三个命令按钮,名称分别为Cl、C2、C3,标题分别为”输入”、”计算”、”存盘”(如图2-210所示)。并有一个函数过程isprime(a)可以在程序
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个文本框,名称分别为Textl、Text2;还有三个命令按钮,名称分别为Cl、C2、C3,标题分别为”输入”、”计算”、”存盘”(如图2-210所示)。并有一个函数过程isprime(a)可以在程序
admin
2013-10-18
16
问题
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个文本框,名称分别为Textl、Text2;还有三个命令按钮,名称分别为Cl、C2、C3,标题分别为”输入”、”计算”、”存盘”(如图2-210所示)。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则返回True,否则返回False。请编写适当的事件过程,使得在运行时,单击”输入”按钮,就把文件in5.txt中的整数放入Textl中;单击”计算”按钮,则找出大于Textl中的整数的第一个素数,并显示在Text2中;单击”存盘”按钮,则把Text2中的计算结果存入out5.txt文件中。
注意:考生不得修改isprime函数过程和控件的属性,必须把计算结果通过单击”存盘”按钮存入out5.txt文件中。
选项
答案
步骤1:打开考生文件中的本题工程文件sjt5.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%=Textl.Text Do a%=a%+1 Loop Until isprime(a%) Text2.Text=a% End Sub Private Sub C3_Click( ) Open”out5.txt”For Output As #1 Print #1,Text2.Text Close #1 End Sub
解析
转载请注明原文地址:https://kaotiyun.com/show/EHQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为HScroll1的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是()。
对长度为n的线性表排序,在最坏情况下,比较次数不是n(n-1)/2的排序方法是()。
按照软件测试的一般步骤,集成测试应在【】测试之后进行。
为计算a“的值,某人编写了函数power如下:PrivateFunctionpower(aAsInteger,nAsInteger)AsLongDimPAsLongP=aFork=lT0nP=P*aNextkp
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明:PrivateTypePersonnameAsString*8mjotAsString+
数据库系统的核心是【】。
在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1),并把窗体的KeyPreview属性设置为True,然后编写如下代码:DimSaveAllAsStringPrivateSubForm_Load()Show
以下关系表达式中,其值为True的是______。
数据库应用系统中的核心问题是______。
表达式Val(".123E2")的值是()。
随机试题
诱因
清代作家姚鼐编的文学作品总集是【】
Bythistimetomorrowwe______themachine.
能通过增加心钠素含量而发挥利尿作用的利水渗湿药是()。
下列不属于常用的财务杠杆比率的是()。
要约收购的期限不得少于()日。
下列观点中属于主观唯心主义的是()。
设随机变量X的概率密度为f(x),则下列函数中一定可以作为概率密度的是
WhichofthefollowingitalicizedpartsisINCORRECT?
Thereareabout105malesbornforevery100females,butthis(36)______dropstonearbalanceattheageofmaturity,andamon
最新回复
(
0
)