- 1、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VisualBasic程序设计考试试卷[A](-学学期)
PAGE
第 PAGE 8页 共 NUMPAGES 8页
武汉职业技术学院
2005~2006学年度第二学期考试试卷[A]
考试科目:《Visual Basic程序设计》
适用班级:计算机系网络04401班 答题时间:100分钟
班级 学号 姓名
选择题(2分/题,共20分)
(1)以下不能在工程资源管理器窗口中列出的文件类型是
A).bas B).res C).frm D).ocx
(2)以下关于窗体的描述中,错误的是
A)执行Unload Form1语句后,窗体Form1消失,但仍在内存中
B)窗体的Load 事件在加载窗体时发生
C)当窗体的Enabled 属性为False时,通过鼠标和键盘对窗体的操作都被禁止
D)窗体的Height、Width属性用于设置窗体的高和宽
(3)下列可作为Visual Basic变量名的是
A)A#A B)4A C)?xy D)constA
(4)设有如下的记录类型
Type Student
number As String
name As String
age As Integer
End Type
则正确引用该记录类型变量的代码是
A) Student.name = 张红 B) Dim s As Student
s.name = 张红
C) Dim s As Type Student D) Dim s As Type
s.name = 张红 s.name = 张红
(5) 执行如下语句:
a = InputBox(Today, Tomorrow, Yesterday)
将显示一个输入对话框,在对话框的输入区中显示的信息是
A)Today B)Tomorrow C)Yesterday D)Day before yesterday
(6) 在窗体上画一个名称为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
(7) 在窗体上画三个单选按钮,组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是
A)Tag B)Index C)ListIndex D)Name
(8) 在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:
Option Base 0
Private Sub Command1_Click()
Dim city As Variant
city = Array(北京, 上海, 天津, 重庆)
Print city(1)
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是
A)空白 B)错误提示 C)北京 D)上海
(9 )假定有以下函数过程:
Function Fun(S As String) As String
Dim s1 As String
For i = 1 To Len(S)
s1 = UCase(Mid(S, i, 1)) + s1
Next i
Fun = s1
End Function
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1 = InputBox(请输入一个字符串)
Str2 = Fun(Str1)
Print Str2
End Sub
程序运行后,单击命令按钮,如果在输入对话框中输入字符串abcdefg,则单击确定按钮后在窗体上的输出结果为
A)abcdefg B)ABCDEFG C) gfedcba D)GFEDC
文档评论(0)