有哪些信誉好的足球投注网站- 1、本文档共44页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
第5章 数组和自定义类型 5.1 数组的概念 5.2 数组的基本操作和排序 5.3 列表框和组合框控件 5.4 自定义类型及其数组 5.5 综合应用 5.1 数组的概念 5.1.2数组声明 多维数组声明 5.1.3 动态数组及声明 定义动态数组大小注意： Private Sub Command1_Click() Dim x() As Integer Dim n%, i% n = Val(InputBox(输入序列数)) ReDim x(n - 1) x(0) = 1 x(1) = 1 For i = 2 To n - 1 x(i) = x(i - 1) + x(i - 2) Next i For i = 0 To n - 1 Print x(i), If (i + 1) Mod 5 = 0 Then Print Next End Sub 5.2 数组的基本操作 2、数组的输出 Private Sub Form_Click() Dim sc%(4, 4) Picture1.Print 产生方阵数据 For i = 0 To 4 For j = 0 To 4 sc(i, j) = i * 5 + j Picture1.Print Tab(j * 5); sc(i, j); Next j Picture1.Print 换行 Next i Picture2.Print 显示上三角数组元素 For i = 0 To 4 For j = i To 4 Picture2.Print Tab(j * 5); sc(i, j); Next j Picture2.Print 换行 Next i Picture3.Print 显示下三角数组元素 For i = 0 To 4 For j = 0 To i Picture3.Print Tab(j * 5); sc(i, j); Next j Picture3.Print Next i End Sub 3、求数组和、最值、位置 Private Sub Command1_Click() Dim a, i%, min%, imin%, sum%, t% a = Array(26, 43, 61, 87, 33, 19, 37, 59, 76, 69) min = a(0): imin = 0: sum = a(0) 假定a(0)元素为最小值 For i = 1 To UBound(a) sum = sum + a(i) If a(i) min Then min = a(i) imin = i End If Next i t = a(0): a(0) = a(imin): a(imin) = t Print 数组元素和=; sum, 最小元素值为:; a(0) End Sub 4、交换元素 5、数组排序 Private Sub Command1_Click() Dim a(), iMin%, n%, i%, j%, t% a = Array(8, 6, 9, 3, 2, 7) n = UBound(a) 获得数组的下标上界 For i = 0 To n - 1 进行n-1轮比较 iMin = i 对第i轮比较时，初始假定第i个元素最小 For j = i + 1 To n 在数组 i+1～n个元素中选最小元素的下标 If a(j) a(iMin) Then iMin = j Next j t = a(i) i+1～n个元素中选出的最小元素与第i个元素交换 a(i) = a(iMin) a(iMin) = t Next i For i = LBound(a) To UBound(a) Print a(i); Next
文档评论（0）