VB综合训练一.doc

  1. 1、本文档共6页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 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,

文档评论(0)

yxutcangfp + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档