首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件vbsj5.vbp。运行程序时,在文本框中输入一个素数,然后单击“查找”命令按钮,找出小于给定素数的三个最大的素数,并显示在标签控件数组lblResult 中,如图1-246所示。 要求:工程文件中已给出部分程序,其中
在考生文件夹下有一个工程文件vbsj5.vbp。运行程序时,在文本框中输入一个素数,然后单击“查找”命令按钮,找出小于给定素数的三个最大的素数,并显示在标签控件数组lblResult 中,如图1-246所示。 要求:工程文件中已给出部分程序,其中
admin
2018-12-05
26
问题
在考生文件夹下有一个工程文件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://jikaoti.com/ti/0zm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click() DimmAsInteger,nAsInteger n=2 Form=1To3 Printproc(n); NextmEndSubF
窗体上有1个Timerl计时器,1个Shape1形状控件,还有下面程序代码:DimflagAsBooleanPrivateSubForm_Load()flag=TrueTimer1.Enab
数据流图中带有箭头的线段表示的是( )。
窗体上有单选钮和列表框控件。单击名称为Option1、标题为"国家"的单选钮,向列表框中添加国家名称,如下图所示。Option1的单击事件过程如下:PrivateSubOption1_Click() Dimarr arr=Array("
运行如下程序PrivateSubCommand1_Click() Dima(5,5)AsInteger Fori=1To5 Forj=1To4 a(i,j)=i*2+j Ifa(i,
若要把窗体上命令按钮Command1的状态设置为不可用,应该执行的命令是( )。
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:PrivateSubCommand1_Click()Dimn()AsIntegerDima,bAsIntegera=Inpu
要计算x的平方根并放入变量y,正确的语句是( )。
下列叙述中正确的是
对长度为n的线性表作快速排序,在最坏情况下,比较次数为
随机试题
体检的重点是首选的辅助检查是
遗忘综合征
不属于细胞因子的是
用于区别3-OH黄酮和5-OH黄酮的显色反应是
患者,男性,28岁,3天前因外伤左上中切牙冠折,要求美观修复。检查:牙冠切1/2缺损,牙髓暴露,探痛明显。牙龈红肿,牙石多。叩痛(+),工度松动。余牙良好。修复前要做的工作中不包括
根据《中华人民共和国水污染防治法》,环境保护行政主管部门对新、改、扩建直接或间接向水体排放污染物的水泥生产项目要严格执行()。
所谓(),是指在市场上从事交易活动的组织和个人。
Sometimeinthenextcentury,thefamiliarearly-newspaperonthefrontgatewilldisappear.Andinsteadofreadingyournewspap
Readthearticlebelowaboutsalespromotion,andthequestions.ChoosethecorrectwordorphrasetofilleachgapfromA,B.C
Winningtheparty’snominationforpresidentsignaledthe______ofthesenator’spoliticalcareer;hehadreachedhisultimate
最新回复
(
0
)