首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
26
问题
窗体上有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,然后编写如下事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimstrAsString,nAsIntegerStr=UCas
在以下程序中,变量S为()。DefDblA-HO-ZDefIntI-NS=1ForI=1To20 S=S*INextIPrintf"S=",S
下列程序的执行结果为()。n=0j=1DoUntiln>2 n=n+1 j=j+n*(n+1)LoopPrintn;j
如果不指明函数过程参数的类型,则该参数的数据类型为______。
有一个事件过程,其功能是:从已存在于磁盘上的顺序文件NM1.txt中读取数据,计算读出数据的平方值,将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。PrivateSubForm_Click()DimxAsSingle,
在设计程序时,应采纳的原则之一是
有时候需要暂时关闭计时器,这可以通过______属性来实现。
在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:PrivateSubForm_Load()Text1.Text=""Text1.SetFocusFori=1To9Sum=Sum+
如果要将窗体中的某个命令按钮设置成无效状态,应该设置命令按钮的哪个属性
如果要将窗体中的某个命令按钮设置成不可见状态,应该设置命令按钮的什么属性
随机试题
正常菌群的有益作用不包括
A.白质脱髓鞘B.神经系统退变C.中枢神经变性D.节段性髓鞘破坏而轴突相对保留E.脊髓灰质炎病毒引起帕金森病是因为
房地产开发企业进行土地增值税清算时,对房地产开发企业将自行开发的房地产用于()的,应确认相应的收入计算缴纳土地增值税。
低成本策略强调降低银行成本,同时意味着成为一个低价格的竞争者。()
A股份有限公司共有资金1000万元。其中,普通股600万元,资本成本为25%;3年期银行借款400万元,年利率为9.9%,每年付息一次,到期一次还本,筹资费用率为1%;该公司所得税税率为25%。2016年该公司有甲、乙两个投资方案,初始投资额均为800万元
关于叶绿体色素的叙述,错误的是()。
党政机关公文处理工作应该坚持的原则是()。
Mortgageandotherfinancingincomedecreased$8.8.millionto$18.8.fortheyearendedDecember31,2006Thejncomein2006wa
【M1】______Applicationfilesarepiledhighlythismonthincollegesacrossthecountry.【M2】______Admissionsofficersareporing
Educationisnotanend,butameanstoanend.Inotherwords,wedonoteducatechildrenonlyforthepurposeofeducatingthe
最新回复
(
0
)