Question

我要一个流程图和一个VB程序编程的内容...题目非常简单.只要学过的都会

大家不要把它复杂化.这个只要是学过电脑编程的都会的
拜托了.
要一张流程图和VB
放在你们空间~就好.
如果作的好的话,我追加50分~摆脱了
题目是:把任意10个自然数从大到小排列

Answer 1

dim a(10) as integer 

dim i,j,m as integer 

for i =0 to 9 

a(i)=int（rnd()） 

next i 

for i = 0 to 9 

for j= 0 to i 

if a(i)<a(j) then 

m=a(i) 

a(i)=a(j) 

m=a(j) 

end if 

next j 

next i 

则数组a就是从大到小排列

图片能看清吗？

Answer 2

代码如下：
Dim a(10) As Integer
Private Sub Command1_Click()
Cls
Dim i As Integer, k As Integer
Randomize
For i = 1 To 10 '产生十个随机数
a(i) = Int(Rnd * 10)
Next i
'也可以用以下代码自己输入十个
'For i = 1 To 10
'a(i) = InputBox("请输入第" & i & "个数")
'Next
For i = 1 To 9 '从大到小排序
For k = i + 1 To 10
If a(i) < a(k) Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next k
Next i
For i = 1 To 10 '在窗体上输出
Print a(i);
Next
End Sub
流程图看注释自己画一下就好了。