首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件vbsj5.vbp。运行程序时,在文本框中输入一个素数,然后单击“查找”命令按钮,找出小于给定素数的三个最大的素数,并显示在标签控件数组lblResult 中,如图1-246所示。 要求:工程文件中已给出部分程序,其中
在考生文件夹下有一个工程文件vbsj5.vbp。运行程序时,在文本框中输入一个素数,然后单击“查找”命令按钮,找出小于给定素数的三个最大的素数,并显示在标签控件数组lblResult 中,如图1-246所示。 要求:工程文件中已给出部分程序,其中
admin
2018-12-05
46
问题
在考生文件夹下有一个工程文件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
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是( )。
以下关于控件数组的叙述中,错误的是( )。
向文本框中输入字符时,下面能够被触发的事件是( )。
标准模块中有如下程序代码:PublicxAsInteger,yAsIntegerSubvar_pub() x=10∶y=20EndSub在窗体上有1个命令按钮,并有如下事件过程:PrivateSubCommand1_Clic
一棵二叉树共有25个结点,其中5个是叶子结点,则度为1的结点数为( )。
结构化程序设计中,下面对goto语句使用描述正确的是
窗体上有一个名称为HScrolll的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是
随机试题
急性中毒患者处于昏迷状态时禁忌采用
人工流产综合征的原因是由于
小儿出现高热,面部青紫,尤以鼻柱、两眉间及口唇四周为甚,多属于
()对有效风险管理承担最终责任。
商业银行通常采用留置作为担保方式。()
Itamazesmewhenpeopleproclaimthattheyarebored.Actually,itamazesmethatIameverbored,orthatanyofusare.With
RS232C是由电子工业协会(EIA,Electronic Industries Association)制定的(268)之间的接口标准,它规定的电平的表示方式为(269)。当使用RS232C连接相关设备时,电缆的长度不应超过(270)米。当用RS232C
有算术表达式((a+b)-c/(d+e)+f)*(g+h),其前缀和后缀表达式分别为(7)。
Backin1985,ViktorCherkashinwasaseniorKGBofficerattheSovietEmbassyinWashington.Intheshadowyworldofespionage,
1Women,byvirtueoftheavailabilityofsuchoutletsascryingfortheexpressionofemotion,arelikelytosufferfromfew
最新回复
(
0
)