稽山中学信息技术学业水平考试复习资料---算法与程序设计(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)
百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读,70教育网,提供经典综合文库算法与程序设计(VB)知识点(3)在线全文阅读。
相关推荐: