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

VB算法例题与解析

常用类型符号：

长整型Long

整型Integer%

单精度型Single!

双精度型Double#

字符型String$

逻辑型Doolean(又称布尔型)

VB常用算法：

产生随机数：

Int(rnd*(终值-初值+1)+初值)

例：输出10个随机数区间为[80,200]

Fori=1to10

C=int(rnd*121+80)

Printc

Nexti

最大最小值：

最大最小值须要两者比较,所以在做的时候要把随意一个值先定义为最大值与最小值然后用for循环来逐个比较。

Max=a(1) 这里是第一步！将max与min赋值好用来做下面的推断

这里是第二步,

这里是第二步,推断A〔I〕的大小

Fori=1to10

Ifa(i)maxthenmax=a(i)

Ifa(i)minthenmin=a(i)

Nexti

Printmax

Printmin

VB冒泡法

冒泡法是先拿出一个数字，然后一个一个推断过去.假设比他大,就放后面,比他小就放上面。

冒泡法万能代码：

Fori=nto2step-1

Forj=1toj-1

Ifa(j)a(j+1)then----从大到小是““从小到大是“〞

T=a(j)

a(j)=a(j+1)

a(j+1)=T

Endif

Nextj

Nexti

VB素数代码：

素数的定义：除了1与该数本身之外，不能被其他任何整数整除的数。

思路：

先定义一个变量F=0

做一个循环,推断能不能被除了1与该数本身之外能不能被整除假设可以F就变成1

假设最终F=0则就是素数就输出它

素数代码模板：

N=val(text1)

F=0

Fori=2tosqr(n)----sqr(n)也可以换成n-1,因为不能被1整除所以要从2开始循环

这个就是检查除了1与本身之外能不能被整除，假设

这个就是检查除了1与本身之外能不能被整除，假设被整除了。前面的标记F就变成1

Nexti

Iff=0thenprint“是素数〞

水仙花数

定义：其各个位数的立方等于改数本身

思路：先要知道个位，十位，百位，怎么别离，别离出来之后推断

个位：K\100

十位：(K\10)Mod10

百位：KMod10

输出100-999的水仙花数代码

Fori=100to999

ABC取出之后他们三个的立方假设

ABC取出之后他们三个的立方假设等于I则就是水仙花数。

B=(i\10)Mod10

C=iMod10

Ifa^3+b^3+c^3=ithenprinti

Nexti

其他算法：

统计字符个数：总复习P292

逆向文字：总复习P307

模拟投掷骰子：总复习P289

工资扣税问题：总复习P287

2021高职考网页试题：

参照如第92题图中的网页显示效果与详细要求，请在划线处用HTML语句将网页文件补充完好。详细要求如下：〔10分〕

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

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

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

(4)单击“与我联络〞将发送电子邮件至“〞

第一篇

html

headtitle成功街道失物招领资料库/title/head

body

h3aglin=〞center〞失物招领登记表/h3

tableborder=“1〞align=“center〞

tr

tdRowspan=〞2〞imgsrc=〞001.jpg〞height=100width=100/td

tdalign=“center〞width=“100〞编号/td

tdalign=“center〞width=“100td

tdalign=“center〞width=“100〞物品/td

tdalign=“center〞width=“100〞钱包/td

/tr