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

[pasband]

都是很简单的题，可我只用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}
打印该表呵双相链表。

[bnm2891]

up

[jpinglee]

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
运行不一定正确,但方法是肯定的

[lrb820102]

用双循环就可以了
很简单哟

[kmzs]

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

[loveyouforeveryang]

同意上楼意见！

[silverblade]

要在VB中实现链表？
没指针怎么弄？

[pasband]

说的是啊……
我靠那个白痴一定是弄错了
哎，连我也跟着丢人了

[pasband]

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