- 1、本文档共3页,可阅读全部内容。
- 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程序设计答案.doc
VB程序设计答案
填空题
1. H64 O144 2. END 3. 标签显示的文本内容 4. 结束本次循环,立即跳到下一轮循环
二、单选题
三、简答题
1. 答:静态变量是指程序运行进入该变量所在的过程,修改变量的值后退出该过程,其值仍被保留,即变量所占内存单元没有释放。
程序运行进入动态变量所在的过程,才分配该变量的内存单元。退出该过程,该变量占用的内存单元自动被释放,其值消失。
2. 答:不能,
标准模块内使用private定义的变量为模块级私有变量,是模块的私有成员,在模块外不可见。只有在模块内部使用,模块外不能访问。
3. 答:模式窗体和非模式窗体都是SDI文档窗体。
模式窗体在屏幕上显示后用户必须响应,只有关闭后才能操作其他窗体或程序。
非模式窗体在屏幕上显示后用户不必响应,可以随意切换到其他窗体或程序进行操作。
窗体通过show方法以非模式窗体形式加载并显示窗口; 窗体通过showDialog方法以模式窗体加载并显示窗口。
4. 答:菜单的基本结构包括菜单栏、菜单标题、一级菜单、子菜单。菜单栏类似工具栏显示若干菜单标题,单击菜单标题显示一级菜单,一级菜单包括若干菜单项,该菜单项也可能是子菜单的菜单标题,也就是说菜单由菜单标题和若干菜单项组成,其中菜单项可以是单个的控件,也可以是一个菜单。
5. 答:封装就是将用来描述客观事物的一组数据和操作封装在一起,形成一个类。被封装的数据和操作必须通过所提供的公共接口才能够被外界访问,具有私有访问权限的数据和操作是无法从外界直接访问的,只有通过封装体内的方法才可以访问。
继承就是一个类自动拥有另一个类的属性和操作,并添加属于自己的属性和操作形成新的类的过程。新的类称为派生类,另一个类称为派生类的基类。
6. 答:二进制文件通过BinaryReader和BinaryWriter两个类提供的方法来实现的。这两个类与FILE类及FileStream类配合使用实现二进制文件的读写。
首先通过FILE类的方法建立一个FileStream对象,再通过该对象建立BinaryReader和BinaryWriter对象,分别用其Read和Write方法用来实现二进制的读写操作。最后关闭对象,关闭文件。
四、应用题
1.
Public Function grade(ByVal score As Integer) As String
Select Case score
Case Is = 90 Case 90 to 100
grade = A
Case Is = 80 Case 80 to 90
grade = B
Case Is = 70 Case 70 to 80
grade = C
Case Is = 60 Case 60 to 70
grade = D
Case Else
grade = E
End Select
End Function
2.
Public Sub maxmin(ByRef max As Integer, ByRef min As Integer)
设计一个过程,随机产生个~的整数,输出最大值和最小值
Dim arr(9) As Integer
max = 0
min = 100
Randomize()
For index As Integer = 0 To 9
arr(index) = Rnd() * 70 + 30
If max arr(index) Then max = arr(index)
If min arr(index) Then min = arr(index)
Next
End Sub
3.
Sub Main()
Dim n As Integer
Dim sum As Integer = 0
Console.Write(input n:)
n = Val(Console.Read())
For index As Integer = 1 To n
sum = sum + mut(index)
Ne
您可能关注的文档
- VB程序设计-刘伟丽.doc
- vb程序设计-参考书目.doc
- VB程序设计0122139.ppt
- vb程序设计1.doc
- vb程序设计145877.ppt
- VB程序设计2.docx
- VB程序设计21830.ppt
- VB程序设计22367.ppt
- VB程序设计22685.ppt
- VB程序设计22902.ppt
- 白天晚上教学课件.ppt
- 2025年山东菏泽市牡丹区中医医院引进急需紧缺专业技术人才30人笔试模拟试题参考答案详解.docx
- 2025年山东菏泽市牡丹区中医医院引进急需紧缺专业技术人才30人笔试模拟试题带答案详解.docx
- 2025年山东菏泽市牡丹区中医医院引进急需紧缺专业技术人才30人笔试模拟试题及参考答案详解.docx
- 2025年山东菏泽市牡丹区中医医院引进急需紧缺专业技术人才30人笔试模拟试题及参考答案详解一套.docx
- 2025年山东菏泽市牡丹区中医医院引进急需紧缺专业技术人才30人笔试模拟试题及完整答案详解1套.docx
- 2025年山东菏泽市牡丹区中医医院引进急需紧缺专业技术人才30人笔试模拟试题及参考答案详解1套.docx
- 2025年山东菏泽市事业单位招聘急需紧缺岗位目录(第一批)笔试模拟试题参考答案详解.docx
- 2025年山东菏泽市牡丹区中医医院引进急需紧缺专业技术人才30人笔试模拟试题及答案详解1套.docx
- 画西瓜教学课件.ppt
最近下载
- 2025广西南宁市交通运输综合行政执法支队招聘编外聘用人员5人备考试题及答案解析.docx VIP
- 青少年航天知识竞赛题库及答案.docx
- 环氧地坪施工工艺流程.docx VIP
- DB 34T 2752-2016 用人单位职业病危害现状评价导则.docx VIP
- 2025年高考全国1卷读后续写讲评课件 -2026届高考英语一轮复习专项.pptx
- MiniMk8调试与接线资料.pdf VIP
- 五菱宏光MINIEV说明书.docx VIP
- 2024初中物理教师进城考试模拟试卷及参考答案.pdf VIP
- 秦-使用手册-20131215.pdf VIP
- 四库全书基本概念系列文库:遵义府志.pdf VIP
文档评论(0)