vb 判一个数是不是完数.docVIP

判断一个数是不是完数 Private Sub Command1_Click() Dim m As Integer, i As Integer, j As Integer, sum As Integer Dim a() As Integer m = Text1.Text For i = 1 To m - 1 If m Mod i = 0 Then sum = sum + i j = j + 1 ReDim Preserve a(i) As Integer a(i) = i End If Next i If m = sum Then Picture1.Print m 是完数，因为 Picture1.Print m; =; For i = 1 To UBound(a) - 1 Picture1.Print a(i); +; Next i Picture1.Print a(i) Else Picture1.Print m 不是完数 End If End Sub Private Sub Command2_Click() Picture1.Cls Text1.Text = Text1.SetFocus End Sub Private Sub Command3_Click() End End Sub 选择排序法 Option Explicit Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer, t As Integer Dim i As Integer, j As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 100) + 1 Text1 = Text1 Str(a(i)) Next i For i = 1 To 9 For j = i + 1 To 10 If a(i) a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Text2 = Text2 Str(a(i)) Next i Text2 = Text2 Str(a(i)) End Sub 冒泡排序法 Private Sub Form_Click() Dim a(5) As Double Dim i, j As Integer 给数组赋值 For i = 1 To 5 temp = InputBox( 请输入 + Str(i) + 个数字, 输入) If IsNumeric(temp) Then 是数字就将数字赋值给数组 a(i) = temp Else 不是数字就将数组置0 a(i) = 0 End If Next i 排序 For i = 1 To 4 For j = 1 To 5 - i If a(j) a(j + 1) Then temp = a(j) a(j) = a(j + 1) a(j + 1) = temp End If Next j Next i Print Str(a(1)) + , + Str(a(2)) + , + Str(a(3)) + , + Str(a(4)) + , + Str(a(5)) End Sub 判断一个数是不是素数 Private Sub Form_Click() Dim i As Integer Dim j As Integer Dim x As Integer x = Val(InputBox(请输入一个自然数：, 输入提示)) For i = 2 To x - 1 If x Mod i = 0 Then Exit For Next i If i = x Then 此处若i的值变为x则说明所以上面的循环全被执行完 Print x 是素数 Else Print x 不是素数 若ix则说明循环的中途x就能被除尽了 End If End Sub 求水仙花数 Private Sub Form_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer, st As String For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 i = a * 100 + b * 10 + c If i = a ^ 3 + b ^ 3 + c