首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件vbsj5.vbp。运行程序时,在文本框中输入一个素数,然后单击“查找”命令按钮,找出小于给定素数的三个最大的素数,并显示在标签控件数组lblResult 中,如图1-246所示。 要求:工程文件中已给出部分程序,其中
在考生文件夹下有一个工程文件vbsj5.vbp。运行程序时,在文本框中输入一个素数,然后单击“查找”命令按钮,找出小于给定素数的三个最大的素数,并显示在标签控件数组lblResult 中,如图1-246所示。 要求:工程文件中已给出部分程序,其中
admin
2018-12-05
53
问题
在考生文件夹下有一个工程文件vbsj5.vbp。运行程序时,在文本框中输入一个素数,然后单击“查找”命令按钮,找出小于给定素数的三个最大的素数,并显示在标签控件数组lblResult 中,如图1-246所示。
要求:工程文件中已给出部分程序,其中的IsPrime过程用来判断一个数是否为素数。请编写“查找”命令按钮的事件过程中的部分程序代码。
注意:程序调试通过后,在“给定的素数”对应的文本框中输入12379,并执行“查找”命令,将找到满足条件的三个素数显示在标签中,否则没有成绩。不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
程序源码:
Private Function IsPrime(ByVal x
As _
Integer) As Boolean
Dim i As Integer
For i = 2 To Sqr(x)
If x Mod i = 0 Then
IsPrime = False
Exit Function
End If
Next
IsPrime=True
End Function
Private Sub cmdFind_Click()
’考生编写程序开始================
’考生编写程序结束================
Open App.Path & "\out5.dat" For
_
Output
As # 1
Print#1,txtInput.Text,
lblResult(0). _
Caption,
lblResult(1).Caption, _
lblResult(2).Caption
Close #1
End Sub
选项
答案
【操作步骤】 步骤1:打开本题对应工程文件vbsj5.vbp。 步骤2:双击窗体Form1上的“计算”按钮,打开代码编辑窗口,在其Click事件过程中输入如下代码: 参考代码: Dim j As Integer Dim n As Integer n = Val(txtInput.Text) - 1 For j = 0 To 2 While Not IsPrime(n) n = n - 1 Wend lblResult(j).Caption = n n = n - 1 Next 步骤3:运行程序,在“给定的素数”对应的文本框中输入12379,并执行“查找”命令,将找到满足条件的三个素数显示在标签中,然后单击关闭按钮结束程序的运行。 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/ptFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面关于VB数据文件的叙述中错误的是()。
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序:PrivateSubfunc(LAsLabel) L.Caption="1234"EndSubPrivateSubForm
若要把窗体上命令按钮Command1的状态设置为不可用,应该执行的命令是( )。
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:PrivateTypeRecord IDAsInteger NameAsString*20EndTypePrivateSubCommand1_Click()
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=10y=20Callfun1(x,y)Printx;yEnd
A、DYBEAFCZXB、YDEBFZXCAC、ABDYECFXZD、ABCDEFXYZC前序遍历是指在访问根结点、遍历左子树与遍历右子树这三者中,首先访问根结点,然后遍历左子树,最后遍历右子树;并且,在遍历左右子树时,仍然先访问根结点,然后遍历左
下面属于黑盒测试方法的是
结构化程序所要求的基本结构不包括
程序流程图中带有箭头的线段表示的是
在E-R图中,用来表示实体的图形是
随机试题
甲曾是某高校旅游专业的大学生,毕业后向当地工商行政管理机关申请设立专门提供旅游咨询服务的个人独资企业。要求:(1)甲在申请设立企业的申请书中未载明注册资金的数额,判断该申请书的效力。并判断工商行政管理机关是否受理其申请。(2)甲向该企业投资的5台电脑、
口底及颌下的急性蜂窝织炎危及生命的并发症是【】
女性,40岁,反复发作“尿路感染”6年余,近一年来夜尿增多。尿白细胞10~15/HP,血尿素氮12mmol/L,B超右肾9.2cm×4cm×3cm,左肾8cm×3cm×2cm,左肾集合系统回声分离1.2cm,肾实质2cm,中段尿培养大肠埃希菌生长。本例
神志不清,语言重复,声音低微,时断时续,称为
取一期愈合的是()。
大蓟的功效是()地榆的功效是()
警察是具有( )性质的维护社会秩序、保卫国家安全的国家行政力量。
成仿吾是我国无产阶级革命家,马克思主义理论家、教育家,他是由“文化人”成为“革命人”的典型之一,成仿吾究竞是个什么样的人呢?作家丁玲在未跟他谋面之前,曾产生过一系列的“合理想象”:“在文学上,他主张浪漫主义,创造社最早就是这样主张的:他是从日本留学回来的,
TheImpossibilityofRapidEnergyTransitions[A]Politiciansarefondofpromisingrapidenergytransitions.Whetheritisatra
Somepeople’searsproducewaxlikebusylittlebees.Thiscanbeaproblemeventhoughearwax(耳垢)appearsto【S1】______animporta
最新回复
(
0
)