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
希望對你有幫助！