首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中有命令按钮Commandl和两个文本框Texto、Text1,命令按钮对应的代码过程如下: Private Sub Commandl_Click() Dim m,k As Integer Dim flag As Boolea
在窗体中有命令按钮Commandl和两个文本框Texto、Text1,命令按钮对应的代码过程如下: Private Sub Commandl_Click() Dim m,k As Integer Dim flag As Boolea
admin
2021-02-23
81
问题
在窗体中有命令按钮Commandl和两个文本框Texto、Text1,命令按钮对应的代码过程如下:
Private Sub Commandl_Click()
Dim m,k As Integer
Dim flag As Boolean
m= Val(Me! Texto) ’输入一个整数
Do While l
k=2
flag =True
Do While k<=m/2 And flag
If m Mod k=0 Then
flag=False
Else
k=k+l
End If
Loop
If flag Then
Me! Text1=m ’输出计算结果
Exit Do
Else
m=m+1
End If
Loop
End Sub
运行程序,输入15,单击按钮,程序的输出结果是( )。
选项
A、17
B、15
C、13
D、其他整数
答案
A
解析
本题利用二重循环结构找出大于给定数值最小的素数,内部Do While循环的功能是判断一个数是否为素数,本题输入值为15,即找出大于15最小的素数,经运算输出结果为17,故A选项正确。
转载请注明原文地址:https://kaotiyun.com/show/9HSp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
在宏表达式中要引用Form1窗体中的txt1控件的值,正确的引用方法是()。
下列程序段运行结束后,变量x的值是()。x=2y=2Dox=x*yy=y+1LoopWhiley<4
子过程Plus完成对当前库中“教师表”的工龄字段都加1的操作。SubPlus()DimcnAsNewADoDB.ConnectionDimrsAsNewADODB.RecordsetDimfdA
有关系R、S和T,如下图所示关系T是由关系R和S通过运算得出,则所使用的操作是
在已建“图书”表中查找定价大于等于20并且小于30的记录,正确的SQL命令是()。
利用Access创建的数据库文件,其扩展名为
将E.R图转换为关系模式时,E-R图中的实体和联系都可以表示为
在考生文件夹下,存存一个数据库文件“samp1.accdb”,里面已经设计好表对象“tStud”。请按照以下要求,完成对表的修改。设置表对象的有效性规则为:学生的出生年份应早于(不含)入校年份;同时设置相应有效性文本为“请输入合适的年龄和入校时间”。
在考生文件夹下,“sampl.accdb”数据库文件中已建立两个表对象(名为“职工表”和“部门表”)。试按以下要求,顺序完成表的各种操作:设置表对象“职工表”的性别字段有效性规则为:男或女;同时设置相应有效性文本为“请输入男或女”。
VBA中一般采用Hungarian符号法命名变量,代表报表的字首码是
随机试题
近几十年来,减少了公务员编制的国家是
肠梗阻施行胃肠减压的目的在于
气血两虚多见()邪热炽盛多见()
患者女,20岁,诊断再生障碍性贫血,医嘱输注浓缩红细胞。护士巡房时发现输血速度变慢,穿刺点局部无肿胀、无压痛,挤捏输液器无阻力,局部皮温正常。护士首先应
下列观点正确的是( )。
要写出好论文,技巧只是锦上添花,当你理解了写论文的必要性时,用心写作的意识便会油然而生。那么我们究竟为什么要写论文?首先研究者需要把优秀的研究成果公之于众.并希望在学术圈内制造自己的影响,论文极大地提升了分享的效率。其次写论文可以极大地帮助自己提炼想法,把
Writeanessaywiththetitleofwhoistocarethechildren,andyouressayshouldbebasedonthefollowingoutline,youshoul
局域网中使用的传输介质有双绞线、同轴电缆和光纤等。10BASE-T采用3类 UTP,规定从收发器到有源集线器的距离不超过(41)m。100BASE-TX把数据传输速率提高了10倍,同时网络的覆盖范围(42)。假设tphy表示工作站的物理层时延,C表示光速,
ItwasfifteenpastnineasMariehurriedintotheofficebuildingwhereshewasgoingtowork.Herbushadinchedalongthrough
ApologizeEffectively1.Demonstrateyourregret■Admityouare【T1】______【T1】______■Don’t【T2】______your
最新回复
(
0
)