VB程序设计题，随机产生10个2位数的数，然后将其冒泡升序排列和选择降序排列

Question

如题所述

Answer 1

dim a(10) as integer
dim i as integer,j as integer,k as intrger
private sub form_click()
text1=“”
text2=“”
for i=1 to 10
a(i)=int(rnd*90+10)
text1=text1 & a(i)
next
end sub
private sub command1_click()
text2=“”
for i=1 to 9
for j=10 to i+1 step -1
if a(j-1)>a(j) then
k=a(j-1)
a(j-1)=a(j)
a(j)=k
end if
next
next
for i=1 to 10
text2=text2 & a(i)
next
end sub
private sub command2_click()
dim min as integer
text2=“”
for i=1 to 9
k=i
for j=i+1 to 10
if a(k)>a(j) then k=j
next
min=a(i)
a(i)=a(k)
a(k)=min
next
for i=1 to 10
text2=text2 & a(i)
next
end sub