VB常见算法.docVIP

1．累加与连乘 基本思想：设置初值，循环计算。 扩展：(1)计算指定范围内某一个数的倍数之和。 计算某范围内所有数的乘积。 求某一个数列的和。 2．生成N个不同的随机数 基本思想：将生成的数送入一个数组，每生成一个数后与数组中已有的数比较，如相同则丢弃，重新生成可使用语句Exit For。 Private Sub Command1_Click() Dim a(10) As Integer, n As Integer Dim i As Integer, k As Integer Randomize a(1) = Int(Rnd * 90) + 10 k = 1 Do n = Int(Rnd * 90) + 10 For i = 1 To 10 If a(i) = n Then Exit For Next i If i 10 Then k = k + 1 a(k) = n End If Loop While k 10 For i = 1 To 10 Text1 = Text1 Str(a(i)) Next i End Sub 3．求素数、极值 求素数基本思想：素数的意义；实现方法：双重循环，外循环判断每一个数，内循环判断能否被某数整除。 Private Sub Command1_Click() N = Val(Text1.Text): K = Int(Sqr(N)): I = 2 Do While I = K If N Mod I 0 Then I = I + 1 不能整除，ID的值累加1 Else Exit Do 整除，退出循环 End If Loop If I = K + 1 Then Label2.Caption = 是素数 Else Label2.Caption = 不是素数 End If End Sub 求极值基本思想：设第一个数为极值数，然后进入循环与其比较，超过则替换。 Dim a(1 To 20) As Integer Private Sub Command1_Click() Text1.Text = Randomize For i = 1 To 20 a(i) = Int(Rnd * 101) Text1.Text = Text1.Text Str(a(i)) Next i End Sub Private Sub Command2_Click() Max = a(1) For i = 2 To 20 If a(i) Max Then Max = a(i) End If Next i Text2.Text = Max End Sub 4．排序 1．选择法排序（升序） 基本思想： 1）对有n个数的序列（存放在数组a(n)中），从中选出最小的数，与第1个数交换位置； 2）除第1 个数外，其余n-1个数中选最小的数，与第2个数交换位置； 3）依次类推，选择了n-1次后，这个数列已按升序排列。 程序代码如下： For i = 1 To n - 1 imin = i For j = i + 1 To n If a(imin) a(j) Then imin = j Next j temp = a(i) a(i) = a(imin) a(imin) = temp Next I 2．冒泡法排序（升序） 基本思想：(将相邻两个数比较，小的调到前头) 1）有n个数（存放在数组a(n)中），第一趟将每相邻两个数比较，小的调到前头，经n-1次两两相邻比较后，最大的数已“沉底”，放在最后一个位置，小数上升“浮起”； 2）第二趟对余下的n-1个数（最大的数已“沉底”）按上法比较，经n-2次两两相邻比较后得次大的数； 3）依次类推，n个数共进行n-1趟比较，在第j趟中要进行n-j次两两比较。 程序段如下 For i = 1 To n - 1 For j = 1 To n-i If a(j) a(j+1) Then temp=a(j)： a(j)=