在考生文件夹卜有一个工程文件sjt5．vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框Text1中输入一个大于2的偶数，并单击“分解为”命令按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数(一个偶数

admin2020-07-22 36

问题在考生文件夹卜有一个工程文件sjt5．vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框Text1中输入一个大于2的偶数，并单击“分解为”命令按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合，例如24可以分解为5和19，也可以分解为11和13，要求取含有最小素数的组合，如图所示)。要求编写“分解为”命令按钮事件过程中“考牛编写程序开始”和“考生编写程序结束”之间的代码，以实现上述功能。过程IsPrime用来判断一个数是否为素数，如果是，返同值为True，否则返回值为False。
注意：不得修改原有程序和控件的属性。至少正确运行一次程序，且程序运行时在文本框中输入23456，单击“分解为”按钮，将结果显示在标签中，否则将没有成绩，最后将修改后的文件按原文件名存盘。

选项

答案步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 For i=1 To Val(Textl．Text)’i从1开始，第一个找到的肯定就是满足务件的最小素数 If IsPrime《i)And IsPrime(Val(Text1．Text)－i)Then’判定两个数是否都满足素数条件 Labe11=i Labe12=Val(Text1．Text)－i ExitFor End If Next i 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

解析 Function IsPrime()函数用来判断一个数是否为素数，在处理循环变量的上限时，为了节约循环的次数，设置为Sqr(x)为x的平方根，如果x能被循环变量的值整除，IsPrime()函数的返回值为False，x就不是素数。在Command1—Click事件过程中，通过调用函数判断是否为素数。只要出现一组数据满足条件，就停止。For循环，这样可以保证是最小的素数。

转载请注明原文地址:https://kaotiyun.com/show/5VHp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

二级VB

NCRE全国计算机二级

下列叙述中正确的是()。

在标准模块中用Public关键字定义的变量，其作用域为(　　)。

设窗体上有2个文本框Text1和Text2，并有下面的事件过程：DimnPrivateSubText1_KeyPress(KeyAsciiAsInteger)　　If"A"

对于能够获得焦点的控件，若要使其不能接收焦点，应该

下列叙述中正确的是(　　)。

软件需求规格说明书的作用不包括

A、自然连接B、交C、投影D、并A关系R和关系S有公共域，关系T是通过公共域的等值进行连接的结果，符合自然连接，选A。

对于列表框控件List1，能够表示当前被选中列表项内容的是(　　)。

执行下列语句：strInput＝InputBox("请输入字符串"，"字符串对话框"，"字符串")将显示输入对话框。此时如果直接单击"确定"按钮，则变量strInput的内容是(　　)。

设a=2，b=3，c=4，d=5，下列表达式的值是()。3＞2％Ora=cAndb＜＞cOrb＜＞a+c

治疗肾阴不足，相火偏亢之遗精的药物是

钻孔灌注桩实测桩长为30m，时域信号第一峰与桩端反射波峰间的时间差为15．79ms，计算该桩的桩身波速为()。

下列暂停施工增加的费用和(或)工期延误由承包人承担的不包括()。

某单位计算机房采用气体灭火系统进行保护，为了防止系统由于驱动气体泄漏累积而引起系统的误动作而在管路中设置的阀门是()。

运算器的主要功能是()。

下列情形中，不可以担任基金管理人的董事、监事、高级管理人员或者其他从业人员的情形不包括()。

下列三个事件：必然事件是()．①今年冬天，太原会下雪；②将花生油滴入水中，花生油会浮在水面上；③任意投掷一枚质地均匀的硬币，硬币停止后，正面朝上．

设顺序表中结点个数为n，向第i个结点后面插入一个新结点，设向每个位置插入的概率相等，则在顺序表中插入一个新结点平均需要移动的结点个数为()。

下列叙述中，不属于软件需求规格说明书的作用的是()。

Wehavecompiledalistofthingsthatexpectantcouplesandnewparentscandoontheirowntoreducetheexpectedstrainande

二级VB

NCRE全国计算机二级

下列叙述中正确的是()。

在标准模块中用Public关键字定义的变量，其作用域为( )。

设窗体上有2个文本框Text1和Text2，并有下面的事件过程：DimnPrivateSubText1_KeyPress(KeyAsciiAsInteger) If"A"

对于能够获得焦点的控件，若要使其不能接收焦点，应该

下列叙述中正确的是( )。

软件需求规格说明书的作用不包括

A、自然连接B、交C、投影D、并A关系R和关系S有公共域，关系T是通过公共域的等值进行连接的结果，符合自然连接，选A。

对于列表框控件List1，能够表示当前被选中列表项内容的是( )。

执行下列语句：strInput＝InputBox("请输入字符串"，"字符串对话框"，"字符串")将显示输入对话框。此时如果直接单击"确定"按钮，则变量strInput的内容是( )。

设a=2，b=3，c=4，d=5，下列表达式的值是()。3＞2％Ora=cAndb＜＞cOrb＜＞a+c

治疗肾阴不足，相火偏亢之遗精的药物是

钻孔灌注桩实测桩长为30m，时域信号第一峰与桩端反射波峰间的时间差为15．79ms，计算该桩的桩身波速为()。

下列暂停施工增加的费用和(或)工期延误由承包人承担的不包括()。

某单位计算机房采用气体灭火系统进行保护，为了防止系统由于驱动气体泄漏累积而引起系统的误动作而在管路中设置的阀门是()。

运算器的主要功能是()。

下列情形中，不可以担任基金管理人的董事、监事、高级管理人员或者其他从业人员的情形不包括()。

下列三个事件：必然事件是()．①今年冬天，太原会下雪；②将花生油滴入水中，花生油会浮在水面上；③任意投掷一枚质地均匀的硬币，硬币停止后，正面朝上．

设顺序表中结点个数为n，向第i个结点后面插入一个新结点，设向每个位置插入的概率相等，则在顺序表中插入一个新结点平均需要移动的结点个数为()。

下列叙述中，不属于软件需求规格说明书的作用的是()。

Wehavecompiledalistofthingsthatexpectantcouplesandnewparentscandoontheirowntoreducetheexpectedstrainande

在标准模块中用Public关键字定义的变量，其作用域为(　　)。

设窗体上有2个文本框Text1和Text2，并有下面的事件过程：DimnPrivateSubText1_KeyPress(KeyAsciiAsInteger)　　If"A"

下列叙述中正确的是(　　)。

对于列表框控件List1，能够表示当前被选中列表项内容的是(　　)。

执行下列语句：strInput＝InputBox("请输入字符串"，"字符串对话框"，"字符串")将显示输入对话框。此时如果直接单击"确定"按钮，则变量strInput的内容是(　　)。