vb常用算法

VB常用算法总结

一、变量值的交换

算法思想：若交换两个变量的值，必须引入第三个新的变量进行传递。 以下代码是错误的：

X=12 ：Y=34 ：X=Y ：Y=X 正确的代码是：

X=12 ：Y=23 ：T=X ：X=Y ：Y=T 二、判断一个数是否能被另一个数整除

算法思想：可以用整除的定义（余数为0）或X除以Y等于X整除Y等表达式进行判断。 条件表达式可以为：X mod Y=0 或 X＼ Y=X/Y 或 Int(X/Y)=X/Y 如果以上条件表达式为True，则表示X能被Y整除。 三、累加、阶乘、计数和求平均值

算法思想：使用循环语句，并用一个变量存放累加的中间及最终结果。 注： 累加求和时变量初值为0，计算阶乘时变量初值为1。

统计计个数（计数）时可用一个变量作为统计个数的累加变量，每次加1即可。 求平均值算法思想是先求和，再除以个数。 条件求和（或计数）：在循环语句中加入If－End If判断语句。

例题：计算1到10之间所有整数的累加和以及10！。 n=10

sum=0 ‘累加求和时，变量的初值一定为0

prod=1

VB常用算法----排序

1、选择法排序

(1) 利用循环从n个数中选出最小数的下标，结束循环后，将最小数与第一个数交换位置；

(2) 除第一个数外，在剩下的n-1个数中再按方法（1）选出次小的数，与第二个数交换位置；

(3) 以此类推，最后构成递增序列。 譬如：

8 2 2 2 2 2

6 6 3 3 3 3

9 9 9 6 6 6

3 3 6 9 7 7

2 8 8 8 8 8

7 7 7 7 9 9

第一轮交换后 第二轮交换后 第三轮交换后 第四轮交换后 第五轮无交换

程序代码如下：

Private Sub xzPaiXu(a() As Double, sheng As Boolean)

'a为需要排序的数组，sheng为True则为升序排列，为False，则为降序排列。 Dim i As Integer, j As Integer Dim temp As Double Dim m As Integer

For i = LBound(a) To UBound(a) - 1 '进行数组大小-1轮比较 m = i

VB常用算法

《VB程序设计》上机考点与常用算法

算法：计算机解题的基本思想方法和步骤。算法的描述：是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述，包括需要什么数据（输入什么数据、输出什么结果）、采用什么结构、使用什么语句以及如何安排这些语句等。 四川省二级考纲：常用算法程序设计

1．初等数论问题求解的有关算法（求最小公倍数、最大公约数、素数）

2．递推化算法（迭代、累加、累乘、穷举）（迭代略，穷举简介） 3．方程求根（二分法）（略） 4．排序算法（选择法、冒泡法） 5．查找（顺序法、折半法） 6．有序数列的插入、删除操作 7．进制转换和简单的加密解密算法 8．简单的递归过程（略）

国家二级考纲：常用算法程序设计

1、初等数论问题求解的有关算法（求最大公约数，最小公倍数，素数）； 2、递推化算法（迭代，累加，累乖，穷举法）； 3、方程求根（二分法）；

4、排序算法（选择法，冒泡法）； 5、查找（顺序法，折半法）； 6、有序数列的插入、删除操作； 7、简单的递归过程。

与四川省考纲比较，没有7．进制转换和简单的加密解密算

以下对省大纲要求分别举例：

一、初等数论问题求解的有关算法（求最小公倍数、最大公约数、素数

VB程序设计的常用算法4

十、数制转换

将一个十进制整数m转换成 →r(2－16)进制字符串。

方法：将m不断除 r 取余数，直到商为零，以反序得到结果。下面写出一转换函数，参数idec为十进制数，ibase为要转换成数的基（如二进制的基是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 Loop

TrDec = strDec

1、判断一个数是不是素数

Private Sub Form_Click()

num = Val(InputBox(\请输入整数num\For i = 2 To num-1

If num Mod i = 0 Then

Print \整数\不是素数\ Exit For End If Next i

If i > num-1 Then Print \整数\是素数\End Sub

2、1~100内素数之和

Private Sub Form_Click() Dim sum% sum = 1

For i = 2 To 100

For j = 2 To i-1

If i Mod j = 0 Then Exit For End If Next j

If j >i-1Then sum = sum + i: Print i Next i

Print \以内的素数之和为：\End Sub

3、杨辉三角

Option Base 1

Private Sub Form_Click() Dim a(10, 10)

For i = 1 To 1

Format$(Now,\EOA\

只要这么一句~~~~~就可以得到“ 二○○六年五月二十六日” 亏我还得写得那么多。。。

所以对FORMAT函数进行研究，参照HELP文件，把一些用法写了下来。 现拿给大家共享。。。

--------------------------------- Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 -------------------------------- 数字类型的格式化 --------------------------------

固定格式参数：

General Number 普通数字，如可以用来去掉千位分隔号 format$(\返回值 100123.12

Currency 货币类型，可添加千位分隔号和货币符号 format$(\返回值 ￥100,123.12

Fixed 格式为带两位小数的数字

format$(\返回值 100123.00

Standard 标准，即带千位分隔号和两位小数 format$(\tandard\返回值 100,123.00

Percent 百分数

VB常用函数（1）

一、 数学函数 在具体编程过程中，各类数学函数会被使用，数学函数用于数学计算，包括三角函数、求平方根函数、求绝对值函数、对数函数、指数函数等。它们与相应的数学定义相同。

使用数学函数时应注意一下几点：

1、 三角函数的参数应是弧度数，如sin300应写成：

Sin(30*3.14159/180)

2、Rnd()函数返回[0,1)之间的一个随机数，它往往和Randomise结合使用,后者将随机数初始化，避免Rnd()产生相同的随机数。

表1 常用数学函数

[探讨题1]请在屏幕上打印出[5,6）之间的随机数 Private Sub Command1_Click() Randomize a = Rnd()+5

Print a End Sub

[探讨题2]请在屏幕上打印出[5,11)之间的随机数

Private Sub Command1_Click() Randomize a = Rnd*6+5 Print a End Sub

[探讨3]请在屏幕上打印出[b,c )之间的随机数,并请同学熟记

Private Sub Command1_Click() Randomize a = Rnd*(c-b)+b

4．5 常用内部函数

为了满足用户编程的需要，VB在系统内部提供了若干个能完成某个特定功能的程序段，这些程序段称为内部函数。如求某个数的平方根的函数，求某个数的对数的函数等。 在程序中使用函数称为函数调用，函数调用的一般格式为： 函数名(参数1，参数2，?)

其中，参数(也称自变量)放在圆括号内，若有多个参数，参数间以逗号分隔。

函数调用后，一般都有一个返回值，即函数值。例如：

y=Sqr(7)

其中，Sqr是内部函数名，7为参数。运行时，该语句调用内部函数Sqr来求7的平方根，其计算结果由系统返回作为Sqr的值。本例把返回值赋给变量y。

在包含有函数的表达式中进行运算时，系统将优先进行函数调用。函数调用往往包含在表达式中，不能作为一条独立的语句使用。

VB的内部函数大体上分为四大类：数学函数、字符串函数、日期与时间函数和转换函数。

4．5．1 数学函数

表4-5列出了VB提供的10种常用数学函数。

表4–5 常用数学函数 函 数 Sin(x) Cos(X) Tan(x) Sqr(x) Exp(x) Log(X) Fix(x) 返回值类型 Double Double Double Double Double Double Double

信息技术奥林匹克竞赛

VB程序设计的常用算法

算法（Algorithm）：计算机解题的基本思想方法和步骤。

算法的描述：是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述，包括需要什么数据（输入什么数据、输出什么结果）、采用什么结构、使用什么语句以及如何安排这些语句等。通常使用自然语言、结构化流程图、伪代码等来描述算法。

一、计数、求和、求阶乘等简单算法

此类问题都要使用循环，要注意根据问题确定循环变量

的初值、终值或结束条件，更要注意用来表示计数、和、阶乘的变量的初值。

例：用随机函数产生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过程中，代码如下：

Public Sub GetTJput()

Dim a(1 To 100) As Integer

Dim x(1 To 10

信息技术奥林匹克竞赛

VB程序设计的常用算法

算法（Algorithm）：计算机解题的基本思想方法和步骤。

算法的描述：是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述，包括需要什么数据（输入什么数据、输出什么结果）、采用什么结构、使用什么语句以及如何安排这些语句等。通常使用自然语言、结构化流程图、伪代码等来描述算法。

一、计数、求和、求阶乘等简单算法

此类问题都要使用循环，要注意根据问题确定循环变量

的初值、终值或结束条件，更要注意用来表示计数、和、阶乘的变量的初值。

例：用随机函数产生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过程中，代码如下：

Public Sub GetTJput()

Dim a(1 To 100) As Integer

Dim x(1 To 10