2022年9月计算机等级考试二级VB考前密卷15_第1页
2022年9月计算机等级考试二级VB考前密卷15_第2页
2022年9月计算机等级考试二级VB考前密卷15_第3页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

2022年9月计算机等级考试二级VB考前密卷[1]5PrivateSubCommand1_Click()

n=Val(Text1．Text)

Fori=2TOn

Forj=2ToSqr(i)

IfiModj=0ThenExitFor

Nextj

Ifj>Sqr(i)ThenPrinti

Nexti

EndSub

该大事过程的功能是_________。

A)输出n以内的奇数

B)输出n以内的偶数

C)输出n以内的素数

D)输出n以内能被j整除的数

答案：C

评析：素数只能被1和它本身整除(即不能被大于l且小于它本身的整数来整除)故要检查一个整数是不是素数，可以用大于1而小于它的全部整数来除它，假如可以整除，就不是素数，否则就是素数。为了缩短程序运行时间，通常是用全部不小于该整数的平方根的整数来除它就可以。在本程序中，用从2开头到小于等于被检测整数平方根的全部整数来对被检测整数取模，假如被检测整数可以被其中的某个整数整除，则不是素数。故本程序的功能是输出n以内的素数。

(26)在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的大事过程是_________。

A)PrivateSubText1_KeyPress(KeyAsciiAsInteger)

IfKeyAscii90Then

MsgBox“请输入大写字母“

KeyAscii=0

EndIf

EndSub

B)PrivateSubText1_KeyDown(KeyCodeAsInteger，ShiftAsInteger)

IfKeyCode90Then

MsgBox“请输入大写字母“

KeyCode=0

EndIf

EndSub

C)PrivateSubText1_MouseDown(ButtonAsInteger，ShiftAsInteger，xAsSingle，YAsSingle)

IfAsc(Text1．Text)90Then

MsgBox“请输入大写字母“

EndIf

EndSub

D)PrivateSubText1change()

IfAsc(Text1．Text)>64AndAsc(Text1．Text)<91Then

MsgBox“请输入大写字母“

EndIf

EndSub

答案：A

评析：Asc函数是将字符转化成ASCII码值。大写字母的ASCII码值为65-90(包

人人文库> 全部分类> 应用文书 > 工作计划

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论