VB常用算法典型例题及知识点.doc

资源描述

VB算法例题和解析常用类型符号：长整型 Long & 整型 Integer % 单精度型 Single ! 双精度型 Double # 字符型 String $ 逻辑型 Doolean (又称布尔型) VB常用算法：产生随机数： Int(rnd *(终值-初值+1)+初值) 例：输出10个随机数区间为[80 , 200] For i = 1 to 10 C=int(rnd*121+80) Print c Next i 最大最小值：最大最小值需要两者比较,所以在做的时候要把随便一个值先定义为最大值和最小值然后用for循环来逐个比较。 Max=a(1) 这里是第一步！将max和min 赋值好用来做下面的判断这里是第二步,判断A（I）的大小 Min=a(1) For i = 1 to 10 If a(i)>max then max=a(i) If a(i) < min then min = a(i) Next i Print max Print min VB冒泡法冒泡法是先拿出一个数字，然后一个一个判断过去.如果比他大,就放后面,比他小就放上面。冒泡法万能代码： For i = n to 2 step -1 For j = 1 to j-1 If a(j)>a(j+1) then ----> 从大到小是 “ < “ 从小到大是 “ > ” T=a(j) a(j)=a(j+1) a(j+1)=T End if Next j Next i VB素数代码：素数的定义：除了1和该数本身之外，不能被其他任何整数整除的数。思路： 1. 先定义一个变量F=0 2. 做一个循环,判断能不能被除了1和该数本身之外能不能被整除如果可以F就变成1 3. 如果最后F=0那么就是素数就输出它素数代码模板： N=val(text1) F=0 For i = 2 to sqr(n) ----> sqr(n)也可以换成n-1 ,因为不能被1整除所以要从2开始循环这个就是检查除了1和本身之外能不能被整除，如果被整除了。前面的标记F就变成1 If n mod i =0 then f=1 Next i If f=0 then print “是素数” 水仙花数定义：其各个位数的立方等于改数本身思路：先要知道个位，十位，百位，怎么分离，分离出来之后判断个位：K \ 100 十位：(K \ 10) Mod 10 百位： K Mod 10 输出100-999的水仙花数代码 For i = 100 to 999 A B C 取出之后他们三个的立方如果等于I 那么就是水仙花数。 A= i \ 100 B= (i \ 10) Mod 10 C= i Mod 10 If a^3+b^3+c^3 =i then print i Next i 其他算法：统计字符个数：总复习P292 逆向文字：总复习 P307 模拟投掷骰子：总复习 P289 工资扣税问题：总复习 P 287 2014 高职考网页试题：参照如第92题图中的网页显示效果和具体要求，请在划线处用HTML语句将网页文件补充完整。具体要求如下：（10分） (1)将网页中的“失物招领登记表”设置为三级标题，居中对齐； (2)图片位于当前文件夹内，文件名为“001.jpg”，宽与高均为100像素； (3)水平线颜色为红色，粗细为1个像素； (4)单击“与我联系”将发送电子邮件至“slc@” 第一篇 <html> <head><title>胜利街道失物招领资料库</title></head> <body> <h3 aglin=”center”> 失物招领登记表</h3> <table border=“1” align=“center”> <tr> <td Rowspan=”2” ><img src=”001.jpg” height=100 width=100 ></td> <td align=“center” width=“100”>编号</td> <td align=“center” width=“100”>20130301</td> <td align=“center” width=“100”>物品</td> <td align=“center” width=“100”>钱包</td> </tr> <tr> <td align=“center”>发现地点</td> <td align=“center”>小公园</td> <td align=“center”>物品特征</td> <td align=“center”>无</td> </tr> </table> <hr size=1 color=red> <p align=“center”><a href =”mailto:slc@”>与我联系</a></p> </body> </html>

展开阅读全文