VB程序设计答案.docVIP

  1. 1、本文档共3页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 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

文档评论(0)

caijie1982 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档