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