用vb的算法求和

通过对冒泡排序算法的分析,指出了其效率不高的缺陷,给出了三种优化的方法,它们能有效地提高排序算法的执行效率,并使用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算法设计对两 .邻数据的关键字，反序则进行交换，到没有反序为若直以上算法要注意的是 .每轮扫描都是从无序区自 止。在

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

篇一：Excel求和 Excel表格自动求和公式及批量求和

Excel求和 Excel表格自动求和公式及批量求和《图解》

时间:2012-07-09 来源:本站 阅读: 17383次 评论10条

许多朋友在制作一些数据表格的时候经常会用到公式运算，其中包括了将多个表格中的数据相加求和。求和是我们在Excel表格中使用比较频繁的一种运算公式，将两个表格中的数据相加得出结果，或者是批量将多个表格相加求得出数据结果。

Excel表格中将两个单元格相自动加求和

如下图所示，我们将A1单元格与B1单元格相加求和，将求和出来的结果显示在C1单元格中。

①首先，我们选中C1单元格，然后在“编辑栏”中输入“=A1+B1”，再按下键盘上的“回车键”。

相加求和出来的结果就会显示在“C1”单元格中。

Excel表格中将多行或多列批量求和方法

如下图所示，我们将A列中数据与B列中的数据相加求和，结果将显示在C列中。

①首先，我们需要将A1与B1两个单元格相加求和。选中C1单元格，在“编辑栏”中输入“=A1+B1”，然后回车。

②将光标移动到C1单元格右下方，直到光标变成黑色十字形时候，按下鼠标左键不放，拖动到最下方；

篇二：EXCEL表格中将计算式自动求和的方法

方法1.（wps表格）公

VB常用算法

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

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

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

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

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

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

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

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

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

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

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程序设计的常用算法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

本例以由拓扑关系的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

本例以由拓扑关系的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编写上位机实例

16:14:22 UTC+0800Sun Apr 1 2007 用VB6.0编写第一个串口通信上位机程序

Visual Basic6.0是一个可视化窗口环境的编程软件，目前使用Visual Basic6.0可以快速简单编写单片机中的串口通信上位机程序。 电子制作 HPOO

下面我们以一个完整的通信试验为例子完成如何用Visual Basic6.0编写单片机串口通信程序。

打开安装好后的Visual Basic6.0主程序界面。选择“标准EXE”。如图1显示，建立Visual Basic的编程环境。

图1

在菜单的[工程]选项中选择[部件]，如图2。把Visual Basic的串口通信控件Microsoft Comm control 6.0调入工作菜单。

图2

在打开[部件]对话框中，选择Microsoft Comm control 6.0的选项框，点击[确定]。图3

图3

可以在图示3中可以看通信控件Microsoft Comm control 6.0的文件是在C:\\WINNT\\system32\\MSCOMM32.OCX文件。

如果大家在首次调用通信控件Microsoft Comm