- 1、本文档共8页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
地大秋研究生VB期末试卷带答案
课程号:SG04002
《VB程序设计》考试试卷(A)
考试形式:闭卷考试 考试时间:120分钟
所有答案答在答题纸上
院系 学号 姓名 得分
题号 一 二 三 四 五 总分
一.判断题(正确划√,错误划×)(10分)
方法的实质是程序代码模块√
MDI和SDI窗体支持相同的事件和方法
程序运行中通过代码改变单选按钮的Value值是不会触发该控件的单击事件的
若某子窗体拥有菜单,程序运行时一旦它获取焦点就会自动覆盖父窗口的菜单
利用通用对话框控件可以直接完成图形文件的保存或打开操作,无法直接完成文本文件的保存或打开操作
由一个父窗口和多个子窗口构成的应用程序,关闭父窗口就可以终止程序运行√
若窗口的Enabled属性为False,其上的控件也不再响应鼠标事件了。√
控件数组中的元素可以由不同类型的控件构成
Me.ForeColor = vbWhite 与Me.ForeColor = RGB(0, 0, 0)等价
AutoRedraw属性是窗体独有的属性
二.单项选择填空题(共40分)
按Delete键在TextBox控件A.Change B.KeyDownC.KeyD.KeyPress
属性A.B.ImageC.D.Framevalue属性A.B.C.ScrollD.List
下列控件中无Caption属性A.B.FrameC.CommandD.TimerA.UnloadB.QueryUnloadC.TerminateD.LostFocusA.SetFocusB.RemoveItemC.RefreshD.AddItemA.L.RemoveItem B.L.RemoveItemC.L.RemoveItem D.L.RemoveItem 0A.B.C.D.A.On Error GoTo 0B.On Error Resume Next C.On Error GoToD.Resume Next。A.PictureB.SavePicture C.LoadPictureD.PictureLoadTimer控件的【 】属性Timer事件
A.EnabledB.Interval C.Visible D.TagVisible和【 】 属性同时为真
A.EnabledB.Focus C.Moveable D.AppearanceCircle语句不能绘制【 】
A.B.C.D.
若要隐藏某窗体应使用【 】
A.me.HideB.Me.Appearance = FalseC.Me.BorderStyle = NoneD.Me.WindowState = 0True
A.AutoRedrawB.MDIChildC.AutoSize D.KeyPreviewA.PasswordCharB.MultiLineC.MaxLength D.FontA.ScrollBarsB.MultiLineC.MaxLength D.WidthA.SelCountB.ListCountC.CountD.ListA.SelCountB.ListCountC.CurrentXD.AddItemTrue
A.BorderStyleB.MDIChildC.Appearance D.MoveableCommand1后的程序运行结果(10分)
Function s(ParamArray a()) As Integer
Dim c As Integer, m As Integer
Dim v As Variant
For Each v In a
m = m + v
c = c + 1
Next
s = c
End Function
Private Sub Command1_Click()
Print s(10, 20, 30)
End Sub (3)
Private Sub Command1_Click()
Dim m As Integer, n As Integer
m = 20: n = 10
C m, n
Print m, n
End Sub
Sub C(a As Integer, ByVal b As Integer)
Dim x As Integer, y As Integer
x = a: y = b
a = x + y: b = x - y
End Sub(30 10)
Function C(a As Integer)
Static x As Integer
x = x - a
C = x
En
您可能关注的文档
最近下载
- 汉语拼音教学讲座.pptx
- 2024-2030年中国工业分离筛分设备行业市场发展趋势与前景展望战略研究报告.docx
- 空间句法简明教程-20140903-01.pdf
- (高清版)DB45∕T 1625-2024 地质灾害危险性评估规程.pdf VIP
- 2023年(机械点检员)高级技能及理论综合知识考试题库与答案.pdf VIP
- 金融理财师AFP认证历年考试真题试题库(含答案).docx
- 《设施农业》课程标准.pdf
- 重庆主城排水工程可行性实施报告.pdf
- 2024浙江省温州市中考初三一模科学试题及答案.pdf VIP
- 2023小升初数学真题考点:图形与几何(复习)人教版六年级下册数学.pdf VIP
文档评论(0)