VB冒泡排序法无法输出,怎么办?附源码_百度知道
VB冒泡排序法无法输出,怎么办?附源码
j As Integer, i As I; a(j) Then
temp = a(j)
a(j) = a(j + 1)
a(j + 1) = temp
Next iFor i = 1 To n
Print a(i);))
For i = 1 To n - 1
For j = 1 To n - i
If a(j + 1) &请输入第&, &quot, temp As Integer
n = Val(InputBox(&个随机数&数组个数& & i & &quot, 6))ReDim a(n) As Integer
For i = 1 To n
a(i) = Val(InputBox(&输入随机数组个数&quotDim n As Integer
提问者采纳
For i = 1 To n - 1
For j = 1 To n - i
If a(j + 1) &请输入第&, 6))
ReDim a(n) As Integer
For i = 1 To n
a(i) = Val(InputBox(&quot首先在窗体上放置一个PictureBox（默认名字为Picture1）, temp As Integer
n = Val(InputBox(& & i & &数组个数&quot, i As Integer，然后再次执行以下语句会发现在PictureBox中会显示排序的结果了;.Cls
For i = 1 To n
Picture1; a(j) Then
temp = a(j)
a(j) = a(j + 1)
a(j + 1) = temp
Picture1;个随机数&输入随机数组个数&quot, &quot, j As Integer。Dim n As Integer.Print a(i) & vbCrLf
提问者评价
太感谢了，真心有用
其他类似问题
为您推荐：
其他2条回答
For i = 1 To n - 1
For j = 1 To n - i
If a(j + 1) &请输入第&, 6))
ReDim a(n) As Integer
For i = 1 To n
a(i) = Val(InputBox(&quot首先在窗体上放置一个PictureBox（默认名字为Picture1）, temp As Integer
n = Val(InputBox(& & i & &数组个数&quot, i As Integer，然后再次执行以下语句会发现在PictureBox中会显示排序的结果了;.Cls
For i = 1 To n
Picture1; a(j) Then
temp = a(j)
a(j) = a(j + 1)
a(j + 1) = temp
Picture1;个随机数&输入随机数组个数&quot, &quot, j As Integer。Dim n As Integer.Print a(i) & vbCrLf
放到按钮里就可以输出For i = 1 To n
Print a(i);Next i这段是输出
可是不放到按钮就不输出了啊
冒泡排序法的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求蚁群算法matlab或者，c,或者vb源码，用在多机器人协作，寻迹，最有路径的，，程序！！谢谢，回答好的，-求VB冒泡排序法的代码。 _快递评论网
你的位置：& > &
求蚁群算法matlab或者，c,或者vb源码，用在多机器人协作，寻迹，最有路径的，，程序！！谢谢，回答好的，
求蚁群算法matlab或者，c,或者vb源码，用在多机器人协作，寻迹，最有路径的，，程序！！谢谢，回答好的，
相关说明：
牛的天下小伙子，你说的这个什么网站，去过了，不好使、你不是我的答案。。。不采纳，哎, 0;
Tabu(i; 0;
Select=find(Pcum&gt:);
Q=100.7426;distance
for j=1,1))=dt(Tabu(i.47;end
Tabu(.&#47:
for i=1.4274; 0:)=Tabu(pos(1),Tabu(i;
p=0;=rand);%^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^tic
for Nc=1.3201, ,1;
Jc=Jc+1:NumCity.*ones(Nm,1):length(UnVisited)
P(k)=(t(VisitedCity(end),j+1))+Q; 0, 0;
L_best(Nc)=min(L):);% loc=rand(50;%^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^%^^^^^^^^^^^^ Ants According To Probability Choose Next City
^^^^^^^^^^^^^
distance(i;
0.*eps,Tabu(i.;
for j=1.1320, 0, for j = 1, 0, 0,NumCity).4158, ;for i = 1;
0, 0.3927:ant.:(ceil(ant&#47,
VisitedCity=Tabu(i, 0.*t+dt, 0,j).1;%
Tabu=zeros(ant.6436, 0,Tabu(i:
% V; 0.6403:NumCity.5908,NumCity);
for i=1;end
L(i)=L(i)+distance(R(1);
for i=1; 0;
ToVisit=UnVisited(Select(1)); 0,.3498; 0:ant%
for j=1,UnVisited(k)),Randpos=[R%^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^%^^^^^^^^^^^^
Updata the
Tabu(i; 0;
Select=find(Pcum&gt:);
Q=100.7426;distance
for j=1,1))=dt(Tabu(i.47;end
Tabu(.&#47:
for i=1.4274; 0:)=Tabu(pos(1),Tabu(i;
p=0;=rand);%^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^tic
for Nc=1.3201, ,1;
Jc=Jc+1:NumCity.*ones(Nm,1):length(UnVisited)
P(k)=(t(VisitedCity(end),j+1))+Q; 0, 0;
L_best(Nc)=min(L):);% loc=rand(50;%^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^%^^^^^^^^^^^^ Ants According To Probability Choose Next City
^^^^^^^^^^^^^
distance(i;
0.*eps,Tabu(i.;
for j=1.1320, 0, for j = 1, 0, 0,NumCity).4158, ;for i = 1;
0, 0.3927:ant.:(ceil(ant&#47,
VisitedCity=Tabu(i, 0.*t+dt, 0,j).1;%
Tabu=zeros(ant.6436, 0,Tabu(i:
% V; 0.6403:NumCity.5908,NumCity);
for i=1;end
L(i)=L(i)+distance(R(1);
for i=1; 0;
ToVisit=UnVisited(Select(1)); 0,.3498; 0:ant%
for j=1,UnVisited(k)),Randpos=[R%^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^%^^^^^^^^^^^^
Updata the
可能不是你想要的吧。 PS。参考资料.net/thread--1，最优路径是吧.html" target="_blank">http:我在网上一搜就能搜到好多啊？你到程序员联合开发网（pudn寻迹.net/thread--1://www.baisi.baisi，肯定能找到.com）或者CSDN下载频道找找看://www：去百度贴吧，有人留下带密码的邮箱
请问哪位好心人有matlab实现的EM算法啊!!! 发我邮箱,……
十三爷和四爷的番外篇,其中十三爷番外的全部的,就是到小薇几年后~~~ SO SO SO SO SO ...
怎么下载C语言程序设计的书 谭浩强的 第二版一书,我很喜欢电脑,谢谢各位大哥大姐了……
怎么下载C语言程序设计的书 谭浩强的 第二版一书,我很喜欢电脑,谢谢各位...专注程序设计和程序撰写...
你可能感兴趣的内容？VB.net的开方运算题目是我的代码是:Math.sqr((n+1/n)-1) 'n就是公式中的n用计算器实验时答案不一样，请问错在哪里了？_作业帮
拍照搜题，秒出答案
VB.net的开方运算题目是我的代码是:Math.sqr((n+1/n)-1) 'n就是公式中的n用计算器实验时答案不一样，请问错在哪里了？
VB.net的开方运算题目是我的代码是:Math.sqr((n+1/n)-1) 'n就是公式中的n用计算器实验时答案不一样，请问错在哪里了？
n+1应该有括号
VB的运算顺序是：先乘除、后加减，有括号的先算括号内，有负号的先算负号。请你比较一下这个运算中x和y的值：
Dim n As Single = 4
Dim x As Single
Dim y As Single
n＋1应该有括号
n＋1应该有括号
n＋1应该有括号
会存在小差别，是因为电脑浮点运算数位与计算器不同两都的计算步骤不同，所以在输入时，一定要搞好运算步骤。
n+1/n 没加括号vb.net 用try...catch..会减慢速度吗? 我在循环里用了try语句,就是说会执行很多次_好搜问答
|注册&您有新任务，
vb.net 用try...catch..会减慢速度吗? 我在循环里用了try语句,就是说会执行很多次
被浏览64次
采纳率：47%
用on error跳来跳去更慢。 用微信扫描二维码分享至好友和朋友圈分享到：
下面是答答童鞋给您的小建议，您看靠谱吗？初来乍到，弄错了您不要生气哦(*^__^*)答答小贴士
等您帮助的附近的朋友换一换
大家都在搜好搜APP下载好搜摸字APP 随时随地随心搜索 用好搜， 特顺手！
第9天生活就像海洋，只有意志坚强的人才能达到生命的彼岸。知道了}