第八章VB过程.docVIP

  1. 1、本文档共22页,可阅读全部内容。
  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过程 一、选择题 1. 下列叙述中不正确的是A、VB中的函数功能类似于Sub过程B、Sub过程不可以递归C、子过程不返回与其特定子过程名相关联的值D、过程是没有返回值的函数,又常被称为Sub过程,在事件过程或其他子过程中可以按名称调用过程 2. 在过程定义中,Private表示A、此过程以被其他过程调用B、此过程不可以被任何其他过程调用C、此过程只可以被本工程中的其他过程调用D、此过程只可以被本窗体模块中的其他过程调用 3. 以下说法错误的是A、函数过程没有返回值  B子过程没有返回值C、函数过程可以带参数  D子过程可以带参数 4. 下列哪条语句是错的_______。A、exit sub  Bexit function  Cexit while  Dexit do 5. 以下关于过程及过程参数的描述中,错误的是: A、过程的参数可以是控件名称 B、用数组作为过程的参数时,使用的是“传地址”方式 C、只有函数过程能够将过程中处理的信息传回到调用的程序中 D、窗体可以作为过程的参数 6. 不能脱离控件(包括客体) 而独立存在的过程是: A、 B、 C、 Sub D、 7. 在Visual Basic中传递参数的方法有_________方式。A、一种  B两种  C三种  D四种 8. 关键字声明的局部变量在整个程序运行中一直存在A、Dim B、Public C、Static D、Private 9. 在Visual Basic应用程序中,以下正确的描述是A、过程的定义可以嵌套,但过程的调用不能嵌套B、过程的定义不可以嵌套,但过程的调用可以嵌套C、过程的定义和过程的调用均可以嵌套D、过程的定义和过程的调用均不能嵌套10. 在窗体中添加一个命令按钮(Name属性为Command1),然后编写如下代码: Private Sub Command1_Click() x = InputBox(请输入整数) a = f1(Val(x)) Print a End Sub 运行程序后,如果单击命令按钮,则显示一个输入对话框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程f1。在f1中判断所输入的整数是否是奇数,如果是奇数,过程f1返回1,否则返回0。能够正确实现上述功能的代码是: A、Function f1(ByRef b As Integer) B、Function f1(ByRef b As Integer) If b Mod 2 = 0 Then If b Mod 2 = 0 Then return 0 f1=0 Else Else return 1 f1=1 End If End If End Function End Function C、Function f1(ByRef b As Integer) D、f1(ByRef b As Integer) If b Mod 2 = 0 Then If b Mod 2 = 0 Then f1=1 return 0 Else Else f1=0 return 1 End If End If End Function End Function 11. 在窗体中添加一个命令按钮,然后编写如下代码: Function func(a As Integer, b As Integer) As Integer Static m As Integer, i As Integer m = 0 i = 2 i = i + m + 1 m = i + a + b func = m End Function Private Sub Command1_Click() Dim k As Integer, m As Integer Dim p As Integer k = 4 m = 1 p = func(k, m) Print p; p = func(k, m) Print p End Sub 程序运行后,单击命令按钮,输出结果为: A、8 17 B、8 16 C、8 20

文档评论(0)

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

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

1亿VIP精品文档

相关文档