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. 编写VB程序完成计算F?1?111??的值。 4!7!10!2. 根据以下迭代公式编写VB程序求?的近似值。

3. 角谷猜想。对任意一个大于1的正整数n，进行如下运算：若n是奇数时，n的值替换

为3n+1，若n是偶数时，n的值替换为n/2；重复以上运算，n最终变为1。编写一个VB程序输出验算过程。

枚举算法练习题

1.“玫瑰花数”是指一个4位整数，其各个位数字的4次方和恰好等于该数本身，例如，1634

4444是一玫瑰花数， 1634?1?6?3?4。编写VB程序输出所有的玫瑰花数。

2.孔雀开屏数。如果一个n位整数k的各位数字之和的n次幂等于k本身，则这个数k称为孔雀开屏数。如三位数512=(5+1+2)，512就是一个三位的孔雀开屏数。编写VB程序输出二～五位数中的所有孔雀开屏数。

3

3. 孪生素数。孪生素数是指两个相邻奇数且都是素数，如3，5；11、13；它们是最近的素

数，就像孪生兄弟一样。输出100以内的所有孪生素数。

4. 方程x+y+z=n有几组正整数解？

（提高篇）方程x+y+z≤n有几组正整数解？

VB打开EXCEL的方法 一楼的没有指明

Dim xlBook As Excel.WorkBook

Set xlBook = App.Workbooks.Open(\文件名\ 这种语法同样要求excel已经存在才能操作。 Public xlApp As Excel.Application Public xlBook As Excel.Workbook Public xlChar As New Excel.Chart

Public xlSheet As New Excel.Worksheet Set xlApp = New Excel.Application

Set xlApp = CreateObject(\Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets.Add xlSheet.Cells(1, 1) = \测试\'写入内容 xlBook.SaveAs (\'保存文件 xlApp.Quit

Set xlApp = Nothing

本方法采用add添加excel文件和datasheet，然后用save保存。如果用xlApp.Visible=False，则自动生成文

1-1节 计算机解决问题的过程

一、 教学目标

1、 知识与技能

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

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

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

2、 方法与过程

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

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

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

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

二、 重点难点

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

1、 教材处理

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