VB算法及控件使用.docVIP

VB算法（技巧）及控件使用 一、算法 1、大小写字母转换 只进行字母转换：直接用Ucase$、Lcase$函数。 字母和其它字符分别转换：分别判断各类字符。 例如：If a$=”Z” and a$=”A” ‘字符比较 Csae “A” to “Z” aa=chr$(KeyAscii+32) ‘大小字母Ascii码相差32 2、数据（字符）格式输出 Print方法中的“，”、“；”、“ ”符号的使用。 Print方法中Spc、Tab函数的使用。 3、每行输出n个数。（t为计数） If t mod n=0 then print ‘print 输出 If t mod n=0 then text1 chr(13) chr(10) ‘text 输出 注：vbCrLf ==chr(13) chr(10) 4、交换算法：t=x：x=y：y=t 5、累加算法：s= s + x ‘关键是x的构造 连乘算法：p= p * x ‘关键是x的构造 6、求最大公约数、最小公倍数 7、产生一组S – T 之间的随机整数 算法如下： S=20:T=50 Randomize ‘注意 Randomize语句的作用 a=S+Int(Rnd()*(T-S+1)) Print a int(x)=abs(x) *****还可产生随机字符。 8、判断正整数、负整数、偶数、奇数等 判断正整数（包括0）：int(x)=abs(x) ‘如不包括0呢？ 判断负整数（包括0） ：-int(x)=abs(x) ‘如不包括0呢？ 偶数: x mod 2=0 、奇数：x mod 2=1 （X是整数的前提下） 9、构造“四舍五入”、“保留小数四舍五入” Y=int(x+0.5) ‘对x四舍五入 Y=int(x*100+0.5)/100 ‘对x保留2位小数四舍五入 10、数的按位分离，设x为三位数 A= x\100 ‘取百位 B=(x mod 100)\10 ‘取十位 C= x mod 100 ‘取个位 合成倒序数y : y= c * 100 + b * 10 + a 应用：（1）求“水仙花数”：所谓 “水仙花数”，就是一个三位数的每一为的平方和等于这个三位数。 ****还可以用“字符串”函数进行分离。 11、求素数 12、字符图形 要点：1）行数； 2）每行的起始位置； 3）每行数据个数（或字符个数）、间隔、位置与行号之间的关系。 13、穷举法 14、递推法 15、求最大（小）值 16、数字或字符串倒序输出 17、分解一个正整数为质因数的乘积 18、数组操作算法 1. 基本操作： 1）赋值（利用循环、利用Array函数、数组直接对数组） 2）输入（Input函数等） 3）输出 4）求最大（小）元素和下标及之和 5）数组元素交换（前后对应位置交换） 2. 移动(前后移动，循环移动) 3. 插入，删除 4. 二维数组： 1）矩阵转置： 2）求对角线元素和：对角线元素条件：i=j or i+j=n+1 sum=0 for i=1 to n for j=1 to n if i=j or i+j=n+1 then sum=sum+a(i,j) end if next j next i 3） 矩阵数字图形： 4）矩阵按行或列排序： 19、排序 1、选择法： 2、冒泡法： 3、插入法： 4、字符串排序：（按大小、按长度）（注意：按长度比较应用Len(“string”)函数） 20、查找 1．顺序法： 2．二分法（折半法）： 21、加密解密。 22、数制转换。 23、递归算法。 24、小数化为分数。 25、回文判断。(回文:从左右读相同) 26、英文文章中的单词统计。 27、字母统计。 28、杨辉三角形。 29、规范文字。 30、字符（图形）移动。 二、控件使用 1、输出（显示）方式 （1）通过文本框（TextBox） 文本框名称=要输出（显示）的内容 （2）通过标签（Label） 标签名称=要输出（显示）的内容 （3）通过窗体（Form） Print 要输出（显示）的内容 ‘Print前省略了对象 （4）通过图形框（PictureBox）