《VB常见算法.docVIP

1．累加与连乘 基本思想：设置初值，循环计算。 扩展：(1)计算指定范围内某一个数的倍数之和。 vb编程，求从100~1000之间所有是3的倍数的数之和，当和大于3000时停止计算输出和，用for...next语句 For i = 100 To 1000 If i Mod 3 = 0 Then s = s + i If s 3000 Then Exit For End If Next i Print s 计算某范围内所有数的乘积。 用vb编写一段程序，计算 1-50所有奇数的乘积 dim prod as double dim i as integer prod=1 for i=1 to 50 step 2 prod=prod*i next print prod 求某一个数列的和。 本程序的功能是求下面数列前n项之和。1.求分数序列，……，单击窗体显示数列前20项的和 Private Sub Form_Click() a = 2 b = 1 s = 0 For i = 1 To 20 s = s + a / b c = a a = a + b b = c Next i print 和为: s End Sub 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