首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有Text1、Text2两个文本框,并编写了下面的程序代码: Private Sub Form_Click() x%=29 Text1=fun(x) Do x=x+1 Loop Until IsPrim
窗体上有Text1、Text2两个文本框,并编写了下面的程序代码: Private Sub Form_Click() x%=29 Text1=fun(x) Do x=x+1 Loop Until IsPrim
admin
2016-08-24
83
问题
窗体上有Text1、Text2两个文本框,并编写了下面的程序代码:
Private Sub Form_Click()
x%=29
Text1=fun(x)
Do
x=x+1
Loop Until IsPrime(x)
Text2=x
End Sub
Private Function fun(ByVal x As Integer)As Integer
Do
x=x一1
Loop Until IsPrime(x)
fun=x
End Function
Private Function IsPrime(x As Integer)As Boolean
For k=2 To x/2
If x Mod k=0 Then
IsPrime=False
Exit Function
End If
Next k
IsPrime=True
End Function
运行程序后单击窗体,则Text1、Text2中分别显示的是( )。
选项
A、23和31
B、23和29
C、30和31
D、29和31
答案
A
解析
本题中IsPrime函数的功能是判断一个数是否为素数,是素数则返回True,不是则返回False;素数的判断方法是:一个数除了能被1和自身整除以外,不能再被其他数整除。fun函数的功能是找出小于形参x最大的素数,并返回。在过程Form_Click事件过程中,Text1=fun(x),x=29,通过调用fun函数,得到小于29的最大素数为23,所以Text1中的值为23,Form_Click事件过程中的Do~Loop Until循环的功能是找到大于变量x的最小素数,大于29的最小素数为31,故Text2中的值为31,所以A选项正确。
转载请注明原文地址:https://kaotiyun.com/show/SYLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个名为Text1的文本框,并编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivateSubForm
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Crick()DimIAsInteger,nAsIntegerForj=0T
设有如下的记录类型:TypeStudentnumberAsStringnameASStringageAsIntegerEndType则正确引用该记录类型变量的代码是()。
如果不指明函数过程参数的类型,则该参数的数据类型为______。
要使菜单项MenuOne在程序运行时失效,使用的语句是
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() Fori=1To4 x=4 Forj=1To3 x=3 F
有时候需要暂时关闭计时器,这可以通过______属性来实现。
目录列表框的Path属性的作用是()。
随机试题
亚硫酸盐能破坏肉、鱼等动物性食品中的()。
甲醛、乙醛、丙酮三种化合物可用()一步区分开。
刺激迷走神经可用于治疗
女,20岁。上前牙松动3年,检查见上切牙松动Ⅱ°扇形移位,口腔卫生较好,初步印象为局限性青少年牙周炎。若已确诊,其可能还具有的特征如下,但不包括
满山红的质量控制成分是()
长上公司与艺海公司在履行合同过程中发生了纠纷。长上公司按照仲裁条款向选定的石家庄市仲裁委员会提交了仲裁申请。下列关于该案仲裁庭的组成的表述哪个是错误的?
下列关于简易程序的说法中,错误的是()。
危机发生时,如果公司能够采取有效的措施来消除不利影响,那么反而能够增加公司的声誉。一个非常好的声誉,可能仅仅因为一个事件,转眼间就被破坏殆尽;而一个不好的声誉,往往需要很长时间的努力才能消除它。如果以上陈述为真,则最能支持以下哪项陈述?()
马克思认为资本主义制度下的工资掩盖了资本主义剥削的实质,这是因为工资
设线性方程组(1)Ax=0的一个基础解系为α1=(1,1,1,0,2)T,α2=(1,1,0,1,1)T,α3=(1,0,1,1,2)T。线性方程组(2)Bx=0的一个基础解系为β1=(1,1,一1,一1,1)T,β2=(1,一1,1,一1,2)T,β3=
最新回复
(
0
)