首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp,其窗体上有一个文本框,名称为Textl;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3-20所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
在考生目录下有一个工程文件sjt5.vbp,其窗体上有一个文本框,名称为Textl;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3-20所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素
admin
2016-03-22
51
问题
在考生目录下有一个工程文件sjt5.vbp,其窗体上有一个文本框,名称为Textl;还有两个命令按钮,名称分别为C1、C2,标题分别为“计算”、“存盘”,如图3-20所示。并有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则返回True,否则返回False。请编写适当的事件过程,使得在运行时,单击“计算”按钮,则找出大于15000的第一个素数,并显示在Text1中;单击“存盘”按钮,则把Text1中的计算结果存入考生文件夹下的out5.txt文件中。
注意:考生不得修改isprime函数过程和控件的属性,必须把计算结果通过单击“存盘”按钮存入out5.txt文件中,否则无成绩。
选项
答案
【操作步骤】 步骤1:打开本题对应工程文件sjt5.vbp。 步骤2:双击窗体Forml上的“计算”按钮,打开代码编辑窗口,在其Click事件过程中输入如下代码: 参考代码: Private Sub C1 C1ick() a%=15000 Do a%=a%+1 Loop Until isprime(a%) Text1.Text=a% End Sub 步骤3:双击窗体Forml上的“存盘”按钮,在代码编辑窗口其Click事件过程中输入如下代码: 参考代码: Private Sub C2 C1ick() Open App.Path&“\out5.txt”For Output AS#1 Print#1,Text1.Text C10se#1 End Sub 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/iMLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果将文本框的Locked属性设置为True,则以下说法正确的是
定义无符号整数类为UInt,下面可以作为类UInt实例化值的是
(11)在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:PrivateSubCommandl_Click()DimctAsStringDimntAsIntegerOpen”e
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateSubCommand1_Click()x=1Result=1Whilex
设已经在窗体上添加了一个通用对话框控件CommonDialog1,以下正确的语句是
使用VisualBasic6.0开发的应用程序,最多可以有______个窗体。
设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为
在窗体模块的通用声明段中声明变量时,不能使用()关键字。
表达式Fix(-12.08)+Int(-23.82)的值为______。
设有如下变量声明:DimTestDateAsDate为变量TestDate正确赋值的表达方式是()
随机试题
复关节
男性,60岁,出现无痛性血尿半年余。膀胱镜检查:膀胱三角区可见一乳头状肿物、有蒂,活检报告为乳头状瘤。符合此诊断的病变是
咳血方主治证候的病机是
不可抗力
某设计合同,业主支付定金10万元后,设计人不履行义务,业主有权要求设计人返还()万元。
某企业每增加500万元的销售额,需增加销售人员10人,预计1年后销售额将增加2,000万元,如果在新增人员中管理人员、销售人员和客服人员的比例是1:6:3,则1年后该企业需要增加客服人员()人。
涉及到合营企业的一些事项必须经出席董事会会议的董事一致通过方可作出决议,这些事项包括()。
社会治安综合治理的领导力量是各级党委和政府。()
心理学实验中因变量的测量指标既有主观指标也有客观指标,下列属于主观指标的是
ThearomaofchocolateperfumestheairoftheRued’AssasinParis.EnteringChristianConstant’sstate-of-the-artboutique,yo
最新回复
(
0
)