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