计算机二级补习B基础部分.pptVIP

VB程序设计基础;;第二章 创建用户界面;第二章 创建用户界面;第二章 创建用户界面;第二章 创建用户界面;第三章 VB语言基础;;第三章 VB语言基础;第三章 VB语言基础;第三章 VB语言基础;第三章 VB语言基础;第三章 VB语言基础;第三章 VB语言基础;第三章 VB语言基础;第三章 VB语言基础;第三章 VB语言基础;第三章 VB语言基础;第三章 VB语言基础;第四章 算法基础及VB的基本语句;第四章 算法基础及VB的基本语句;第四章 算法基础及VB的基本语句;第四章 算法基础及VB的基本语句;第四章 算法基础及VB的基本语句;第四章 算法基础及VB的基本语句;第四章 算法基础及VB的基本语句;第四章 算法基础及VB的基本语句; ;Option Explicit Private Sub Command1_Click() Dim S As Single, T As Single, K As Integer, x As Single Const eps As Single = 0.000001 x = Val(Text1) S = 1 T = 1 Do T = S = S + T K = K + 1 Loop While Text2 = S End Sub;第四章 算法基础及VB的基本语句;第四章 算法基础及VB的基本语句;第四章 算法基础及VB的基本语句;第五章 数组;第五章 数组;第五章 数组;第五章 数组;第五章 数组;第五章 数组;第五章 数组;第五章 数组;[分析]：二分查找是一种快捷有效的查找方法，使用二分查找的前提是数据序列已排好序。 假设有n个数已经按照从小到大的顺序排列，并存放在数组A中，设Left为查找区间的下界——下标，初值为1；Right为查找区间的上界，初值为n；设需要查找的数为x；二分查找的算法如下： （1）求出查找区间的中间位置Mid=Int((Left+Right)/2) （2）若A（Mid）=x，则找到，结束比较 （3）若A（Mid）x，则表明x在A（Mid+1）到A（Right）区间内，查找区间缩小一半，设置Left=Mid+1 （4）若A（Mid）x，则表明x在A（Left）到A（Mid-1）区间内，查找区间缩小一半，设置Right=Mid-1 （5）重复执行以上操作 （6）结束循环的条件有两个：已经找到；找不到--LeftRight;3; Left = LBound(a) Right = UBound(a) x = InputBox(请输入要查找的数据) Do While Left = Right Mid = Int((Left + Right) / 2) If a(Mid) = x Then Exit Do ElseIf a(Mid) x Then Left = Mid + 1 Else Right = Mid - 1 End If Loop If Left = Right Then Print 要查找的; x; 是A（; Mid; ) Else Print 没找到！; x End If;第八章 过程;第八章 过程;第八章 过程;第八章 过程;第八章 过程;第八章 过程;第八章 过程;第八章 过程;第八章 过程;第八章 过程;第八章 过程