首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
59
问题
窗体上有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全国计算机二级
相关试题推荐
使图像(Image)控件中的图像自动适应控件的大小应()。
在数据库设计中,将E-R图转换成关系数据模型的过程属于()。
下列程序的输出结果为()。PrivateSubCommand1_Click()Dima(20)Forj=1To20Step2 a(j)=jNextiPrinta(1)+a(2)+a
设窗体上有一个名为Text1的文本框,并编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivateSubForm
下面程序运行结果是()。PrivateSubForm_Click() DimxAsSingle,yAsSingle x=InputBox("请输入数据25"):y=InputBox("请输入数据10")
编写如下事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)If(ButtonAnd3)=3ThenPrint“AAAA”EndIf
设在工程中有一个标准模块,其中定义了如下类型:TypestutypeinoAsIntegerstrnameAsString*20strsexAsString*1smarkAsSingleEn
在VisualBasic的立即窗口内输入以下语句:X=97<CR>?Chr$(X)<CR>在窗口中显示的结果是______。
当程序运行时,在窗体上单击鼠标,以下哪个事件是窗体不能响应的事件
在窗体上绘制一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:PrivateSubCommand1_Click()a=InputBox("请输入日期(1~31)")t="旅游景点:"_
随机试题
下列行为中,属于会计工作政府监督的是()。
A.3个非同源亚基B.3个同源亚基C.2个非同源亚基D.2个同源亚基E.1个亚基G蛋白有
下列辅食适于7个月小儿添加的是
性联无丙种球蛋白血症获得性免疫缺陷综合征
大量饮清水后抗利尿激素分泌减少主要是由于()。
铁路工程勘察时要求采用K30方法测定地基系数,现采用直径30cm的荷载板进行竖向荷载试验得到一组数据见表14.2.1。试问:确定K30值最接近下列()项。
某企业大批量生产某种单一产品,该企业为了编制下年度的年度、季度计划,正进行生产能力核算工作。该企业全年制度工作日为250天,两班制,每班有效工作时间7.5小时。已知:某车间共有车床20台,该车间单件产品时间定额为1小时;某钳工车间生产面积:145平方米,每
普查是()。
阅读下列材料,回答问题。一次,我正在布置作业:“每个生字写五遍。”就听有个同学小声说:“都会写了,还让写!”我没说话就下课了。但这件事引起了我的反思,在班会上,我提出了“教师怎样留作业”的问题。经过商讨,同学们一致同意:常规性的作业应该写,但可以
没有任职限制的人员有()。
最新回复
(
0
)