数学建模题,十万火急,小弟先谢谢了
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/07/04 15:19:38
数学建模题,十万火急,小弟先谢谢了
随机生成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实践可行
不说清楚.没玩过那个
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实践可行
不说清楚.没玩过那个
问大家一下数学建模常用软件有哪些哈有晓得的人就说下哈,我先谢谢大家了{随机数Z
求数学建模的论文一篇我选修了数学建模这门课,期末作业是一篇论文,关于数学建模的感想,要求字数2500字左右,十万火急,一
请教一道数学建模题,谢谢
幸福如此简单 是什么意思?小弟在这先谢谢了
数学建模的论文格式?谢谢
谁能提供个2002年数学建模的C题的优秀论文给小弟看看
求数学大神相助,小弟感激不尽, 谢谢了
急求2008年东三省数学建模竞赛试题A答案,小弟积分只有这么多了,急
求一篇以“关注和忽略”为话题的作文,要求不少于700字,十万火急,小弟在此谢谢了
谁能帮我翻译下这些句子呢?唯美些就更好了!小弟先谢谢了!
数学建模题,希望大哥大姐帮个忙,就做前三问就行了,
英语翻译... 小弟先谢谢过了 不要复制别人的答案