VB冒泡排序算法

Option Base 1

Private Sub Command1_Click()

Dim a

Dim b As Integer

Dim i As Integer

Dim j As Integer

a = Array(6, 3, 7, 8, 2, 1)

Print "排序前为";

For i = 1 To 6

Print a(i);

Next i

For i = 1 To 5

For j = 1 To 6 - i

If a(j) > a(j + 1) Then

b = a(j + 1)

a(j + 1) = a(j)

a(j) = b

End If

Next j

Next i

Print

Print "排序后为";

For i = 1 To 6

Print a(i);

Next i

End Sub

Dim s As Long

s = 1

For i = 1 To 10 Step 1

s = s i

Next i

Print s

已经验证过了没问题~~~

LZ 加油啊~

首先程序定义两个字符串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对应的那个掩码字母。

图在哪里哦？不过你按照图设计窗体就可以拉

Rem 创建窗体，在上面放Command1、Command2、Command3三个按钮，一个Text1文本框，文本框的MultiLine属性设置为True，ScrollBars设置为2

Rem 0也是平方数哈

Private Sub Command1_Click()

Dim i%, j%, k%, flag As Boolean

Text1Text = ""

k = 0

For i = 0 To 50

flag = False

For j = 0 To i

If IsPf(j) And IsPf(i - j) Then flag = True: Exit For

Next

If flag = False Then

k = k + 1

Text1Text = Text1Text & " " & i

If k Mod 5 = 0 Then Text1Text = Text1Text & vbCrLf

End If

Next

Command2Enabled = True

End Sub

Private Sub Command2_Click()

Text1Text = ""

Command3Enabled = True

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

Command1Caption = "开始"

Command2Caption = "清除"

Command3Caption = "退出"

Command2Enabled = False

Command3Enabled = False

End Sub

Private Function IsPf(ByVal n As Integer) As Boolean

If n = Int(Sqr(n)) Int(Sqr(n)) Then IsPf = True Else IsPf = False

End Function

快速从一个大数据集中找出某个字段等于确定值的记录。

vb内部排序7大算法：1、冒泡排序2、直接选择排序(StraightSelectSort)（BubbleSort）3、直接插入排序(StraightInsertionSort)4、希尔排序(ShellSort)5、快速排序(QuickSort)6、归并排序(MergeSort)7、堆排序(HeapSort)。

索引是一种利用某种规则的数据结构与实际数据的关系加快数据查找的功能；索引数据节点中有着实际文件的位置，因为索引是根据特定的规则和算法构建的,在查找的时候遵循索引的规则可以快速查找到对应数据的节点，从而达到快速查找数据的效果；其实宏观来说索引其实是一种概念而不是具体的某项技术，只是我们在某个技术中运用得比较广泛和鲜明（比如说数据库）渐渐的有了特定领域的标签，其实在生活中索引的使用无处不在，比如说：书本里的目录；读书时的座位号，考试编号都有类似索引的功能。

对于函数z(a),当a=1时，即z(1)=x,z(2)=y,在本例中a=5,则

z(5)=z(3)+z(4)

z(3)=z(1)+z(2)=x+y;

z(4)=z(2)+z(3)=y+z(3)=y+x+y

所以z(5)=(x+y)+(y+x+y)=2x+3y=13

递归调用的原理就是递推，知道函数的参数满足z=x或者z=y为止，也就是知道满足参数等于1或者等于2为止。

不知道这样回答能让你理解吗，有问题的话百度Hi我吧，呵呵

以上就是关于VB冒泡排序算法全部的内容，包括:VB冒泡排序算法、用VB求1到10的阶乘 递归算法 越简单越好、VB加密算法等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！