- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
可视化程序设计VB模拟题1
窗体顶端
一、单项选择题:(每小题2分,共24分)
1、下列哪个符号能作为VB中的变量名( )。
A、AB7
B、7AB
C、IF
D、A[B]7
2、“X是小于100的非负数”,用VB表达式表示正确的是( )。
A、0≤x<100
B、0<=X<100
C、0≤X OR X<100
D、0<=X AND X<100
3、数学式子Sin25°写成VB表达式是( )。
A、Sin25
B、Sin(25°)
C、Sin(25)
D、Sin(25*3.14/180)
4、下列哪组语句可以将变量A、B的值互换( )。
A、A=B:B=A
B、A=C:C=B:B=A
C、A=A+B:B=A-B:A=A-B
D、A=(A+B)/2:B=(A=B)/2
5、函数Int(Rnd (0)*10)是在哪个范围内的整数( )。
A、(0,1)
B、(1,0)
C、(0,10)
D、(1,9)
6、一个对象可以执行的动作与可被对象识别的动作分别称为( )。
A、事件、方法
B、方法、事件
C、属性、方法
D、过程、事件
7、在窗体Form1的Click事件过程中有以下语句:Label1.Caption=“欢迎使用VB”该语句执行后标签控制的名称属性和Caption属性取值分别为( )。
A、Label,欢迎使用VB
B、Label1,欢迎使用VB
C、Label1,Caption
D、Label1,Label1
8、在调用过程时,下述说明正确的是( )。
A、只能使用Call语句用Sub过程
B、调用Sub过程时,实参必须用括号括起来
C、在表达式中调用Function过程时可以不用括号把实参括起来
D、Function过程也可使用Call调用
9、设S1、S2均为字符串变量,S1=“Visual Basic”S2=“b”,则下面关系表达式中结果为True的是( )。
A、len(S2)>len(S1)
B、Chr(66)Right(S1,4)=“Basic”
C、Left(S1,8)<S2
D、Mid(S1,8,1)>S2
10、下面哪个关键字是将光标设置到指定的文本框上( )。
A、Text
B、Name
C、select
D、SetFocus
11、在用菜单编辑器设计菜单时,必须输入的项有( )。
A、快捷键
B、标题
C、索引
D、名称
12、定时器的Interval属性以( )为单位指定Timer事件之间的时间间隔。
A、分
B、秒
C、毫秒
D、微秒
窗体底端
二、填空题:(每空1分,共26分)
1、VB程序执行的基本方法是由来驱动子程序的运行。
2、开发一个VB应用程序的步骤分别是、、、。
3、在VB程序中,工程项目文件的扩展名为,窗体文件的扩展名为,模块文件的扩展名为,用??控件文件的扩展名为,执行文件的扩展名为。
4、VB程序中,变量的作用域是指,根据作用域的不同将变量分为和。
5、VB中,常用的两种说明变量类型的声明语句是和。
6、VB中,用于处理文字信息的输入和显示信息的控件分别是、,用于处理图形信息的控件分别是、。
7、VB中,在预定对话框里有两种对话框分别称为和,它们所用函数分别为和。
8、一个多文档界面的应用程序可以包含三类窗体分别是、、。
三、阅读程序,写出结果:(每小题6分,共30分)
1、执行下面的程序,单击窗体后在窗体上显示的三行结果。
Private Sub Form_Click()
Dim Astr, Astr1, Astr2 As String
Astr1=B
For I=1 To 3
Astr2=LCase(Astr1)
Astr1=Astr1 Astr2
Astr=Astr Astr1
Print Astr
Astr1=Chr(Asc(Astr1)+1)
Next I
End Sub
2、下面程序的功能是什么?
Private Sub Commandl _Click ( )
S1=0: S2=0
M1=0: M2=0
N=1
Do while N=100
A=INT(101*RND)
If a mod 2=0 THEN
S1=S1+A : M1=M1+1
Else
S2=S2+A : M2=M2+1
End if
N=N+1
Loop
Print S1,S2
Print M1,M2
END Sub
3、下面程序的功能是什么?
Private Sub Command1_Click()
Dim N As Integer, I As Integer, j As long, S As long
N=Val (Text1.Text)
J=0:S=0
For I=1 To n
J=J+I :S=S
您可能关注的文档
最近下载
- 2025中国中医科学院中医药健康产业研究所 (江西中医药健康产业研究院) 招聘事业编制人员18人笔试备考试题及答案解析.docx VIP
- 预算编制的时间安排.pptx
- T∕COSOCC 014-2024 信息技术应用创新 经营管理系统数据管理技术规范.pdf VIP
- 《装备测试性工作通用要求GJB 2547B-2024》知识培训.pptx VIP
- 全电路欧姆定律.ppt VIP
- 王立群读《史记》之汉代风云人物——项羽 鸿门宴.doc VIP
- 小学与初中数学课程衔接的研究教学研究课题报告.docx
- 幕墙工程完整的清单报价.xls VIP
- 专题4平行线中的翻折求角度问题及角度之间的关系(原卷版+解析).docx VIP
- 版义务教育《艺术音乐课程标准》测试题含答案(荐).docx VIP
文档评论(0)