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

pasband 2003-11-07 10:19:14
都是很简单的题,可我只用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}
打印该表呵双相链表。
...全文
37 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
pasband 2003-11-09
  • 打赏
  • 举报
回复
道理我懂啊,这些用c写的话,最多10分钟吧
俺就是不会vb语言,懒得为这点事儿学vb
会vb的人用不了几分钟就能搞定了,帮个忙贝
:)
pasband 2003-11-09
  • 打赏
  • 举报
回复
说的是啊……
我靠那个白痴一定是弄错了
哎,连我也跟着丢人了
silverblade 2003-11-09
  • 打赏
  • 举报
回复
要在VB中实现链表?
没指针怎么弄?
loveyouforeveryang 2003-11-09
  • 打赏
  • 举报
回复
同意上楼意见!
kmzs 2003-11-09
  • 打赏
  • 举报
回复
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 2003-11-08
  • 打赏
  • 举报
回复
用双循环就可以了
很简单哟
jpinglee 2003-11-08
  • 打赏
  • 举报
回复
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
运行不一定正确,但方法是肯定的
bnm2891 2003-11-07
  • 打赏
  • 举报
回复
up

7,771

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧