vb冒泡编程

来源：百度知道 编辑：UC知道 时间：2024/05/11 05:24:23
用vb冒泡编程做成绩统计：
用5个textbox输入5门成绩
在list上输出输入的成绩（一行输出）
点击command排序后输出

dim r as string ,a(4) as integer ,i as integer,j as integer,t as integer
a(0)=text1.text
a(1)=text2.text
a(2)=text3.text
a(3)=text4.text
a(4)=text5.text
for i=0 to 3
for j=i+1 to 4
if a(i)>a(j) then
t=a(i):a(i)=a(j):a(j)=t
end if
next j
next i
for i=0 to 4
r=r+str(a(i))
next i
list1.additem r

'Label1()数组0-7，Text1()数组0-6，四个命令按钮，list1 '界面见



'源代码见：'http://hi.ba