2014内蒙对口升学计算机VB模拟试题八带答案.doc

2014内蒙对口升学计算机VB模拟试题八带答案.doc

  1. 1、本文档共5页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
2014内蒙对口升学计算机VB模拟试题八带答案

填空题F 1,VB的对象主要分为窗体和_____两大类。 2,在Visual Basic中,要将一个窗体从内存中卸载,应该使用_____语句。 3,声明单精度常量PI代表3.1415926的语句是_____。 4.要使用鼠标或空格键同时选择列表框中的多个选项,必须把_____属性设置为1。 5. fee = countl(title) Print fee End Sub Public Function countl(x%) As Single Dim pay! If x 40 Then pay = x / 2 Else pay = 2 * x End If countl = pay End Function 填空题G 1. 要使输入文本框的字符靠右对齐,可修改文本框的_ ___属性。 2. 语句Print Not 1015 And 85+2的输出结果为_____。 3 在程序运行时,如果将框架的__ ___属性设为False,则框架的标题是灰色,表示框架内的所有对象均被屏蔽,不允许用户对其进行操作。 4. 以下程序的功能是:分别计算给定的10个数中正数之和与负数之和。请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim ww ww = Array(12, ?6, 15, 34, ?32, 47, 13, 9, 6, ?3) s1 = 0 s2 = 0 For k = 1 To 10 If (ww(k) 0) Then s1 = _____ Else s2 = ____ End If Next k Print 正数之和为 ; s1 Print 负数之和为 ; s2 End Sub 5.当列表框的MultiSelect属性值为1时,单击列表项或按空格键可以实现复选。 6. 若已建立了Form1、Form2两个窗体,默认启动窗体设置为Form1。通过_____菜单的_____的_____选项卡,可将启动窗体设置为Form2。 7用类型说明符来标识数据类型时,表示单精度使用的符号是 8.如果工具箱中还没有CommonDialog控件,则应从 菜单中选定部件,并将控件添加到工具箱中。 9.要使一个控件不可用,应将该控件的enabled属性设为 10.假设a=A,表达式:a=0 and a=9 and a=A and a=Z 的值 11.列表框中第一项的索引值是 12.选择了一个新的目录路径后,为了及时更新文件列表框的显示,可选用目录列表框的 事件来驱动。 13.由Visual Basic 预先设置好的、能够被对象识别的动作叫 。 14.一个变量未被显示定义,末尾也没跟类型说明符,则变量的默认类型是变体类型。 15.图片框内可使PictureBox根据图片调整大小的属性为autosize;图像框为stretch,若使Image控件可根据图片调整大小,该属性值应为_____。 16.设某个程序中要用到一个二维数组,要求数组名为A,类型为字符串类型,第一维下标从1到5,第二维下标从-2到6,则相应的数组声明语句为 。 17.过程形参为整型,对应实参为5.64,传递给形参的值为 。 18. VB是一种面向对象的可视化程序设计语言,采取了 。 19. 定时器的Interval属性值为 时,表示计时器停止工作 20. 用 方法只能隐藏一个窗体,不能从内存中清除该窗体。。 21.长整型变量(Long类型)占用 个字节。 22.列表框的最后一项的索引号是 。 23. VB应用程序中标准模块文件的扩展名是 。 24. 若用户单击了窗体Form1,则启动的事件名为 25.设从键盘上输入 20,下面程序的运行结果为 Private Sub Form_Click() Dim title%, fee! title = Val(InputBox(请输入一个数)) fee = countl(title) Print fee End Sub Public Function countl(x%) As Single Dim pay! If x 40 Then pay = x / 2 Else pay = 2 * x End If countl = p

文档评论(0)

小教资源库 + 关注
实名认证
内容提供者

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

1亿VIP精品文档

相关文档