vb 判断一个数是不是完数.doc

1、 判断一个数是不是完数Private Sub Command1_Click()Dim m As Integer, i As Integer, j As Integer, sum As IntegerDim a() As Integerm = Text1.TextFor i = 1 To m - 1If m Mod i = 0 Thensum = sum + ij = j + 1ReDim Preserve a(i) As Integera(i) = iEnd IfNext iIf m = sum ThenPicture1.Print m & 是完数，因为Picture1.Print m; =;For i = 1 To UBound(a) - 1Picture1.Print a(i); +;Next iPicture1.Print a(i)ElsePicture1.Print m & 不是完数End IfEnd SubPrivate Sub Command2_Click()Picture1.ClsText1.Text = Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Sub2、 选择排序法Option ExplicitOption Base 1Private Sub Command1_Click()Dim a(10) As Integer, t As IntegerDim i As Integer, j As IntegerRandomizeFor i = 1 To 10a(i) = Int(Rnd * 100) + 1Text1 = Text1 & Str(a(i)Next iFor i = 1 To 9For j = i + 1 To 10If a(i) a(j) Thent = a(i)a(i) = a(j)a(j) = tEnd IfNext jText2 = Text2 & Str(a(i)Next iText2 = Text2 & Str(a(i)End Sub3、 冒泡排序法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 Sub4、 判断一个数是不是素数Private Sub Form_Click()Dim i As IntegerDim j As IntegerDim x As Integerx = Val(InputBox(请输入一个自然数：, 输入提示)For i = 2 To x - 1If x Mod i = 0 Then Exit ForNext iIf i = x Then 此处若i的值变为x则说明所以上面的循环全被执行完Print x & 是素数ElsePrint x & 不是素数 若ix则说明循环的中途x就能被除尽了End IfEnd Sub5、 求水仙花数Private Sub Form_Click()Dim i As Integer, a As Integer, b As Integer, c As Integer, st As StringFor 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 3 Then st = i & = & a & 3 + & b & 3 + & c & 3 Print st End If Next c Next bNext aEnd Sub6、 显示系统时间Private Sub Form_Load()Dim s As String, n As Integern = Weekday(Now, 2)If n = 7 Thens = 日ElseIf n = 6 Then s = 六ElseIf n = 5 Then s = 五ElseIf n = 4 Then s = 四ElseIf n = 3 Then s = 三ElseIf n = 2 Then s = 二 ElseIf n = 1 Then s = 一 End If Label1.Caption = 今天是 & Year(Now) & 年 & Month(Now) & 月 & Day(Now) & 日 & 星期 & s Label2.Caption = Time()End Sub7、 求三个数的最小公倍数Option ExplicitPrivate Sub Command1_Click()Dim a As Integer, b As IntegerDim l As Long, c As Integera = Text1b = Text2c = Text3l = lcm(lcm(a, b), c)Text4 = lEnd SubPrivate Function lcm(ByVal x As Integer, ByVal y As Integer)Dim m As Long, flg As Booleanflg = FalseDo Until flgm = m + xIf m Mod y = 0 Thenflg = TrueEnd IfLooplcm = mEnd Function8、求三个数的最大公约数Private Function maxgongyueshu(a, b)Dim min, max, i As LongIf a 20 Then p = p - 20 n = n + a(p) Next j If n max Then max = n w = i End If Next i Text2 = max Picture1.Print w & - & w + 4End SubPrivate Sub Command3_Click() Text1 = End SubPrivate Sub Command4_Click() EndEnd Sub12、求一个随机数组每一行每一列的和 6-5Dim a(5, 5) As IntegerPrivate Sub Command1_Click() For i = 1 To 4 For j = 1 To 5 a(i, j) = Int(9 * Rnd) + 1 Picture1.Print a(i, j); Next j Picture1.Print Next iEnd SubPrivate Sub Command2_Click() For j = 1 To 5 s = 0 For i = 1 To 4 s = s + a(i, j) Next i Text1 = Text1 & Str(s) Next jEnd SubPrivate Sub Command3_Click() For i = 1 To 4 s = 0 For j = 1 To 5 s = s + a(i, j) Next j Text2 = Text2 & Str(s) & Chr(13) & Chr(10) Next iEnd SubPrivate Sub Command4_Click() Text1 = Text2 = Picture1.ClsEnd SubPrivate Sub Command5_Click() EndEnd Sub13、统计字母个数 p113Option ExplicitPrivate Sub Command1_Click()Dim st As String, t As IntegerDim a(0 To 25) As IntegerDim i As Integer, js As IntegerDim ch As String * 1, l As Integerst = Text1.Textl = Len(st)For i = 1 To lch = Mid(st, i, 1)If ch = A And ch = a And ch = z Thent = Asc(ch) - Asc(a)a(t) = a(t) + 1End IfNext iFor i = 0 To 25If a(i) 0 Thenjs = js + 1Text2 = Text2 & Chr(i + Asc(A) & : & Str(a(i) & End ifIf js Mod 5 = 0 ThenText2 = Text2 & Chr(13) & Chr(10)End IfNext iEnd Sub14、求阶乘Private Sub Command1_Click() n = InputBox(输入自然数, 输入) JieCheng n If n 1 Then For j = n To 2 Step -1 Print j & *; Next j End If Print 1=; Print JieCheng(n)End SubPrivate Function JieCheng(ByVal i&) As Long If i 1 Then JieCheng = i * JieCheng(i - 1) Else JieCheng = 1 End IfEnd Function15、找出最长单词Private Sub Command1_Click()Print lon