冒泡排序 - 到 VB.NET答案

【问题标题】：Bubble Sort - to VB.NET冒泡排序 - 到 VB.NET
【发布时间】：2016-05-16 07:44:00
【问题描述】：

如果我有以下伪代码，我是否需要在上面添加任何内容，如下所述。非常感谢您的帮助：

**repeat 
     swapped = false**

     for i from 1 <- N
            for j <- 0 to N - 1
               if a[j] > a[j + 1]
                  swap( a[j], a[j + 1] )
  **swapped = true
           end if**
         **end for
       until not swapped**

我有 ** 的行是否需要在其中？例如，如果一个问题是“为冒泡排序算法编写伪代码”，我是否需要将其完整地写出来（包括 ** 项）或者没有它们是可以的？

我们需要“绳索学习”代码，显然代码越小越好，也更容易记住。

谢谢！

【问题讨论】：

那么...你到底在问什么？代码没有按照您的预期工作吗？
@RyanBemrose 我需要把 ** 放在那里吗？即我用 ** 突出显示的行。
需要什么？ VB.NET？伪代码的特定方言？谁是您的受众——特定的编译器或其他程序员？我很确定“伪代码”不是真正的语言，因此就其解释器而言，您基本上可以做任何您想做的事情。

标签： pseudocode

【解决方案1】：

Sub Main()
                Dim Numlist() As Integer = {23435, 1, 433, 5234}
    'here you can use any numbers in any order
        Dim Count As Integer = 0
                Dim Swapvalue As Integer
                For ii = 0 To Numlist.Length - 2
                    For i = 0 To Numlist.Length - 2
                        Count += 1
                        If Numlist(i) > Numlist(i + 1) Then
                            Swapvalue = Numlist(i)
                            Numlist(i) = Numlist(i + 1)
                            Numlist(i + 1) = Swapvalue
                        End If
                    Next
                Next
                Console.WriteLine("Number of comparisons: {0}", Count)
                For i = 0 To Numlist.Length - 1
                    Console.WriteLine(Numlist(i))
                Next
        End Sub

【讨论】：