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

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 赋值好用来做下面的判断

Min=a(1)

For i = 1 to 10

这里是第二步,判断A（I）的大小

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开始循环 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= 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

这个就是检查除了1和本身之外能不能被整除，如果被整除了。前面的标记F 就变成1 A B C 取出之后他们三个的立方如果等于I 那么就是水仙花数。

2014 高职考网页试题：

参照如第92题图中的网页显示效果和具体要求，请在划线处用HTML语句将网页文件补充完整。具体要求如下：（10分）

(1)将网页中的“失物招领登记表”设置为三级标题，居中对齐；

(2)图片位于当前文件夹内，文件名为“001.jpg”，宽与高均为100像素；

(3)水平线颜色为红色，粗细为1个像素；

(4)单击“与我联系”将发送电子邮件至“slc@https://www.360docs.net/doc/9b4416897.html,”

第一篇

失物招领登记表

	编号	20130301	物品	钱包
发现地点	小公园	物品特征	无

---

与我联系