- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
得分 评卷人 复查人 一、单项选择题(本大题共13题,每小题1分,共13分) 在每小题列出的四个选项中只有一个选项是正确的,请将正确答案填在括号内。
1.VB 6.0 集成开发环境的应用程序不适宜的运行环境是( a )。
A.Windows 32
B.Windows9x
C.WindowsNT
D.Windows2000
2.在Visual Basic 中,( c )被称为对象。
A.窗体
B.控件
C.窗体和控件
D.窗体、空间、属性
3.Visual Basic 的窗体设计器主要是用来(d )。
A.建立用户界面
B.添加图形、图像、数据等控件
C.编写程序源代码
D.设计窗体的布局
4.以下为纯文本代码的是(c )。
A.工程文件
B.窗体文件
C.标准模块文件
D.资源文件
5.将文本框的( b )属性设置为True时,文本框可以输入多行文本,在输入内容超过文本框的宽度时可自行换行。
A.ScroolBars
B.MultiLine
C.Enabled
D.DataField
7.VB6.0中,执行下面的四个语句时出现错误的是( c )。
A.x=cos(0)
B.x=SQR(0)
C.x=LOG(0)
D.x=SIN(0)
8.下面的四个表达式语法正确的是(d )。
A.ab AND bc
B.abc
C.ab AND c
D.ab AND bc
9.在下列四个表达式中,不正确的表达式是(d )。
A.a-b+c
B.a=b=c
C.a*b*c
D.LOG(SIN(-1))
10.VB中表达式COS(0)+ABS(1)+INT(RND(1))的值是(d )。
A.1
B.-1
C.0
D.2
11.若X=5,Y=6,则表达式X+Y=11的值是(c )。
A.X+Y=11
B.11
C.True
D.False
12.执行下列语句后,V的值是( b )。
A = “56789”
V=Val (Mid (A,3,2))
A.89
B.78
C.67
D.0
13.执行下列程序段后,E,F,G的值分别为( c )。
E=3:F=4:G=5
E=F:F=G:G=E
A.3 4 5
B.4 5 3
C.4 5 4
D.4 5 5
得分 评卷人 复查人 二、填空题(本大题共13空,每空1分,共13分)
1.VB6.0的主窗口由标题栏、菜单栏和( 工具栏 )组成。
2.在VB6.0的集成开发环境中,可以编辑程序代码,但不能修改用户界面的工作状态是(中断状态 )。
3.运行程序的功能键是(F5 )。
4.在Visual Basic 中,由系统事先设定的,能被对象识别和响应的动作称为( 事件 )。
5.VB中最常用最重要的对象是(窗体 )和(控件 )。
7.为了在按下Esc键时执行某个命令按钮的事件过程,需把该命令按钮的一个属性设置为True,这个属性是(Cancel )。
8.为了在按下Enter键时执行某个命令按钮的事件过程,应把该命令按钮的一个属性设置为True,这个属性是(Default)。
9.为了在运行时使菜单的某一项失效(变灰),应该让这一项的( Enabled )属性值为(False )。
10.如果要将窗体的最大化按钮和最小化按钮屏蔽掉,应把窗体的( Maxbutton )和(Minbutton )属性设置成False。
得分 评卷人 复查人
三、程序填空题(本大题共2题,每空3分,共18分)
1. 下面是计算最大公约数和最小公倍数的程序,,请填空。Private Sub Command1_Click()
Dim m%, n%, temp%, r%
m = Val(Text1)
n = Val(Text2)
If m = 0 Then
MsgBox”N为大于0的整数” [1]
Text1.SetFocus
ElseIf n = 0 Then
MsgBox N为大于0的整数
Text2.SetFocus
Else
If m n Then
temp = m
m = n
n = temp
End If
Do
R=m Mod n [2]
m = n
n = r
Loop Until r = 0
Label3 = 最大公约数 m
您可能关注的文档
最近下载
- 第6课推动形成全面对外开放新格局教学设计-2024-2025学年中职高教版(2023)中国特色社会主义.docx VIP
- 江苏省徐州市2021年中考英语真题试卷 附答案解析.doc VIP
- 六年级语文下册《写字表》田字格字帖.pdf VIP
- 五年级语文下册《识字表》田字格字帖.pdf VIP
- 高二数学-【开学第一课】2022年高中秋季开学指南之爱上数学课.pptx VIP
- 高二开学第一课(高二之旅星辰大海)-【开学第一课】2024年秋季初中开学指南.pptx VIP
- 框架结构工地成本 .pdf VIP
- 第14课《推进绿色发展》第二框教案.docx VIP
- 第5课《推动高质量发展》第二框教案.docx VIP
- 2025年传染病及院感防控相关知识考核试题(附答案).docx VIP
文档评论(0)