inlarge = insmall insmall = inrem
inrem = inlarge Mod insmall End While
MsgBox（insmall） End Sub
8. 从三位奇数中找出其值恰好等于该数每位数字立方和的各个数之和。
（结果：931）
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, m, n, k As Integer Dim s As integer s = 0
For i = 101 To 999 Step 2 m = i \\ 100
n = (i Mod 100) \\ 10 k = i Mod 10
If (i = m * m * m + n * n * n + k * k * k) Then s = s + i End If Next
MsgBox(s) End Sub
9. 如果一个数的因子之和等于这个数本身，则称这样的数为“完全数”。例如28=1+2+4+7+14，因此28是一个完全数。编写程序，找出四位数中的所有完全数之和。
结果：（8128）
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, t, s, j As Integer s = 0
For i = 1000 To 9999 t = 0
For j = 1 To i - 1
If ((i Mod j) = 0) Then t = t + j End If Next
If i = t Then s = s + i End If Next
MsgBox(s)
11
End Sub
10. 编写程序，求下面级数前n项的和S(n)，要求精确到0.00001，即S(n)应满足|S(n)-S(n-1)|<0.00001。结果取5位小数。
1+1/2^4+1/3^4+1/4^4+…+1/n^4+…（其中，^ 表示幂运算） (1.08226)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer Dim s As Double I = 1
While (Math.Abs(1 / I ^ 4) > 0.00001) s = s + 1 / I ^ 4 I = I + 1 End While
s = Format(s, \) MsgBox(s) End Sub
四、思考题（不一定需要写出程序）
1. 已知获得字符串长度的速度非常快，整数大小的比较速度相对于直接比较字符串非常快，特别是字符串非常长时。现在有非常多（比如5万条）长度不同的字符串，需要找到重复的字符串，并且将后面出现的重复字符串删除。请画一个计算流程来解决这个问题。
1.判断长度 2.相同则判断元素 3.判断是否是独立完整的部分 4. 找到相同的 5.删除出第一个外的其他
2. 从网页拷贝的信息中，有许多多余的空格，比如汉字间的空格，需要删除，而有些空格，比如英文单词间的空格需要保留一个。请画一个计算流程来解决这个问题。
1.找出空格 2.左右时汉字，则删除；是英文，则保留一个；左边是标点，右边是汉字或字母，则保留一个；3.判断是否是段首，是则保留两个汉字的间隔；否则删除。
整理时间 2009-10-9
注意：仅供同学学习使用，不要外传
12