- 1、本文档共6页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB第五章练习习题
上海立信会计学院
班级: 学号: 1220030233 姓名: 马晓璐 指导教师: 朱祥德
系部: 外语 专业: 英语
习题5 p123
1、2、3、4、5、6、7、8
1. 在VB6.0中,数组的下界默认为0,用什么语句可以重新定义数组的默认下界?
答:Option Base 语句
2.要分配存放12个元素的整型数组,下列数组声明(下界若无,按默认规定)哪些符合要求?
(1)n = 12
Dim a(1 To n) As Integer
(2)Dim a%()
n = 11
ReDim a(n)
(3)Dim a%[2,3]
(4)Dim a(1, 1, 2) As Integer
(5)Dim a%(10)
ReDim a(1 To 12)
(6)Dim a!()
ReDim a(3, 2) As Integer
(7)Dim a%(2, 3)
(8)Dim a(1 To 3, 1 To 4) As Integer
答:(2),(4),(7),(8)符合要求。
(1)静态数组在声明数组时的下标必须是常数,不能出现变量
(3)不能使用方括号
(5) 已声明了的静态数组,不能再用重定义语句来重定义静态数组的大小
(6)可以反复地改变数组的元素以及维数的数目,但是不能将一个数组定义为某种数据类型之后,再使用ReDim将该数组改为其他数据类型。
3. 程序运行时显示“下标越界”可能产生的错误有哪几种情况?
答: 引用了不存在的数组元素下标比可能下标范围大或小,或是在应用程序中这一边的数组没有指定范围声明数组时没有指定元素的数目
Dim a(-1 To 2,3) As Single
答:数组名为a、数组类型为单精度、二维、各维的下界分别为-1和0、上界分别为2和3、数组的大小4x4共16个元素
a(-1,0) a(-1,1) a(-1,2) a(-1,3) a(0,0) a(0,1) a(0,2) a(0,3) a(1,0) a(1,1,) a(1,2) a(1,3) a(2,0) a(2,1) a(2,2,) a(2,3)
5.利用随机数生成两个矩阵(数据不一定相同,前者30~70范围、后者101~135)。
要求:
(1)将两个矩阵相加结果放入C矩阵中。
(2)将A矩阵转置。
(3)统计C矩阵中最大值和下标。
(4)以下三角形式显示A矩阵、上三角形式显示B矩阵。
(5)将A矩阵的第一行与第三行对应元素交换位置,即第一行元素放到第三行;第三行元素放到第一行。
(6)求A矩阵两条对角线元素之和。
(7)将A矩阵按列的次序把各元素放入一维数组D中,显示结果。
答:Dim a(4, 4) As Integer, b(4, 4) As Integer, c(4, 4) As Integer
Randomize
Print 矩阵A为:
For i = 1 To 4
For j = 1 To 4
a(i, j) = Int(Rnd * 41 + 30)
Print Tab(5 * j); a(i, j);
Next j
Print
Next i
Print 矩阵B为:
For i = 1 To 4
For j = 1 To 4
b(i, j) = Int(Rnd * 35 + 101)
Print Tab(5 * j); b(i, j);
Next j
Print
Next i
(1)两个矩阵能相加的条件是他们的行数、列数相同,利用两重循环将他们相加即可。
For i= 1 to 4
For j=1 to 4
c(i,j)=a(i,j)+b(i,j)
Next j
Next i
(2)矩阵转置是将矩阵的行变为列、列变为行。
For i= 1 To 4
For j=i+1 To 4
t=a(i,j)
a(i,j)=a(j,i)
a(j,i)=t
Next j
Next i
(3)因为C是两维数组,所以最大值的下标也有两个,即行下标和列下标。
Dim Max%, Maxi%, Maxj%
Max = c(1, 1): Maxi = 1: Maxj = 1
For i = 1 To 4
For j = 1 To 4
If c(i, i) Max Then
Max = c(i, j): Max
您可能关注的文档
- SL型液体低碱混凝土速凝剂的研究.pdf
- SM361016通道触点型开关量输入端子模块使用说明书.pdf
- SLUG试验及其水文地质参数的研究.pdf
- SM7315P9W内非隔离球泡灯或T管驱动方案SM7307同系列.pdf
- SM7650组合恒流控制器.pdf
- SM7350高功率因数LED恒流驱动芯片.pdf
- SK3308零件手册.pdf
- SMARTEK感应淬火能量控制器.pdf
- SMT测试技术介绍.pdf
- SnO2超细粉体应用于低温气敏材料.pdf
- 商的变化规律(教案)-2024-2025学年人教版数学四年级上册.docx
- 人教版(2019)必修第二册 Unit1 Cultural Heritage Listening and speaking教学设计.docx
- 人音版五年级音乐上册第2课《雨花石》教学设计.docx
- 心理健康教育二年级上册北师大版9《做情绪的主人 积极情绪有益健康》教学设计.docx
- 初中心理健康教育 《把压力当早餐》教案.docx
- Unit 4 Natural disasters Listening and Speaking 教学设计-2024-2025学年高中英语人教版(2019)必修第一册.docx
- Unit 7 Happy Birthday! Section B 1a—1d教学设计- 2024-2025学年人教版英语七年级上册.docx
- 高中历史人教新课标(必修一 政治史)第5课 古代希腊民主政治 教案.docx
- 全国中图版高中信息技术必修一第四单元加工表达信息第一节《策划表达方式》教学设计.docx
- Unit 5 A healthy lifestyle Period 4 pronunciation 教学设计2024-2025学年牛津译林版英语七年级上册.docx
文档评论(0)