VB算法.docVIP

一、求最大公约数和最小公倍数 Private Sub Command1_Click() Dim m1%, n1%, n%, m%, t% m1 = Val(InputBox(输入一个数)) n1 = Val(InputBox(再输入一个数)) If m1 n1 Then m = m1: n = n1 Else m = n1: n = m1 End If i = m Mod n While i 0 m = n: n = i: i = m Mod n Wend Print 最大公约数; n t = m1 * n1 / n Print 最小公倍数是; t End Sub 二、求水仙话数 Private Sub Command1_Click() Dim a%, b%, c%, n%, i% For i = 100 To 999 a = i \ 100 b = i \ 10 Mod 10 c = i Mod 10 If i = a ^ 3 + b ^ 3 + c ^ 3 Then Print i; 是水仙话数 End If Next i End Sub 三、求素数 Private Sub Command1_Click() Dim x%, i% x = Val(InputBox(输入一个数)) If x 2 Then For i = 2 To x - 1 If x Mod i = 0 Then Exit For Next i If x = i Then Print x; 是素数 Else Print x; 不是素数 End If Else Print x; 不是素数 End If End Sub 四、输入5个数求最大最小值 Private Sub Command1_Click() Dim x%, i%, max%, min%, y% x = Val(InputBox(输入一个数)) max = x: min = x For i = 2 To 5 y = Val(InputBox(输入一个数)) If y max Then max = y If y min Then min = y Next i Print 最大值是; max, 最小值是; min End Sub 六、输出杨辉三角 Option Base 1 Private Sub Command1_Click() Cls Dim n%, i%, j%, a%() start: n = Val(InputBox(输入一个大于3的数)) If Not IsNumeric(n) Or n 3 Then MsgBox 输入错误, , 提示 GoTo start End If ReDim a(n, n) For i = 1 To n a(i, 1) = 1: a(i, i) = 1 Next i For i = 3 To n 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 n Print Tab(n - i + 1); For j = 1 To i Print a(i, j); Next j Print Next i End Sub 七、求10个[10，100]之间的随机整数并求其位置 Private Sub Command1_Click() Dim a%(1 To 10), i%, k%, max% Randomize For i = 1 To 10 a(i) = Int(Rnd * 91 + 10) Print a(i); Next i Print max = a(1): k = 1 For i = 2 To 10 If max a(i) Then max = a(i): k = i Next i Print 最大值是; max, 位置是; k End Sub 八、矩阵转置 Private Sub Command1_Click() Dim i%, j%, t%, a%(1 To 5, 1 To 5) For i = 1 To 5 For j = 1 To 5 a(i, j) = (i - 1) * 5 + j Next j Next i Print 转置之前 For i = 1 To 5 For j = 1 To 5 Print a(i, j); Next j Print Next i For i = 1 To 5 For j = 1 To i t = a(i, j): a(i, j) = a(j, i) a(j, i) = t Next j Next i Print 转置之后 For i = 1 To 5 For j = 1 To 5 Print a(i,