vb程序算法

㈠ 索引排序vb算法原理

快速从一个大数据集中找出某个字段等于确定值的记录。
vb内部排序7大算法：1、冒泡排序2、直接选择排序(StraightSelectSort)（BubbleSort）3、直接插入排序(StraightInsertionSort)4、希尔排序(ShellSort)5、快速排序(QuickSort)6、归并排序(MergeSort)7、堆排序(HeapSort)。
索引是一种利用某种规则的数据结构与实际数据的关系加快数据查找的功能；索引数据节点中有着实际文件的位置，因为索引是根据特定的规则和算法构建的,在查找的时候遵循索引的规则可以快速查找到对应数据的节点，从而达到快速查找数据的效果；其实宏观来说索引其实是一种概念而不是具体的某项技术，只是我们在某个技术中运用得比较广泛和鲜明（比如说数据库）渐渐的有了特定领域的标签，其实在生活中索引的使用无处不在，比如说：书本里的目录；读书时的座位号，考试编号都有类似索引的功能。

㈡ VB加密算法

首先程序定义两个字符串k1和k2；
这里他给出了一个Text1变量，应该是一个全局变量，在程序之前已经定义了。
首先定义code为一个字符串，将Text1里面的文字用LCase()函数将大写字母转换成小写字母。
加密的过程开始，为那一个循环过程。
在这个循环里 设定i的区间是1到code的长度
每个循环开始时候，将code中每一个字母取出来，赋值到s变量里面。
然后判断如果s不是空字符时候，将n赋值为s中的字母与字母a的一个"距离"(这里说不知道你明白不，你好好理解一下吧)。
假如i，即s里面的那个字母在code中是第几位的位数，不是2的倍数，那么就将在decode里面加入k1字符串中的第n个字母。假如i是2的倍数的话，就在decode加入k2字符串里面的第n个字母。

在刚才判断s是否为空字符时候，假如得到的s是为空字符，即跳入以下过程、。
假如i不是2的倍数，空格那个字母变为k1的第27个字母即p，就加入k2的第27个字母即z。

最后将decode赋值给text2。

其实这个程序很简单，定义两个字符串，分别是27个字母，等于是26个字母加空格，再把顺序掉乱。然后根据需要加密的字符串来分别去每一个字母，根据字母的位置来确定取k1或者k2对应的那个掩码字母。

㈢ 大学计算机VB用数组编程计算器的程序算法

1、在窗体上摆一个command1,然后在窗体上复制粘贴command，直到你需要的按钮数。

2、在窗体上摆一个label1

3、按钮名和标签名按以下程序中用的名称修改。

'------------------------------------------------------------------------
'版权所有(C)1994MicrosoftCorporation
'
'您可以免费以任何方式使用、修改、复制并分发您认为有用的
'示例应用程序文件(或任何修改过的版本)。Microsoft对任何
'示例应用程序文件不做任何保证，不负任何责任和义务。
'------------------------------------------------------------------------
OptionExplicit
DimOp1,Op2'预先输入操作数。
DimDecimalFlagAsInteger'小数点存在吗？
DimNumOpsAsInteger'操作数个数。
DimLastInput'指示上一次按键事件的类型。
DimOpFlag'指示未完成的操作。
DimTempReadout

'C(取消)按钮的Click事件过程
'重新设置显示并初始化变量。
PrivateSubCancel_Click()
Readout=Format(0,"0.")
Op1=0
Op2=0
Form_Load
EndSub

'CE(取消输入)按钮的Click事件过程。
PrivateSubCancelEntry_Click()
Readout=Format(0,"0.")
DecimalFlag=False
LastInput="CE"
EndSub

'小数点(.)按钮的Click事件过程
'如果上一次按键为运算符，初始化readout为"0."；
'否则显示时追加一个小数点。
PrivateSubDecimal_Click()
IfLastInput="NEG"Then
Readout=Format(0,"-0.")
ElseIfLastInput<>"NUMS"Then
Readout=Format(0,"0.")
EndIf
DecimalFlag=True
LastInput="NUMS"
EndSub

'窗体的初始化过程
'设置所有变量为其初始值。
PrivateSubForm_Load()
DecimalFlag=False
NumOps=0
LastInput="NONE"
OpFlag=""
Readout=Format(0,"0.")
'Decimal.Caption=Format(0,".")
EndSub

'数字键(0-9)的Click事件过程
'向显示中的数追加新数。
PrivateSubNumber_Click(IndexAsInteger)
IfLastInput<>"NUMS"Then
Readout=Format(0,".")
DecimalFlag=False
EndIf
IfDecimalFlagThen
Readout=Readout+Number(Index).Caption
Else
Readout=Left(Readout,InStr(Readout,Format(0,"."))-1)+Number(Index).Caption+Format(0,".")
EndIf
IfLastInput="NEG"ThenReadout="-"&Readout
LastInput="NUMS"
EndSub

'运算符(+,-,x,/,=)的Click事件过程
'如果接下来的按键是数字键，增加NumOps。
'如果有一个操作数，则设置Op1。
'如果有两个操作数，则将Op1设置为Op1与
'当前输入字符串的运算结果，并显示结果。
PrivateSubOperator_Click(IndexAsInteger)
TempReadout=Readout
IfLastInput="NUMS"Then
NumOps=NumOps+1
EndIf
SelectCaseNumOps
Case0
IfOperator(Index).Caption="-"AndLastInput<>"NEG"Then
Readout="-"&Readout
LastInput="NEG"
EndIf
Case1
Op1=Readout
IfOperator(Index).Caption="-"AndLastInput<>"NUMS"AndOpFlag<>"="Then
Readout="-"
LastInput="NEG"
EndIf
Case2
Op2=TempReadout
SelectCaseOpFlag
Case"+"
Op1=CDbl(Op1)+CDbl(Op2)
Case"-"
Op1=CDbl(Op1)-CDbl(Op2)
Case"X"
Op1=CDbl(Op1)*CDbl(Op2)
Case"/"
IfOp2=0Then
MsgBox"除数不能为零",48,"计算器"
Else
Op1=CDbl(Op1)/CDbl(Op2)
EndIf
Case"="
Op1=CDbl(Op2)
Case"%"
Op1=CDbl(Op1)*CDbl(Op2)
EndSelect
Readout=Op1
NumOps=1
EndSelect
IfLastInput<>"NEG"Then
LastInput="OPS"
OpFlag=Operator(Index).Caption
EndIf
EndSub

'百分比键(%)的Click事件过程
'计算并显示第一个操作数的百分数。
PrivateSubPercent_Click()
Readout=Readout/100
LastInput="Ops"
OpFlag="%"
NumOps=NumOps+1
DecimalFlag=True
EndSub

㈣ VB 什么是算法

VB不是算法，是一种编程开发环境，指Visual Basic，Basic是编程语言;另外，VB也指维生素B

㈤ vb里的算法到底有什么用

算法有什么用？算法是一个广义概念，没有“VB 里的算法”这种概念。

所谓算法，即是一个计算的具体步骤，常用于计算、数据处理和自动推理。精确而言，算法是一个表示为有限长列表的有效方法。算法应包含清晰定义的指令用于计算函数 。包含五要素：有穷性、确切性、输入项、输出项、可行性。

举个例子：

比如我要求得某个数的最大公约数，运算规则无非就三种：算术运算（加减乘除等）、逻辑运算（或、且、非等）、关系运算（大于、小于、等于、不等于等），单单用这三种哪一种也是求不出来最大公约数的，这个时候就需要算法了，最常用的就是欧几里得辗转相除法了：设两数为a、b(a>b），求a和b最大公约数(a，b）的步骤如下：用b除a，得a÷b=q......r1(0≤r1）。若r1=0，则（a，b)=b；若r1≠0，则再用r1除b，得b÷r1=q......r2
(0≤r2）.若r2=0，则（a，b)=r1，若r2≠0，则继续用r2除r1，……如此下去，直到能整除为止。其最后一个非零除数即为（a，b）。

这就是算法，当然这是数学语言，转换成计算机语言（例如 VB）就需要一系列代码来实现了，但功能是一致的。

至于常量的问题，这个更好解释，计算机语言中的常量跟数学中的常量是一模一样的。

比如数学中规定π是一个常量，代表圆周率，值是 3.1415926......，那么在数学运算中（比如计算圆的周长），假如出现了π，我们就知道它代表 3.1415926......了。

VB 中同理，定义 a 是代表某个数据的常量，那么下次再出现 a 的时候，我们就知道它其实就代表这个数据。例子：

ConstPI=3.1415926'定义PI是一个常量，赋值为3.1415926
Dimr=Val(InputBox("请输入圆的半径："))
Msgbox("这个圆的周长为："&2*PI*r)

㈥ VB代码算法!

是 do while I<=10 .....loop 你用错了一个关键字

实际上，这个循环一直到 I > 10 之后才退出，另外没明白你的判断I=10是否成立，如果要判断加个判断语句不就可以了
if i=10 then ....

这三种算法都是一个条件循环，

一个是 do while [条件].....loop

一个是 do .....loop while [条件]

一个是 do .....loop until [条件]

至于他们有什么不一样，你可以装份VB,然后把它们考到你的代码里面逐步运行看看
再有问题加QQ问我 3855555

㈦ VB简单算法

Option Explicit

Private Sub Command1_Click()
Dim r As Integer, n As Integer
Dim strBin As String
strBin = ""
n = Val(Text1)
Do
r = n Mod 2
strBin = r & strBin '十进制转二进制
n = n \ 2
Loop While n <> 0
MsgBox strBin
End Sub

Private Sub Command2_Click()
Dim i As Integer
Dim numDec As Long
For i = 1 To Len(Text1) '二进制转十进制
If Mid(Text1, i, 1) <> "0" And Mid(Text1, i, 1) <> "1" Then MsgBox "不是二进制数值": Exit Sub
Next
numDec = 0
For i = 1 To Len(Text1)
numDec = numDec + Val(Mid(Text1, i, 1)) * 2 ^ (Len(Text1) - i)
Next
MsgBox numDec
End Sub

基础代码，通俗易懂，哈哈！！

㈧ VB算法具有 什么 5个重要特征

（1）确定性：指算法的每个步骤都应确切无误，没有歧义。
（2）可行性：指算法的每个步骤必须是计算机能够有效执行、可以实现的，并可得到确定的结果。
（3）有穷性：指一个算法应该在有限的时间和步骤内可以执行完毕的。
（4）输入性：指一个算法可以有0或多个输入数据。
（5）输出性：指一个算法必须有一个或多个输出结果。

㈨ vb三种基本排序算法

三种基本排序算法（与哪种编程语言无关）：
冒泡排序算法、选择排序算法、插入排序算法

㈩ vb编程思路

思路基于数学中关于素数的定义：
素数首先是自然数，其次该自然数只能被1和自身整除，满足这样的自然数叫做素数。1不是素数，2是最小的素数。
根据定义，假设输入一个任意自然数n，那么就采用循环，从2开始，一直到n-1，把这些数一一去除n,当所有这些数都不能整除n，那么n是素数；只要其中有一个数能整除n，那么n就不是素数。
下面是伪代码；
输入 n
For i = 2 To n-1
If n Mod i =0 Then
exit for
end If
next i
If i > n -1 then
输出 "是素数"
else
输出 "不是素数"

end if
希望对你有帮助！