算法与程序设计(VB)知识点(3)

来源:网络收集 时间:2025-07-01 下载这篇文档 手机版
说明:文章内容仅供预览,部分内容可能不全,需要完整文档或者需要复制内容,请下载word后使用。下载word有问题请添加微信号:xuecool-com或QQ:370150219 处理(尽可能给您提供完整文档),感谢您的支持与谅解。点击这里给我发消息

稽山中学信息技术学业水平考试复习资料---算法与程序设计(VB)

sum-付款金额;yingfu-应付款;zhaoqian-需找回零钱。 lingjia = Val(txtling.Text) pijia = Val(txtpi.Text) num = Val(txtnum.Text) sum = Val(txtfu.Text) If num >= 10 Then yingfu = pijia * num zhaoqian = sum - yingfu Else yingfu = lingjia * num zhaoqian = sum - yingfu End If Label3.Caption = \您实际应付的金额为:\& \!收到付款金额为:\!应找您零钱金额为:\!谢谢您的惠顾,欢迎再次光临!\End Sub c = i Mod 10 If a ^ 3 + b ^ 3 + c ^ 3 = i Then List1.AddItem (Str(i)) sum = sum + 1 End If Next i Label1.Caption = \个数:\End Sub 方法二: Private Sub Command1_Click() Dim sum As Integer Dim i, j, k As Integer List1.Clear For i = 1 To 9 For j = 0 To 9 For k = 0 To 9 If i ^ 3 + j ^ 3 + k ^ 3 = 100 * i + 10 * j + k Then List1.AddItem (Str(100 * i + 10 * j + k)) sum = sum + 1 End If Next k Next j Next i Label1.Caption = \个数:\End Sub 考点四:数组的应用 1. 数组及其定义 ⑴什么是数组? 数组不是一种基本数据类型,而是一组相同类型的变量集合,集合中的每个元素都是独立的变量,它们能够通过数组序号被引用。变量与数组的关系如图所示,变量类似于一个个独立的柜子,而数组则类似于一组柜子,它们共同构成一个整体,可以用统一的编号进行管理。 ⑵数组的定义 数组的定义格式一: Dim 数组名(常量) As 数据类型 数组的定义格式二: Dim 数组(下界 to 上界) As 数据类型 例如,用数组aryChinese来表示50名同学的语文成绩,可以定义为: Dim aryChinese(49) As Single 或Dim aryChinese(0 to 49) As Single 第 11 页 共 13 页

稽山中学信息技术学业水平考试复习资料---算法与程序设计(VB)

这个数组共有50个元素,分别为aryChinese(0)、aryChinese(1)……aryChinese(49),数据类型为单精度。 ⑶数组的赋值 数组的赋值和一般变量的赋值类似,下面这段代码可以将数组中各元素重新置0: For i = 0 To 49 aryChinese( i ) = 0 Next 程序设计中,常常通过循环语句来处理数组中的数据。 2. 数组的应用 ⑴数据的查找 常见的查找算法主要有:顺序查找和二分(对分)查找。 顺序查找 二分(对分)查找 二分查找又称折半查找,优点是比较次数少,查找速度快,平均性能好;其缺点是要求待查表为有序表,且插入删除困难。因此,折半查找方法适用于不经常变动而查找频繁的有序列表。首先,假设表中元素是按升序排列,将表中间位置记录的关键字与查找关键字比较,如果两者相等,则查找成功;否则利用中间位置记录将表分成前、后两个子表,如果中间位置记录的关键字大于查找关键字,则进一步查找前一子表,否则进一步查找后一子表。重复以上过程,直到找到满足条件的记录,使查找成功,或直到子表不存在为止,此时查找不成功。 顺序查找是查找算法中简单、易行的算法。进行查找时,等待查找的候选数据放在数组变量中,要寻找的特定数据称为查找键,存在变量key中,查找一般从数组原的第一个元素开始,按照数据的顺序查找理指定的关键值;如果被查数据和该关键值实相匹配,则表示找到;如果所有数据与关现 键值都不匹配,则表示被查数据中不存在该关键值,查找失败。 流程图 i=1 Do while i<=n 程 If d(i)=key Then 序 Print i 实 Exit Do ‘退出循环 现 End If i=i+1 i=1 j=n Do while i<=j m=fix((i+j)/2) If d(m)=key Then Print m Exit Do 第 12 页 共 13 页

稽山中学信息技术学业水平考试复习资料---算法与程序设计(VB)

Loop If i=n+1 Then Print “0” End If If d(m)j Then Print “0” End If ⑵数据的排序 计算机编程中,排序算法的使用非常频繁。实践中,人们设计出了许多好的算法,如冒泡排序、选择排序、交换排序、插入排序、归并排序、基数排序等等,各种算法有其自身的特点与适用范围。 选择排序 冒泡排序 “冒泡法排序”也叫“起泡法排序”,是一种比较简单、易懂的交换排序方法,它通过将相邻元素进行比较和交换,逐步将一个无序序列排列为一个有序序列。将元素按从小到大的顺序排列称为升序排列,反之称为降序排列。 每次在若干个无序数中找出最小数(升序排列),并放在无序数中的第一个位置。假定有下标为0~n的n+1个数的序列,要求按升序排列,实现的步骤如下: 原(1)从第0个元素开始在n+1个数中找出理最小数,并与第0个元素交换位置。 实(2)从第1个元素开始在剩余的n个数中现 找出最小数,并与第1个元素交换位置。 (3)重复(2)依次从3、4?..n+1个元素中找最小、交换直到倒数第2个元素与最后1个元素比较后结束。 ‘把a(i)作为参照物,i从数组下界开始一直到上界-1,即倒数第二个元素,每取一个i值就进行一轮比较 For i=0 to n-1 imin=i for j=i+1 to n 程 if a(imin)>a(j) then 序 imin=j 实 end if 现 next j ‘得到最小值元素的序号 ‘放最小数到a(i),交换 t=a(i) a(i)=a(imin) a(imin)=t next i For i = 1 To num - 1 '冒泡排序 递增 For j = num To i + 1 Step -1 If d(j) < d(j - 1) Then k = d(j) d(j) = d(j - 1) d(j - 1) = k End If Next j Next i 第 13 页 共 13 页

百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读,70教育网,提供经典综合文库算法与程序设计(VB)知识点(3)在线全文阅读。

算法与程序设计(VB)知识点(3).doc 将本文的Word文档下载到电脑,方便复制、编辑、收藏和打印 下载失败或者文档不完整,请联系客服人员解决!
本文链接:https://www.70edu.com/wenku/397245.html(转载请注明文章来源)
Copyright © 2020-2025 70教育网 版权所有
声明 :本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
客服QQ:370150219 邮箱:370150219@qq.com
苏ICP备16052595号-17
Top
× 游客快捷下载通道(下载后可以自由复制和排版)
单篇付费下载
限时特价:7 元/份 原价:20元
VIP包月下载
特价:29 元/月 原价:99元
低至 0.3 元/份 每月下载150
全站内容免费自由复制
VIP包月下载
特价:29 元/月 原价:99元
低至 0.3 元/份 每月下载150
全站内容免费自由复制
注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信:xuecool-com QQ:370150219