高中vb算法

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

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

本例以由拓扑关系的arc/info 文件为数据源。其中a1,b1,c1是以fnode排序生成的数组，a1对应fnode,b1对应tnode,c1对应length,同样a2,b2,c2,是以tnode 生成的数组。Indexa1是对应某一起点

与其相连的终点的个数，indexb1时对应某一终点与其相连的起点的个数，即其拓扑关系。

Public Function shortpath(startno As Integer, endno As Integer) As Single

以开始点，结束点为参数。 Dim result() As Single Dim result1 As Integer

定义结果点 Dim s1 As Single Dim min As Single Dim ii, I, j, aa As Integer Dim yc() As Boolean Dim ycd() As Boolean Dim rs1() As Single Dim no() As Integer Dim nopoint As Integer ReDim yc(1 To maxno) As Boolean ReDim ycd(1 To maxno) As Bo

VB常用算法

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

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

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

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

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

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

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

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

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

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

本例以由拓扑关系的arc/info 文件为数据源。其中a1,b1,c1是以fnode排序生成的数组，a1对应fnode,b1对应tnode,c1对应length,同样a2,b2,c2,是以tnode 生成的数组。Indexa1是对应某一起点

与其相连的终点的个数，indexb1时对应某一终点与其相连的起点的个数，即其拓扑关系。

Public Function shortpath(startno As Integer, endno As Integer) As Single

以开始点，结束点为参数。 Dim result() As Single Dim result1 As Integer

定义结果点 Dim s1 As Single Dim min As Single Dim ii, I, j, aa As Integer Dim yc() As Boolean Dim ycd() As Boolean Dim rs1() As Single Dim no() As Integer Dim nopoint As Integer ReDim yc(1 To maxno) As Boolean ReDim ycd(1 To maxno) As Bo

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-1节 计算机解决问题的过程

一、 教学目标

1、 知识与技能

（1） 让学生了解算法、穷举法、程序设计语言、编写程序和调试程序等概念。

（2） 让学生知道对现实问题的自然语言的描述，特别是类似程序设计语言的自然语言描述。 （3） 让学生理解分析问题、设计算法、编写程序、调试程序这一用计算机解决问题的基本步骤，

认识其在算法与程序设计中的作用。

2、 方法与过程

（1） 培养学生发现旧知识的规律、方法和步骤，并把它运用到新知识中去的能力。 （2） 培养学生调试程序的能力。

（3） 培养学生合作、讨论、观摩、交流和自主学习的能力。 3、 情感态度和价值观

通过“韩信点兵”这个富有生动情节的实例和探究、讲授、观摩、交流等环节，让学生体验

用计算机解决问题的基本过程。

二、 重点难点

本节的重点用计算解决问题的过程中的分析问题、设计算法、和上机调试程序等步骤。用计算机解决问题的过程中的分析问题、设计算法也是本节的难点。 三、 教学环境

1、 教材处理

教学内容选用中华人民共和国教育部制订的《普

通过对冒泡排序算法的分析,指出了其效率不高的缺陷,给出了三种优化的方法,它们能有效地提高排序算法的执行效率,并使用Visual Basic算法语言编程实现了这三种改进方法。

7 0

福

建电

脑

2 1年第 3期 01

用V B实现的冒泡排序法的分析与优化算刘模群(常州工学院计算机信息工程学院江苏常州 2 3 0 10 2)【摘要】通过对冒泡排序算法的分析，出了其效率不高的缺陷，出了三种优化的方法，:指给它们能有效地提高排序算法的执行效率 .并使用 V sa B s i l ac算法语言编程实现了这三种改进方法。 u i

【键词】冒泡排序；法分析；化关：算优1问题的提出、

( )此类推……, 4依在第 i的比较中，经过 n i轮要—排序是计算机科学中的一项复杂而重要的技术 .次相邻的两两比较，找出第 i的元素； 大 n个元素一共

其功能是对一个数据元素集合或序列重新排列成一个经过 n 1轮扫描，一最后剩下一个元素已在其正确位置， 按关键字有序的序列。冒泡排序是比较典型且常用的扫描区域最终为有序区排序算法。其基本思想是：于无序序列。两比较相 22算法设计对两 .邻数据的关键字，反序则进行交换，到没有反序为若直以上算法要注意的是 .每轮扫描都是从无序区自 止。在

精选文档

.

算法与程序设计

VB 知识点 一、数据类型 Integer 整型 Long 长整型

Single 单精度实型 Double 双精度实型 String 字符型 二、常量与变量 1、常量的定义

Const 常量名 as 类型=表达式 2、变量的定义

Dim 变量名 as 类型 三、运算符 1、 算术运算符

+ - * / ^ \ mod 2、 字符运算符

& +

3、 关系运算符

>, >= , < , <= , <> , = 4、逻辑运算符 And not or 四、函数 1、 sin(x) 2、 cos(x) 3、 fix(x) 4、 int(x) 5、 sqr(x) 6、 abs(x) 五、赋值语句 格式：

变量=表达式 六、输入语句

变量=inputbox(“ “，“ “) 七、输出语句 Print 内容 八、条件语句

1、If 条件 then 语句

2、If 条件 then 语句1 else 语句2 或者：

1、 If 条件 then 语句

End if

2、 If 条件 then 语句1 Else

语句2 End if