数学建模题,十万火急,小弟先谢谢了随机生成15个1到100之间的整数,然后将这组数由大到小排列.输出原数列与排列后的数列.(上机实验题)要用mathlab那个软件做,
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/21 05:11:33
![数学建模题,十万火急,小弟先谢谢了随机生成15个1到100之间的整数,然后将这组数由大到小排列.输出原数列与排列后的数列.(上机实验题)要用mathlab那个软件做,](/uploads/image/z/13792442-50-2.jpg?t=%E6%95%B0%E5%AD%A6%E5%BB%BA%E6%A8%A1%E9%A2%98%2C%E5%8D%81%E4%B8%87%E7%81%AB%E6%80%A5%2C%E5%B0%8F%E5%BC%9F%E5%85%88%E8%B0%A2%E8%B0%A2%E4%BA%86%E9%9A%8F%E6%9C%BA%E7%94%9F%E6%88%9015%E4%B8%AA1%E5%88%B0100%E4%B9%8B%E9%97%B4%E7%9A%84%E6%95%B4%E6%95%B0%2C%E7%84%B6%E5%90%8E%E5%B0%86%E8%BF%99%E7%BB%84%E6%95%B0%E7%94%B1%E5%A4%A7%E5%88%B0%E5%B0%8F%E6%8E%92%E5%88%97.%E8%BE%93%E5%87%BA%E5%8E%9F%E6%95%B0%E5%88%97%E4%B8%8E%E6%8E%92%E5%88%97%E5%90%8E%E7%9A%84%E6%95%B0%E5%88%97.%EF%BC%88%E4%B8%8A%E6%9C%BA%E5%AE%9E%E9%AA%8C%E9%A2%98%EF%BC%89%E8%A6%81%E7%94%A8mathlab%E9%82%A3%E4%B8%AA%E8%BD%AF%E4%BB%B6%E5%81%9A%EF%BC%8C)
数学建模题,十万火急,小弟先谢谢了随机生成15个1到100之间的整数,然后将这组数由大到小排列.输出原数列与排列后的数列.(上机实验题)要用mathlab那个软件做,
数学建模题,十万火急,小弟先谢谢了
随机生成15个1到100之间的整数,然后将这组数由大到小排列.输出原数列与排列后的数列.(上机实验题)
要用mathlab那个软件做,
数学建模题,十万火急,小弟先谢谢了随机生成15个1到100之间的整数,然后将这组数由大到小排列.输出原数列与排列后的数列.(上机实验题)要用mathlab那个软件做,
Dim a(1 To 15)
Dim b(1 To 15)
Private Sub Form_Load()
Randomize
For i = 1 To 15
a(i) = Int(Rnd * 100 + 1)
Next i
For i = 1 To 15
b(i) = a(i)
Next i
k = 0
While k = 0
k = 1
For i = 1 To 14
p = i + 1
If a(i) < a(p) Then
v = a(i)
a(i) = a(p)
a(p) = v
k = 0
End If
Next i
Wend
MsgBox b(1) & "," & b(2) & "," & b(3) & "," & b(4) & "," & b(5) & "," & b(6) & "," & b(7) & "," & b(8) & "," & b(9) & "," & b(10) & "," & b(11) & "," & b(12) & "," & b(13) & "," & b(14) & "," & b(15)
MsgBox a(1) & "," & a(2) & "," & a(3) & "," & a(4) & "," & a(5) & "," & a(6) & "," & a(7) & "," & a(8) & "," & a(9) & "," & a(10) & "," & a(11) & "," & a(12) & "," & a(13) & "," & a(14) & "," & a(15)
End Sub
VB6.0实践可行
不说清楚.没玩过那个