- 1、本文档共6页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
《Visual Basic程序设计》
综合练习(一)
一、填空
1. VB 6.0是运行于①Windows 9x/NT 操作系统环境下的一个快速可视化程序开发工具,用它进行程序设计,有两个基本的特点,即② 可视化设 和③事件驱动编程 。
2. 在VB 6.0中,变量名最长可达④ 255 个字符。
3. VB 6.0的基本表达式包括算术表达式、⑤ 关系表达式和⑥逻辑 表达式。
4. 静态数组是指⑦ 数组元素个数固定不变的数组。
5. 在VB中,若要求在模块中强制显式地指定变量的数据类型,应当在模块首部的申明部分使用⑧ Option Explicit语句。
6. 在VB中,若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的⑨mutiLine 属性的值设置为 True。
7. 在VB中,若要将字符串“12345”转换成数字值应使用的类型转换函数是⑩VAL 。
二、选择题
1. 设使用隐式类型说明,以下关于变量的类型说明符的使用中,唯一正确的是 C 。
A. Dim a% : a%=90000 B. Dim a : a=2000%
C. Dim a : a=90000 D. Dim a% : a%=”true”
2. 在VB中,若要改变一个标签(Label)上显示的内容,应当在属性窗口中改变这个标签的 . D 属性的值。
A. Text B. List C.Name D. Caption
3. 在VB中,运算 ”123”+12 的结果是 B 。
A. “12312” B. 135 C. ”12132” D. 出错
4. 在VB中,工程文件的扩展名是 B 。
A. .vgb B. .vbp C. .vbw D. .vbl
5. 以下选项中,不属于文本框(Text)的属性是 D 。
A. Enabled B. Visible C.Name D. Caption
6. 下列控件中可自动设置滚动条是 C 。
A. 复选框 B. 框架 C. 文本框 D. 标签框
7. 以下 . A 是执行程序段
Print x=; 25.6; y=; -90.2
Print Spc(3); z=; Tab(10); abcd
的正确的结果。
A.
B.
C.
D.
8. 以下关于VB菜单编辑器中“索引”项的叙述中,错误的是 . A 。
A.“索引”确定了菜单项显示的顺序。
B.“索引”是控件数组的下标。
C. 使用“索引”时,可有一组菜单项具有相同的“名字”。
D. 使用“索引”后,在单击菜单项的事件过程中可以通过“索引”引用菜单项。
9. 使用下列 C 语句可以对文件进行改名操作。
A. Shell B. FileCopy C.Name D. RmDir
10. 以下关于VB列表框的叙述中,除 A 外均是正确的。
A. 可通过属性“Item”,返回列表框中的项目。
B. 可通过属性“Text”,返回列表框中的已选项目。
C. 可通过属性“ListIndex”返回列表框中的已选项目。
D. 可通过属性“ListCount”返回列表框中项目的数目。
三、读程序题
1. 设在一个窗体模块中已设计有如下过程,请写出运行的结果。
Option Explicit
Dim ThisArray( ) As Integer
Private Sub Command1_Click( )
Dim tt As Integer
Dim ss As Integer
Dim ii As Integer
For ii = 1 To Len(Text1.Text)
If Mid(Text1.Text, ii, 1) 0 Or Mid(Text1.Text, ii, 1) 9 Then
MsgBox (错误!)
End If
Next ii
tt = Val(Text1)
Call MyPro(tt, ss)
Text2.Text = tt
Text3.Text = ss
End Sub
Private Sub Form_Load()
ReDim ThisArray(5)
Dim ii As Integer
For ii = 1 To 5
ThisArray(ii) = ii
Next ii
Text1.Text =
End Sub
Private Sub MyPro(ByVal T1 As Integer,
您可能关注的文档
最近下载
- 党的二十届三中全会要点解读PPT党政风三中全会精神学习党课模板.pptx VIP
- 2024新人教版初中物理实验一览表.pdf
- 线路精确改道作业指导书.ppt VIP
- lesson8正在……除了…以外-英语学习.ppt VIP
- 2025广东惠州市市直机关事业单位集中招聘编外人员34人笔试模拟试题及答案解析.docx VIP
- 2型糖尿病患者的护理查房.pptx VIP
- 全国计算机等级考试二级教程MSOffice高级应用全套完整教学课件.pptx
- 含γ-氨基丁酸以及天然小分子化合物的组合物及其在制备具有抗衰老作用的产品中的应用.pdf VIP
- 妇科手术详解.doc VIP
- 民宿突发事件应急预案.docx VIP
文档评论(0)