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

VB属性大全

1.01、窗体(FORM)的常用属性 1.01、窗体(FORM)的常用属性... 1.02、标签控件(Lable)的常用属性... 7 1.03、文本框控件(TextBox)的常用属性... 9 1.04、框架控件(Frame)的常用属性... 13

1.05、命令按钮控件(CommandButton)的常用属性... 15 1.06、复选框控件(CheckBox)的常用属性... 17 1.07、单选钮控件(OptionButton)的常用属性... 19 1.08、组合框控件(ComboBox)常用属性... 22 1.09、列表框控件(ListBox)的常用属性... 25

1.10、水平滚动条控件(HScrollBar)和垂直滚动条控件(VScrollBar)的常用属性... 28 1.11、定时器控件的常用属性... 30 1.12、文件系统控件的常用属性... 30 1.13、形状控件(Shape)常用属性... 33 1.14、直线控件(Ling)的常用属性... 35 1.15、图像控件(Image)的常用属性... 36

1.16、图片框控件(PictureBox)的常用属性... 38 1.17、数据控件(

VB属性大全

1.01、窗体(FORM)的常用属性 1.01、窗体(FORM)的常用属性... 1.02、标签控件(Lable)的常用属性... 7 1.03、文本框控件(TextBox)的常用属性... 9 1.04、框架控件(Frame)的常用属性... 13

1.05、命令按钮控件(CommandButton)的常用属性... 15 1.06、复选框控件(CheckBox)的常用属性... 17 1.07、单选钮控件(OptionButton)的常用属性... 19 1.08、组合框控件(ComboBox)常用属性... 22 1.09、列表框控件(ListBox)的常用属性... 25

1.10、水平滚动条控件(HScrollBar)和垂直滚动条控件(VScrollBar)的常用属性... 28 1.11、定时器控件的常用属性... 30 1.12、文件系统控件的常用属性... 30 1.13、形状控件(Shape)常用属性... 33 1.14、直线控件(Ling)的常用属性... 35 1.15、图像控件(Image)的常用属性... 36

1.16、图片框控件(PictureBox)的常用属性... 38 1.17、数据控件(

VB函数大全 Calendar 常数

可在代码中的任何地方用下列常数代替实际值： 常数 值 描述

vbCalGreg 0 指出使用的是阳历。

vbCalHijri 1 指出使用的是伊斯兰历法。

-------------------------------------------------------------------------------- Color 常数

可在代码中的任何地方用下列常数代替实际值： 常数 值 描述

vbBlack 0x0 黑色 vbRed 0xFF 红色

vbGreen 0xFF00 绿色 vbYellow 0xFFFF 黄色 vbBlue 0xFF0000 蓝色

vbMagenta 0xFF00FF 紫红色 vbCyan 0xFFFF00 青色 vbWhite 0xFFFFFF 白色

-------------------------------------------------------------------------------- Comparison常数

下列常数由 Visual Basic for Applications 中的类型库定义，可用来在代码中的任何地

VB函数大全基本函数大全

VB 函数大全基本函数大全Abs And Array Asc 函数 运算符 函数 函数 返回数的绝对值执行两个表达式的逻辑连接。 执行两个表达式的逻辑连接。

返回含一数组的 变体 返回字符串首字母的 ANSI 字 符代码

Atn CBool

函数 函数

返回数的反正切值 返回已被转换为 Boolean 子 类型的变体的表达式

CByte

函数

返回已被转换为字节子类型的 变体的表达式

CCur

函数

返回已被转换为货币子类型的 变体的表达式

CDate

函数

返回已被转换为日期子类型的 变体的表达式

CDbl

函数

返回已被转换为双精度子类型 的变体的表达式

Chr CInt

函数 函数

返回指定 ANSI 字符码的字符 返回已被转换为整数子类型的 变体的表达式

Class

对象

提供对已创建的类的事件的访

VB函数大全基本函数大全

问 Class Clear CLng 语句 方法 函数 声明类名 清除 Err 对象的所有属性设置 返回已被转换为 Long 子类型 的变体的表达式 Const Cos CreateObject 语句 函数 函数 声明用于字母值的常数。 声明用于字母值的常数。 返回角度的余弦值。 返回角度的余弦值。 创建并返回对“自动” 创建并返回对“

VB控件属性大全【珍藏版】

1.01、窗体(FORM)的常用属性

说明 属性 (Name) ActiveControl 窗体的名称 返回焦点所在的控件,该属性设计阶段不可用,运行时只读。 外观效果,取值为： Appearance 0 平面 1 3D(立体) 是否自动刷新或重画窗体上所有图形[获得或设置从绘图(graphics)方法到一AutoRedraw 个持久性位图的输出],取值为： True False BackColor 背景颜色,可从弹出的调色板选择。 设置边界类型,取值为： 0 None(无边界框架) 1 FixedSingle(窗口大小固定不变的单线框架) BorderStyle 2 Sizable(窗口大小可变的标准双线框架) 3 FixedDialog(窗口大小固定的对话框窗体) 4 FixedToolWindow(窗口大小固定的工具箱窗体) 5 Sizable ToolWindow(窗口大小可变的工具箱窗体) Caption 窗体的标题 决定Paint事件的graphics方法是重画整个对象,还是重画新显示的区域。取ClipControls 值为： True或False 是或有控制框, 取值为： ControlBox True

VB控件属性大全【珍藏版】

1.01、窗体(FORM)的常用属性

说明 属性 (Name) ActiveControl 窗体的名称 返回焦点所在的控件,该属性设计阶段不可用,运行时只读。 外观效果,取值为： Appearance 0 平面 1 3D(立体) 是否自动刷新或重画窗体上所有图形[获得或设置从绘图(graphics)方法到一AutoRedraw 个持久性位图的输出],取值为： True False BackColor 背景颜色,可从弹出的调色板选择。 设置边界类型,取值为： 0 None(无边界框架) 1 FixedSingle(窗口大小固定不变的单线框架) BorderStyle 2 Sizable(窗口大小可变的标准双线框架) 3 FixedDialog(窗口大小固定的对话框窗体) 4 FixedToolWindow(窗口大小固定的工具箱窗体) 5 Sizable ToolWindow(窗口大小可变的工具箱窗体) Caption 窗体的标题 决定Paint事件的graphics方法是重画整个对象,还是重画新显示的区域。取ClipControls 值为： True或False 是或有控制框, 取值为： ControlBox True

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