C++100个趣味程序“8.借书方案知多少”改编 VB.NET出现的问题

C++100个趣味程序“8.借书方案知多少”改编 VB.NET出现的问题：
题目如下：
小明有五本新书，要借给A，B，C三位小朋友，若每人每次只能借一本，则可以有多少种不同的借法？本问题实际上是一个排列问题，即求从5个中取3个进行排列的方法的总数。首先对五本书从1至5进行编号，然后使用穷举的方法。

我用VB2005 控制台程序编，代码如下：
Module Module1

Sub Main()
Dim a, b, c As Integer
Dim count As Integer = 1
Console.WriteLine("以下为所有的借书方案：")
For a = 1 To 5 Step 1

For b = 1 To 5 Step 1

Next
For c = 1 To (a <> b & c <= 5) Step 1

Next
If (c <> a And c <> b) Then

Console.WriteLine(count & ". " & a & b & c)
count += 1
End If
Next
Console.ReadLine()
End Sub

End Module

-----为什么得不到正确的结果呢？？？

PERL程序趣味题目！ 写个C程序. 写个C程序 C语言趣味题 5个趣味问题 帮忙写个C程序 c语言编个程序 帮忙编个C程序 问个C程序问题 编个C程序哦！！！！