第二题的，随机产生的三位数中的各个位数不重复的具体代码，谢谢

判断一个任意位数的整数各位数字是否有重复的函数：（返回True表示没有重复）
Function Judge(ByVal n As Integer) As Boolean
Dim f(9) As Boolean, m As Integer
Do
m = n Mod 10
n = n \ 10
If f(m) Then Exit Function
f(m) = True
Loop Until n = 0
Judge = True
End Function

自己作业自己写

如果不用递归的方法，求多个正整数（个数N<7）的最大公约数怎么写

第3题，非素数因式分解
For i = n To m
If Not Prime(n) Then
For j = 2 To n / 2
If Prime(j) And i \ j = i / j Then
S = i & "=" & j & "×" & i / j
List1.AddItem S： Exit For
End If
Next
End If
Next