- 1、本文档共6页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB实验任务11答案
实验任务11
课程名称:程序设计基础VB
实验名称——实验十一 数组(1)
一、实验目的:
1.掌握数组的声明和数组元素的引用
2.掌握定长数组使用
3.掌握一维数组的基本操作算法
二、实验内容(包括实验要求(题目)、实验步骤、程序清单、运行情况):
注意:其中每个同学实验1自行写结果验证,实验2-实验6发老师邮箱,尽量课上发。
实验1 人工写出如下程序的运行结果,并利用单步调试工具验证执行流程和运行结果,进一步深入弄清和理解数组的访问。
(1)在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:
Private Sub Command1_Click()
Dim a(5) As Integer, i As Integer, t As Integer
For i = 0 To 4
a(i) = i + 1
t = i + 1
If t = 3 Then
Print a(i);
a(t - 1) = a(i - 2)
Else
a(t) = a(i)
End If
If i = 3 Then a(i + 1) = a(t - 4) : Exit For
a(4) = 1
Print a(i);
Next I
End Sub
运行程序,单击命令按钮,输出结果是 。
(2)下面的事件过程执行结束后,K的值是 ,A(2)的值是 ,A(7)的值是 ,程序中第二个循环被执行了 次,程序中第三个循环被执行了 次。
Option Explicit
Option Base 1 ‘将数组的下界的默认值设为1
Private Sub Command1_Click()
Dim A(10) As Integer, i As Integer, K As Integer
For i = 1 To 10
A(i) = 1
Next i
K = 1
For K = 1 To K Step K
A(K) = 0
K = K + 2
Next K
For K = K To 10 Step -1
A(K) = K
K = K + 2
Next K
End Sub
(3)执行下面程序,单击命令按钮Command1后,数组元素A(1, 2)的值是 ,数组元素A(2, 2)的值是 ,数组元素A(3, 3)的值是 。
Private Sub Command1_Click()
Dim A(3, 3) As Integer, i As Integer, j As Integer, k As Integer
Dim B
i = 3: j = 1
A(i, j) = 1
For k = 2 To 9
If i + 1 3 Or j + 1 3 Then
If j = 1 Then
i = i - 1
ElseIf A(i - 1, j - 1) = 0 Then
i = i - 1: j = j - 1
ElseIf j = 3 Then
i = i - 1
Else
j = j + 1
End If
ElseIf j = 1 Or i = 1 Then
If A(i + 1, j + 1) = 0 Then
i = i + 1: j = j + 1
Else
j = j + 1
End If
Else
If A(i - 1, j - 1) = 0 Then
i = i - 1: j = j - 1
End If
End If
A(i, j) = k
Next k
For Each B In A
您可能关注的文档
最近下载
- 四川省2004年肺结核流行特征及空间聚集性分析.pdf VIP
- 《小肠梗阻的诊断与治疗中国专家共识(2023版)》解读.pptx
- 回收、暂存、中转废矿物油与含矿物油废物项目突发环境事件应急预案.docx
- 电路与电子学-课程教学大纲.doc VIP
- 安徽省A10联盟2023-2024学年高二上学期11月期中考试物理试题及答案.pdf
- 第三届全国新能源汽车关键技术技能大赛(汽车电气装调工赛项)考试题库资料(含答案).pdf
- 国家科技创新政策汇编 202305.pdf
- 东华大学819有机化学2018年考研真题.pdf
- 精品推荐企业财务制度通用版汇总.docx
- 2016年东华大学硕士研究生入学考试819有机化学考研真题.pdf
文档评论(0)