首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件vbsj5.vbp。运行程序时,在文本框中输入一个素数,然后单击“查找”命令按钮,找出小于给定素数的三个最大的素数,并显示在标签控件数组lblResult 中,如图1-246所示。 要求:工程文件中已给出部分程序,其中
在考生文件夹下有一个工程文件vbsj5.vbp。运行程序时,在文本框中输入一个素数,然后单击“查找”命令按钮,找出小于给定素数的三个最大的素数,并显示在标签控件数组lblResult 中,如图1-246所示。 要求:工程文件中已给出部分程序,其中
admin
2018-12-05
55
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
命令按钮Command1的事件过程如下:PrivateSubCommand1_Click() Dimarr(5,5)AsInteger DimiAsInteger,jAsInteger Fori=1To4
窗体上有一个名称为VScroll1的垂直滚动条,为了设定单击滚动条两端箭头时的Value增量值,应设置的属性是
以下过程的功能是从数组中寻找最大值:PrivateSubFindMax(a()AsInteger,ByRefMaxAsInteger) DimsAsInteger,fAsInteger DimiAsInteger
有以下通用过程:Functionfun(NAsInteger) s=0 Fork=1ToN s=s+k*(k+1) Nextk fun=sEndFunction该过程的功能是( )。
下列数组定义中错误的是( )。
某二叉树共有12个结点,其中叶子结点只有1个。则该二叉树的深度为(根结点在第1层)
以下打开VisualBasic菜单编辑器的操作中,错误的是( )。
设有下面程序代码:PrivateSubCommand1_Click()DimstrAsString,chAsStringstr="VisualBasicProgramming"ch="a"
下列说法中,错误的是
结构化程序设计的基本原则不包括( )。
随机试题
有以下程序#includemain(){inty=1,x,a[]={2,4,6,8,10},*p;p=&a[1];for(x=0;x
霉菌广泛存在于自然界中,粮豆在生长期、收获、储存过程中的各个环节均可受到真菌的污染。()
以下墙体中均属于剪力墙的是
影响肾小球超滤液生成量的因素有
为使企业能够在增加所需商品进口数量,同时减少或降低进口商品成本,节约外汇支出,企业对于所进口的商品,不论是在国内销售还是自身使用,都必须进行进口成本核算,在核算进口商品成本时,必须明确以FOB表示进口商品总成本。()
汉黄芩素是传统中草药黄芩的有效成分之一,对肿瘤细胞的杀伤有独特作用,结构式如图3所示。下列有关汉黄芩素的叙述正确的是()。
推铅球最后用力阶段,球出手时的角度为()。
有关晏阳初的教育主张,不正确的一项是()
近代中国第一个领导资产阶级革命的政党是()
OptimismamongtheUK’sbanksandbuildingsocietieshassoaredoverthepastthreemonthsasfirmsgrewprofitsandtookonmor
最新回复
(
0
)