有如下数:10,4,53,22,90,34请用VB程序冒泡法和选择排序法的从大到小排列出.

来源:学生作业帮助网 编辑:作业帮 时间:2024/12/01 18:06:09
有如下数:10,4,53,22,90,34请用VB程序冒泡法和选择排序法的从大到小排列出.
xOKAƿ{˥5]݄l]H+XuED)$t ࡰ>֩Lif~=tI9)y;4)!KUfri@5Y: ۴r4aմܚ $`ɶQYj 7 *sъQ.KK݀3<:0#Aք*Qa"@I.XfCe)Y)\k-6o8ő/L5gVfy8AGf$cyYgŸ/ <=Gl!C~OWv

有如下数:10,4,53,22,90,34请用VB程序冒泡法和选择排序法的从大到小排列出.
有如下数:10,4,53,22,90,34请用VB程序冒泡法和选择排序法的从大到小排列出.

有如下数:10,4,53,22,90,34请用VB程序冒泡法和选择排序法的从大到小排列出.
Option Base 1
Dim a
Private Sub Form_Load()
a = Array(10, 4, 53, 22, 90, 34)
End Sub
Private Sub Command1_Click() '选择排序法
For i = 1 To 5
For j = i + 1 To 6
If a(j) > a(i) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
For i = 1 To 6
Print a(i);
Next
Print
End Sub
Private Sub Command2_Click() '冒泡排序法
For i = 1 To 5
For j = 6 To i + 1 Step -1
If a(j - 1) < a(j) Then
t = a(j - 1): a(j - 1) = a(j): a(j) = t
End If
Next j
Next i
For i = 1 To 6
Print a(i);
Next
Print
End Sub

有如下数:10,4,53,22,90,34请用VB程序冒泡法和选择排序法的从大到小排列出. 有一列数按如下规律排列:4,10,16,22 … 这列数中前100个数的和是_. 有一组数,其排列形式如下:11,19,9,12,5,20,1,18,4,16,6,10,15,2,17,3,14,7,13,8,让 有一列数如下:4,59,14,23.这列数的第2010个数除以3余数是几? 有一列数如下:4,5,9,14,23.这列数的第2004个数除以3,余数是几? 如果我们规定符号‘*’有如下规则:4*2=10,5*2=12,100*3=203.用a表示*前的数,用b表示后的数,用含有字的式子表示*代表运算规律 解答一道新定义运算有一个特别的计算器,只有A,B,C,D这四个键,功能如下:A键:将输入的数加上2B键:将输入的数减去4C键:将输入的数乘3D键:将输入的数除2输入10,要使输出的数还是10,最少要按几 一列数按如下规律排列:第一行:1第二行:2,3第三行:4,5,6、7...第N行的各数如何用有N的式子表示.一列数按如下规律排列:第一行:1第二行:2,3第三行:4,5,6,7第四行:8,9,10,11,12,13,14,1 数学题难题,在线求解答!某中学组织篮球赛,要求队队见面,参赛球队个数与比赛场数情况如下: 队数:2 3 4 5…… 场数:1 3 6 10……如果有6个队参赛,则比赛场数为_______;如果有n个队参赛,共 大意如下:有一组数,5,12,21,34,53,80...请给出公式. 有一列数如下排列:2,6,10,14,18.这列数前20个数的和是多少 有一列数,如下:4,5,9,14,23,.第1999个数是多少? 有两个代表队各四人进行答题竞赛.现把数据统计如下:第一组:编号:1号 2号 3号 4号做对题数:16 22 9 7第二组:编号:5号 6号 7号 8号最对题数:14 12 10 8现要发两个奖项,一个人是金牌.另一 10个小组植树,植树的株数如下表:株数 5 6 7 小组个数 3 4 3 求这10个小组植树株数的方10个小组植树,植树的株数如下表:株数 5 6 7小组个数 3 4 3求这10个小组植树株数的方差. 有10筐苹果,每筐20千克为基准,超过的千克数记负数,如下:3,-1,4,-3,0,2.4,3.5,-2.5.这10筐苹果的总质量多少列算式 有一列数排列如下:1,5/4,9/7,13/10,17/13,21/16…这列数的第五十个是几,第100个是几 有一列数排列如下:1,4/5,7/9,10/13,13/17,16/21.这列数的第50个是几?第一百个是几? 用10 以内所有的素数,组成如下的数 ,有因数3的三位数(从四位数到大写三个 )是( ),