VB实验任务11答案.doc

  1. 1、本文档共6页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 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

文档评论(0)

yan698698 + 关注
实名认证
内容提供者

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

1亿VIP精品文档

相关文档