- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
Visual Basic 程序设计》考试试卷一
适用班级: 计算机系网络 04401 班
答题时间: 100 分钟
班级
学号
姓名
一、 选择题( 1 分/题,共 6 分)
( 1)以下不能在 工程资源管理器 窗口中列出的文件类型是
A ) .bas B) .res C) .frm D ) .ocx
2)下列可作为 Visual Basic 变量名的是
A )A#A B )4A C ) ?xy D ) constA
在窗体上画一个名称为 List1 的列表框, 一个名称为 Label1 的标签。 列表框中显示若干城市的名称。 当单击列表框中的某个城市名时, 在标签中显示选中城市的名称。下列能正确实现上述功能的程序是
A ) Private Sub List1_Click() B) Private Sub List1_Click()
Label1.Caption = List1.ListIndex Label1. Name = List1. ListIndex
End Sub End Sub
C) Private Sub List1_Click() D )Private Sub List1_Click()
Label1.Name = List1.Text Label1.Caption = List1.Text
End Sub End Sub
(4) 在窗体上画三个单选按钮,组成一个名为 chkOption 的控件数组。用于标识各
个控件数组元素的参数是
A ) Tag B )Index C) ListIndex D )Name
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:
Option Base 0
Private Sub Command1_Click() Dim city As Variant
city = Array( 北京 , 上海 , 天津 , 重庆 )
Print city(1)
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是
A )空白 B)错误提示 C)北京 D)上海
( 6)设有语句
Open c:\Test.Dat For Output As #1
则以下错误的叙述是
A )该语句打开 C 盘根目录下一个已存在的文件 Test.Dat
B )该语句在 C 盘根目录下建立一个名为 Test.Dat 的文件
C)该语句建立的文件的文件号为 1
第 1页 共15页
D)执行该语句后,就可以通过 Print # 语句从文件 Test.Dat 中读出信息
二、 填空题(每空 2 分,共 28 分)
请将每空的正确答案写在答题卡【 1】~【 14】序号的横线上,答在试卷上不得分。
( 1)Visual Basic 中有一种控件组合了文本框和列表框的特性, 这种控件是 【 1】 。
( 2)Visual Basic 提供的对数据文件的三种访问方式为随机访问方式、【 2】和二
进制访问方式。
( 3)执行下面的程序段后,变量 S 的值为 【 3】 。
S = 5
For i = 2.6 To 4.9 Step 0.6
S=S+1
Next i
( 4)为了在运行时把 d:\pic 文件夹下的图形文件 a.jpg 装入图片框 Picture1,所使
用的语句为 【4】 。
( 5)计时器控件能有规律的以一定时间间隔触发 【5】 事件,并执行该事件过程
中的程序代码。
( 6)以下程序的功能是:生成 20 个大写的英文字母( A 的 Ascii 码为 65)。请填
空。
Private Sub Command1_Click()
6】
For i = 1 To 20
a = Int(Rnd * 【7】 26 + 【 8】 )
Print 【 9】
Next i
End Sub
( 7)设有如下程序
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 20: b = 50
p1 a, b
Print a=; a, b=; b
End Sub
Sub p1(x As Integer, byval y As Integer)
x = x * 10
y = y + 20
End Sub
该程序运行后, 单击窗体, 则在窗体上显示的内容是: a = 【 10】 和 b = 【 11】 。
第 2页 共15页
( 9)在窗体上画一个名称为 Combo1 的组合框,画两个名称分别为 Label1 和
Label2 及 Caption 属性分别为 城市名称 和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键 (ASCII 码为 13)时,如果输入的项在组合框的列表中
不存在,则自动添加到组
文档评论(0)