1、测试VB一、计数、求和、求阶乘等简单算法此类问题都要使用循环,要注意根据问题确定循环变量的初值、终值或结束条件,更要注意用来表示计数、和、阶乘的变量的初值。例:用随机函数产生100个0,99范围内的随机整数,统计个位上的数字分别为1,2,3,4,5,6,7,8,9,0的数的个数并打印出来。本题使用数组来处理,用数组a(1 to 100)存放产生的确100个随机整数,数组x(1 to 10)来存放个位上的数字分别为1,2,3,4,5,6,7,8,9,0的数的个数。即个位是1的个数存放在x(1)中,个位是2的个数存放在x(2)中,个位是0的个数存放在x(10)。将程序编写在一个GetTJput过程
2、中,代码如下:Public Sub GetTJput() Dim a(1 To 100) As Integer Dim x(1 To 10) As Integer Dim i As Integer, p As Integer 产生100个0,99范围内的随机整数,每行10个打印出来 For i = 1 To 100 a(i) = Int(Rnd * 100) If a(i) n; (2) m除以n得余数r; (3) 若r=0,则n为求得的最大公约数,算法结束;否则执行(4); (4) mn,nr,再重复执行(2)。 例如: 求 m=14 ,n=6 的最大公约数. m n r 14 6 2 6
3、2 0m=inputBox(m=)n=inputBox(n=)nm=n*mIf m n Then t = m: m = n: n = t r=m mod n Do While (r 0) m=n n=r r= m mod n Loop Print 最大公约数=, n Print 最小公倍数=, nm/n三、判断素数只能被1或本身整除的数称为素数 基本思想:把m作为被除数,将2INT( )作为除数,如果都除不尽,m就是素数,否则就不是。(可用以下程序段实现)m =val( InputBox(请输入一个数) For i=2 To int(sqr(m) If m Mod i = 0 Then Exi
4、t For Next i If i int(sqr(m) Then Print 该数是素数 Else Print 该数不是素数 End If将其写成一函数,若为素数返回True,不是则返回FalsePrivate Function Prime( m as Integer) As Boolean Dim i% Prime=True For i=2 To int(sqr(m) If m Mod i = 0 Then Prime=False: Exit For Next i End Function四、验证哥德巴赫猜想(任意一个大于等于6的偶数都可以分解为两个素数之和)基本思想:n为大于等于6的任一
5、偶数,可分解为n1和n2两个数,分别检查n1和n2是否为素数,如都是,则为一组解。如n1不是素数,就不必再检查n2是否素数。先从n1=3开始,检验n1和n2(n2=N-n1)是否素数。然后使n1+2 再检验n1、n2是否素数, 直到n1=n/2为止。利用上面的prime函数,验证哥德巴赫猜想的程序代码如下:Dim n%,n1%,n2% n=Val(InputBox(输入大于6的正整数) For n1=3 to n/2 step 2 n2=n-n1 If prime(n1) Then If prime(n2) then Print n & = & n1 & + & n2 Exit For 结束循
6、环 End if End if Next n1五、排序问题1选择法排序(升序)基本思想:1)对有n个数的序列(存放在数组a(n)中),从中选出最小的数,与第1个数交换位置;2)除第1 个数外,其余n-1个数中选最小的数,与第2个数交换位置;3)依次类推,选择了n-1次后,这个数列已按升序排列。程序代码如下:For i = 1 To n - 1 imin = i For j = i + 1 To n If a(imin) a(j) Then imin = j Next j temp = a(i) a(i) = a(imin) a(imin) = tempNext I2冒泡法排序(升序) 基本思想
7、:(将相邻两个数比较,小的调到前头)1)有n个数(存放在数组a(n)中),第一趟将每相邻两个数比较,小的调到前头,经n-1次两两相邻比较后,最大的数已“沉底”,放在最后一个位置,小数上升“浮起”;2)第二趟对余下的n-1个数(最大的数已“沉底”)按上法比较,经n-2次两两相邻比较后得次大的数;3)依次类推,n个数共进行n-1趟比较,在第j趟中要进行n-j次两两比较。程序段如下For i = 1 To n - 1 For j = 1 To n-i If a(j) a(j+1) Then temp=a(j): a(j)=a(j+1): a(j+1)=temp End if Next jNext i
8、3合并法排序(将两个有序数组A、B合并成另一个有序的数组C,升序)基本思想:1)先在A、B数组中各取第一个元素进行比较,将小的元素放入C数组;2)取小的元素所在数组的下一个元素与另一数组中上次比较后较大的元素比较,重复上述比较过程,直到某个数组被先排完;3)将另一个数组剩余元素抄入C数组,合并排序完成。程序段如下: Do While ia = UBound(A) And ib = UBound(B) 当A和B数组均未比较完 If A(ia) B(ib) Then C(ic) = A(ia): ia = ia + 1 Else C(ic) = B(ib): ib = ib + 1 End If
9、ic = ic + 1 Loop Do While ia = UBound(A) A数组中的剩余元素抄入C数组 C(ic) = A(ia) ia = ia + 1: ic = ic + 1 Loop Do While ib = UBound(B) B数组中的剩余元素抄入C数组 C(ic) = B(ib) ib = ib + 1: ic = ic + 1 Loop六、查找问题1顺序查找法(在一列数中查找某数x) 基本思想:一列数放在数组a(1)-a(n)中,待查找的数放在x 中,把x与a数组中的元素从头到尾一一进行比较查找。用变量p表示a数组元素下标,p初值为1,使x与a(p)比较,如果x不等于
10、a(p),则使p=p+1,不断重复这个过程;一旦x等于a(p)则退出循环;另外,如果p大于数组长度,循环也应该停止。(这个过程可由下语句实现) p = 1 Do While x a(p) And p =n p = p + 1 Loop下面写一查找函数Find,若找到则返回下标值,找不到返回0Option Base 1Private Function Find( a( ) As Single,x As Single) As Integer Dim n%,p% n=Ubound( a )p = 1Do While x a(p) And p n then p=0 Find=pEnd Function
11、 基本思想:一列数放在数组a(1)-a(n)中,待查找的关键值为key,把key与a数组中的元素从头到尾一一进行比较查找,若相同,查找成功,若找不到,则查找失败。(查找子过程如下。index:存放找到元素的下标。)Public Sub Search(a() As Variant, key As Variant, index%) Dim i% For i = LBound(a) To UBound(a) If key = a(i) Then index = i Exit Sub End If Next i index = -1End Sub2折半查找法(只能对有序数列进行查找)基本思想:设n个有
12、序数(从小到大)存放在数组a(1)-a(n)中,要查找的数为x。用变量bot、top、mid 分别表示查找数据范围的底部(数组下界)、顶部(数组的上界)和中间,mid=(top+bot)/2,折半查找的算法如下:(1)x=a(mid),则已找到退出循环,否则进行下面的判断;(2)xa(mid),x必定落在mid+1和top的范围之内,即bot=mid+1;(4)在确定了新的查找范围后,重复进行以上比较,直到找到或者bot=top。将上面的算法写成如下函数,若找到则返回该数所在的下标值,没找到则返回-1。Function search(a() As Integer, x As Integer)
13、As Integer Dim bot%, top%, mid% Dim find As Boolean 代表是否找到 bot = LBound(a) top = UBound(a) find = False 判断是否找到的逻辑变量,初值为False Do While bot = top And Not find mid = (top + bot) / 2 If x = a(mid) Then find = True Exit Do ElseIf x a(p) and p a(p) And p a(row, Column) Then Max = a(i, j) row = i Column =
14、j End If Next jNext iPrint 最大元素是; MaxPrint 在第 & row & 行,; 第 & Column & 列九、迭代法算法思想:对于一个问题的求解x,可由给定的一个初值x0,根据某一迭代公式得到一个新的值x1,这个新值x1比初值x0更接近要求的值x;再以新值作为初值,即:x1x0,重新按原来的方法求x1,重复这一过和直到|x1-x0| 0.00001 Fsqrt=x1End Function十、数制转换 将一个十进制整数m转换成 r(216)进制字符串。方法:将m不断除 r 取余数,直到商为零,以反序得到结果。下面写出一转换函数,参数idec为十进制数,ib
15、ase为要转换成数的基(如二进制的基是2,八进制的基是8等),函数输出结果是字符串。Private Function TrDec(idec As Integer, ibase As Integer) As String Dim strDecR$, iDecR% strDecR = Do While idec 0 iDecR = idec Mod ibase If iDecR = 10 Then strDecR = Chr$(65 + iDecR - 10) & strDecR Else strDecR = iDecR & strDecR End If idec = idec / ibase L
16、oop TrDec = strDecREnd Function十一、字符串的一般处理1简单加密和解密加密的思想是: 将每个字母C加(或减)一序数K,即用它后的第K个字母代替,变换式公式: c=chr(Asc(c)+k) 例如序数k为5,这时 A F, a?f,B?G 当加序数后的字母超过Z或z则 c=Chr(Asc(c)+k -26) 例如:You are good Dtz fwj ltti 解密为加密的逆过程 将每个字母C减(或加)一序数K,即 c=chr(Asc(c)-k), 例如序数k为5,这时 ZU, zu,YT 当加序数后的字母小于A或a则 c=Chr(Asc(c)-k +26)下段程序是加密处理:i = 1: strp = nL = Len
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1