《VB基本算法.docVIP

1、判断一个数是不是素数 Private Sub Form_Click() num = Val(InputBox(请输入整数num)) For i = 2 To num-1 If num Mod i = 0 Then Print 整数; num; 不是素数 Exit For End If Next i If i num-1 Then Print 整数; num; 是素数 End Sub 2、1~100内素数之和 Private Sub Form_Click() Dim sum% sum = 0 For i = 2 To 100 For j = 2 To i - 1 If i Mod j = 0 Then Exit For End If Next j If j i - 1 Then sum = sum + i: Print i Next i Print 100以内的素数之和为：; sum End Sub 3、杨辉三角 Option Base 1 Private Sub Form_Click() Dim a(10, 10) For i = 1 To 10 a(i, 1) = 1 a(i, i) = 1 Next i For i = 3 To 10 For j = 2 To i - 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j Next i For i = 1 To 10 For j = 1 To i Print a(i, j); ; Next j Print Next i End Sub 4、求数列精确到最后一项的绝对值小于0.0001 Private Sub Form_Click() Dim a!, sn! n% = 1 Do a = 1 / (2 * n - 1) a = a * (-1) ^ (n - 1) sn = sn + a n = n + 1 Loop Until Abs(a) 0.0001 sn = sn * 4 Print sn End Sub 5、数组输入输出 Option Base 1 Dim a() Private Sub Form_Click() n% = Val(InputBox(请输入第一维的上界)) m% = Val(InputBox(请输入第二维的上界)) ReDim a(n, m) Randomize For i = 1 To n For j = 1 To m a(i, j) = Int(Rnd * 100) 或者 a(i,j) = Val(InputBox(请输入数组元素)) Next j Next i For i = 1 To n For j = 1 To m Print a(i, j); ; Next j Print Next i End Sub 6、数组的转置 Private Sub Form_Click() Dim a%(3, 4), b%(4, 3) Print 转置前： For i = 1 To 3 For j = 1 To 4 a(i, j) = Int(Rnd * 100) 或者 a(i,j) = Val(InputBox(请输入数组元素)) Print a(i, j); ; Next j Print Next i For i = 1 To 4 For j = 1 To 3 b(i, j) = a(j, i) Next j Next i Print Print 转置后： For i = 1 To 4 For j = 1 To 3 Print b(i, j); ; Next j Print Next i End Sub 7、数组的插入 Option Base 1 Dim a() Private Sub Form_Click() n% = Val(InputBox(请输入第一维的上界)) ReDim a(n) Print 插入前： For i = 1 To n a(i) = Int(Rnd * 100) 或者 a(i,j) = Val(InputBox(请输入数组元素)) Print a