- 1、本文档共8页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
2011年秋研究生VB期末试卷
课程号:SG04002
《VB程序设计》考试试卷(A)
考试形式:闭卷考试 考试时间:120分钟
所有答案答在答题纸上
院系 学号 姓名 得分
题号 一 二 三 四 五 总分
一.判断题(正确划√,错误划×)(10分)
单选按钮控件分组原则是看控件是否在同一个容器里,和是否属同一控件数组无关
单击Frame1上的无效命令按钮是不会激发任何对象的单击事件的
程序运行时CommonDialog和PictureClip控件都没有可视的物理界面
对象的事件可以由用户操作引发也可以直接调用,但不会自动激发。
窗体的KeyPreview 属性为True,其上控件的所有键盘事件都会被窗体接收,控件就不再接收了
窗体的大小取决于ScaleHeight和ScaleWidth的值
动态数组可以改变上界和下界的大小,不能改变维数的大小
类是一种数据类型,所以滚动条和Line控件属于不同的类
函数不可以用Call调用
Do ~ Loop Until和Do ~ Loop While都是直到型循环
二.单项选择填空题(共40分)
下列控件中有caption属性A.B.ImageC.D.FrameA.B.C.D.A.B.Down C.D.属性A.B.FrameC.ScrollD.TimerA.ArrangeB.HideC.SetFocusD.ClsA.B.C.D.UnloadA.SB.C.D.A.B.C.D.A.On Error GoTo 0B.On Error Resume Next C.On Error GoToD.Resume NextA.AutoRedrawB.SavePicture C.StretchD.AutoSizeTimer控件的【 】属性Timer事件
A.EnabledB.Interval C.Visible D.PaintPicture方法可以对图片进行【 】 操作
A.B.C. D.A.OptionalB.PreserveC.Option BaseD Option Explicit
若要阻止一个窗体被卸载应对该窗体【 】事件编程
A.LostFocusB.PaintC.ResizeD.QueryUnloadLoad、②Terminate、③Initialize、④Unload发生的先后顺序为【 】
A.B.C.D.A.PasswordCharB.MultiLineC.MaxLength D.FontA.B.C.D.A.SelCountB.ListCountC.CountD.ListA.Rnd * 10B.Int(Rnd * 90 + 10)C.Int(Rnd * 10) D.Rnd * 90 + 10 A.InputBoxB.LCaseC.MsgBox D.RightCommand1后的程序运行结果(10分)
Function a(x As Integer, Optional y = 3, Optional z) As Integer
If IsMissing(y) Then
a = x ^ 2
ElseIf IsMissing(z) Then
a = x ^ y
Else
a = x * y * z
End If
End Function
Private Sub Command1_Click()
Print a(2), a(2, 4), a(2, 4, 5)
End Sub
Private Sub Command1_Click()
Dim a()
ReDim a(2 To 8)
Print UBound(a) LBound(a)
End Sub
Sub c(ByVal x As Integer, ByRef y As Integer, ByRef m As Integer, ByVal n As Integer)
m = x * y: n = x / y
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, a As Integer, b As Integer
i = 2: j = 4: a = 6: b = 8
c j, i, a, b
Print a, b
End Sub
Private Sub Comman
文档评论(0)