- 1、本文档共14页,可阅读全部内容。
- 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大一程序设计第八章习题答案1
第八章
1.Sub过程与Function过程的主要区别是 B
A.Sub过程可以通过Call语句调用,而Function过程不可以
B.Sub过程不能通过过程名返回值,而Function过程可以
C.Sub过程与Function过程的参数传递方式不一样
D.Function过程只能返回1个值,而Sub过程可以返回多个值
2.以下叙述中错误的是 C. 。
A.在Sub过程中可以调用Function过程
B.可以在程序的任何地方调用以Public声明的过程
C.在Sub过程中可以嵌套定义Function过程
D.用Static声明的过程中的局部变量都是Stati变量
3.以下关于函数过程的叙述中,正确的是A 。
A.函数过程虚参的类型与函数返回值的类型没有关系
B.在函数过程中,过程的返回值可以有多个
C.Sub过程中定义1个Function过程,但不能定义Sub过程
(D)Sub过程Function过程返回值
7.以下语句用来定义过程subP,其中正确的是 D 。
A.Dim Sub subP(x , y) B.Public subP(x , y)
C.Private Sub subP(x , y) As Integer D.Sub subP(x , y)
8.在窗体上放置2个标签和一个命令按钮,其名称分别为Label1. 、Label2、command1
Private Sub Command1_Click()
a = Val(Label2.Caption)
Call func(Label1, a)
Label2.Caption = a
End Sub
Private Sub Form_Load()
Label1.Caption = ABCDE
Label2.Caption = 10
End Sub
Private Sub func(L As Label, ByVal X As Integer)
L.Caption = 1234
a = a * a
End Sub
程序运行后,单击命令按钮在2个标签中显示的内容分别是 1234 10
9. Option Base 1
Sub subp(b() As Integer)
For i = 1 To 3
b(i) = 3 * i
Next i
End Sub
Private Sub Command1_Click()
Dim a(3) As Integer
arr = Array(8, 4, 3)
For i = 1 To 3
a(i) = arr(i)
Next i
subp a()
For i = 1 To 3
Print a(i)
Next i
End Sub
运行程序后,在窗体上输出的内容为(A)?
A)3 ?6? 9 ??B)8?4?3?? C)9?6?3? ?D)3?4?8
10. Function func(a As Integer, b As Integer) As Integer
Static x As Integer, y As Integer
x = 0: y = 2
y = y + x + 1: x = y + a + b
func = x
End Function
Private Sub Command1_Click()
Static k As Integer, m As Integer
Dim p As Integer
k = 5: m = 2
p = func(k, m)
Print p
p = func(k, m)
Print p
End Sub输出结果是 10 10
11. Sub s1(ByVal x As Integer, ByVal y As Integer)
Dim t As Integer
t = x: x = y: y = t
End Sub
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 10: b = 30
s1 a, b
Print a=; a; b=; b
End Sub
运行程序后,在窗体上输出的内容为(C)
?A)a?=?30?b?=?10???
?B)a?=?30?b?=?30
?C)a?=?10?b?=?30????
D)a?=?10??b?=?10
12. Sub s(x As Single, y As Single)
t = x: x = t / y: y = t Mod y
End Sub
Private Sub Command1_Click()
Dim a As Single, b As Single
a = 5:
您可能关注的文档
最近下载
- 微生物检测技术 教学课件 作者 叶磊杨学敏 主编 项目十一十二 食品的微生物学检验.pptx
- 输电线路运维管理方案.doc
- 2023年兰州大学计算机科学与技术专业《计算机网络》科目期末试卷B(有答案).docx VIP
- 钱七虎英雄事迹微党课ppt课件.pptx VIP
- 三一汽车起重机STC1000C7-1_产品手册用户使用说明书技术参数图解图示电子版.pdf VIP
- 免疫疾病治疗与输液泵技术.docx
- 电池生产企业安全生产风险分级管控和隐患排查治理双体系方案全套资料(2019-2020新标准完整版).docx
- 电缆桥架样本.pdf
- 代理记账客户合同书范本(标准版).doc VIP
- 湘教版七年级上册地理第二章第三节世界的地形课件01陆地地形和海底地形.pptx
文档评论(0)