朋友让我帮忙，可我从没用过vb，请大家帮帮忙

Question

都是很简单的题，可我只用c，对vb一点都不知道
所以想偷个懒，大家随手一写我就交差了，谢啦！2.试编写一程序按插入算法运行进行编码并按递增排序输出。
{49，2，19，25，36，5，72，60，41，52，28，10，44，37，14，32，8，76，81}3.编一程序用链表实现{10，30，20，50，40，70，60，90，80，100}
打印该表呵双相链表。

Answer 1

dim i,j,k,t,insert_value
dim a()
i=0
function insert_sort()   
  ReDim Preserve a(i + 1) As Integer
    a(i) = insert_value
    For j = 0 To i - 1
        For k = 1 To i
            If a(j) > a(k) Then
                t = a(k)
                a(k) = a(j)
                a(j) = t
            End If
        Next k
    Next j
    i = i + 1
end function
运行不一定正确,但方法是肯定的

Answer 2

道理我懂啊，这些用c写的话，最多10分钟吧
俺就是不会vb语言，懒得为这点事儿学vb
会vb的人用不了几分钟就能搞定了，帮个忙贝
：）

Answer 3

dim i,j,k,t,insert_value
dim a()
i=0
function insert_sort()   
  ReDim Preserve a(i + 1) As Integer
    a(i) = insert_value
    For j = 0 To i - 1
        For k = 1 To i
            If a(j) > a(k) Then
                t = a(k)
                a(k) = a(j)
                a(j) = t
            End If
        Next k
    Next j
    i = i + 1
end function