- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第六期继续教育培训班《安全法律法规》试卷姓名.doc
成人高等函授教育
自学测试题
科目名称:Visual.Basic
层 次:专升本
适用专业:采矿工程工程
出 版 社:清华大学出版社
要求:1、学生应独立完成各门课程规定的自学作业(测试题),
课程面授前交班主任老师;
2、教师按教学要求批阅作业,并作登记。面授结束时将
作业、登记表和试卷一起交成教院;
3、自学作业(测试题)成绩占该门课程总成绩的30%,
未按要求完成或未按时交自学作业(测试题),该门课
程作业成绩以零分计算。
新疆工业高等专科学校成教院
一、单选题
1、VB工程文件的扩展名是( )。
A).frm B).bat C).vbp D).vbgA) 事件过程是响应特定事件的一段程序 B) 不同的对象可以具有相同名称的方法C) 对象的方法是执行指定操作的过程D) 对象事件的名称可以由编程者指定A) Const B) ForLoop C) 9abc D) a#x
4、在设计阶段当双击窗体上的某个控件时,所打开的窗口是( )。
A) 工程资源管理器窗口 B) 工具箱窗口C) 代码窗口D) 属性窗口
5、以下关系表达式中,其值为False的是( )。
A) ABCAbC B) thethey C) VISUAL=UCase(Visual) D) IntegerInt
6、在窗体上有若干控件,其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是( )。
A) TabStop B)Enabled C) Visible D)TabIndex
7、确定一个控件在窗体上的位置的属性是( )。
A) Width和Height B) Width或Height C) Top和Left D)Top或Left
8、为了把焦点移到某个指定的控件,所使用的方法是A) SetFocus B) Visible C) Refresh D) GetFocus
9、为了暂时关闭计时器,应把该计时器的某个属性设置为False ,这个属性是 。A) Visible B) Timer C) Enabled D) Interval
10、以下叙述中错误的是( )。ub Main过程。
B) 窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体。
C) 窗体的Hide方法和Unload方法的作用完全相同。
D) 若工程文件中有多个窗体,可根据需要指定一个窗体为启动窗体。
11、以下声明语句中错误的是。A)Dim var = ABC’ B)Const var=123 C)Dim var D) Static var4 As Integer
12、语句Print 5/4*6\5 Mod 2的输出结果是( )。
A) B) 1 C) 2 D) 3
13、将多个语句书写在同一行时,语句之间用( )符号分隔。A)B)C)D)Menu1。为了在运行时
隐藏该菜单项,应使用的语句是( )。enu1.Enabled=True B) Menu1.Enabled=False C) Menu1.Visible=True D) Menu1.Visible=False
15、如果要改变窗体的标题,则需要设置的属性是。
A)Caption B)Name C)BackColor D)BorderStyle要在菜单中添加一个分隔线,应将其Capion属性设置为。A)= B)- C) D)*。
A) B) 图片框 C) 通用对话框 D) 文本框
18、InputBox函数回值的类型为。A) 数值 B) 字符串C) 变体 D) 数值或字符串。A) 3 B) 2 C) 1 D) 0
20、VB提供了结构化程序设计的三种基本结构是( )。
二、填空题
1、对象的三要素是指对象的 、 和 。
2、写出下列表达式:VisualBasic 。
执行下面的程序段后,的值为b的值为。a=300b=20a=a+b b=a-b
2、在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:
Private Sub Command1_Click()
strText = InputBox(请输入) Text1.Text = strText
End Sub
Private Sub Text1_Change()
Label1.Caption
文档评论(0)