排序啦！（15个数从大到小排序）

最新推荐文章于 2023-12-26 21:29:40 发布
最新推荐文章于 2023-12-26 21:29:40 发布
阅读量751 收藏
点赞数 1
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/bin357852676/article/details/50990890
版权

    Dim a As Integer

    Dim b As Integer

    Dim c As Integer

    Dim d As Integer

    Dim e As Integer

    Dim f As Integer

    Dim g As Integer

    Dim h As Integer

    Dim i As Integer

    Dim j As Integer

    Dim k As Integer

    Dim l As Integer

    Dim m As Integer

    Dim n As Integer

    Dim o As Integer

    

    a = Int(Rnd * 1000)

    b = Int(Rnd * 1000)

    c = Int(Rnd * 1000)

    d = Int(Rnd * 1000)

    e = Int(Rnd * 1000)

    f = Int(Rnd * 1000)

    g = Int(Rnd * 1000)

    h = Int(Rnd * 1000)

    i = Int(Rnd * 1000)

    j = Int(Rnd * 1000)

    k = Int(Rnd * 1000)

    l = Int(Rnd * 1000)

    m = Int(Rnd * 1000)

    n = Int(Rnd * 1000)

    o = Int(Rnd * 1000)

    

    If a < b Then

      Call swap(a, b)

    End If

    

    If b < c Then

      Call swap(b, c)

    End If

    

    If c < d Then

      Call swap(c, d)

    End If

    

    If d < e Then

      Call swap(d, e)

    End If

    

    If e < f Then

      Call swap(e, f)

    End If

    

    If f < g Then

      Call swap(f, g)

    End If

    

    If g < h Then

      Call swap(g, h)

    End If

    

    If h < i Then

      Call swap(h, i)

    End If

    

    If i < j Then

      Call swap(i, j)

    End If

    

    If j < k Then

      Call swap(j, k)

    End If

    

    If k < l Then

      Call swap(k, l)

    End If

    

    If l < m Then

      Call swap(l, m)

    End If

    

    If m < n Then

      Call swap(m, n)

    End If

    

    If n < o Then

      Call swap(n, o)

    End If

    

    If a < b Then

      Call swap(a, b)

    End If

    

    If b < c Then

      Call swap(b, c)

    End If

    

    If c < d Then

      Call swap(c, d)

    End If

    

    If d < e Then

      Call swap(d, e)

    End If

    

    If e < f Then

      Call swap(e, f)

    End If

    

    If f < g Then

      Call swap(f, g)

    End If

    

    If g < h Then

      Call swap(g, h)

    End If

    

    If h < i Then

      Call swap(h, i)

    End If

    

    If i < j Then

      Call swap(i, j)

    End If

    

    If j < k Then

      Call swap(j, k)

    End If

    

    If k < l Then

      Call swap(k, l)

    End If

    

    If l < m Then

      Call swap(l, m)

    End If

    

    If m < n Then

      Call swap(m, n)

    End If

 

    If a < b Then

      Call swap(a, b)

    End If

    

    If b < c Then

      Call swap(b, c)

    End If

    

    If c < d Then

      Call swap(c, d)

    End If

    

    If d < e Then

      Call swap(d, e)

    End If

    

    If e < f Then

      Call swap(e, f)

    End If

    

    If f < g Then

      Call swap(f, g)

    End If

    

    If g < h Then

      Call swap(g, h)

    End If

    

    If h < i Then

      Call swap(h, i)

    End If

    

    If i < j Then

      Call swap(i, j)

    End If

    

    If j < k Then

      Call swap(j, k)

    End If

    

    If k < l Then

      Call swap(k, l)

    End If

    

    If l < m Then

      Call swap(l, m)

    End If

    

    If a < b Then

      Call swap(a, b)

    End If

    

    If b < c Then

      Call swap(b, c)

    End If

    

    If c < d Then

      Call swap(c, d)

    End If

    

    If d < e Then

      Call swap(d, e)

    End If

    

    If e < f Then

      Call swap(e, f)

    End If

    

    If f < g Then

      Call swap(f, g)

    End If

    

    If g < h Then

      Call swap(g, h)

    End If

    

    If h < i Then

      Call swap(h, i)

    End If

    

    If i < j Then

      Call swap(i, j)

    End If

    

    If j < k Then

      Call swap(j, k)

    End If

    

    If k < l Then

      Call swap(k, l)

    End If

    

    If a < b Then

      Call swap(a, b)

    End If

    

    If b < c Then

      Call swap(b, c)

    End If

    

    If c < d Then

      Call swap(c, d)

    End If

    

    If d < e Then

      Call swap(d, e)

    End If

    

    If e < f Then

      Call swap(e, f)

    End If

    

    If f < g Then

      Call swap(f, g)

    End If

    

    If g < h Then

      Call swap(g, h)

    End If

    

    If h < i Then

      Call swap(h, i)

    End If

    

    If i < j Then

      Call swap(i, j)

    End If

    

    If j < k Then

      Call swap(j, k)

    End If

    

    If a < b Then

      Call swap(a, b)

    End If

    

    If b < c Then

      Call swap(b, c)

    End If

    

    If c < d Then

      Call swap(c, d)

    End If

    

    If d < e Then

      Call swap(d, e)

    End If

    

    If e < f Then

      Call swap(e, f)

    End If

    

    If f < g Then

      Call swap(f, g)

    End If

    

    If g < h Then

      Call swap(g, h)

    End If

    

    If h < i Then

      Call swap(h, i)

    End If

    

    If i < j Then

      Call swap(i, j)

    End If

    

    If a < b Then

      Call swap(a, b)

    End If

    

    If b < c Then

      Call swap(b, c)

    End If

    

    If c < d Then

      Call swap(c, d)

    End If

    

    If d < e Then

      Call swap(d, e)

    End If

    

    If e < f Then

      Call swap(e, f)

    End If

    

    If f < g Then

      Call swap(f, g)

    End If

    

    If g < h Then

      Call swap(g, h)

    End If

    

    If h < i Then

      Call swap(h, i)

    End If

    

    If a < b Then

      Call swap(a, b)

    End If

    

    If b < c Then

      Call swap(b, c)

    End If

    

    If c < d Then

      Call swap(c, d)

    End If

    

    If d < e Then

      Call swap(d, e)

    End If

    

    If e < f Then

      Call swap(e, f)

    End If

    

    If f < g Then

      Call swap(f, g)

    End If

    

    If g < h Then

      Call swap(g, h)

    End If

    

    If a < b Then

      Call swap(a, b)

    End If

    

    If b < c Then

      Call swap(b, c)

    End If

    

    If c < d Then

      Call swap(c, d)

    End If

    

    If d < e Then

      Call swap(d, e)

    End If

    

    If e < f Then

      Call swap(e, f)

    End If

    

    If f < g Then

      Call swap(f, g)

    End If

    

    If a < b Then

      Call swap(a, b)

    End If

    

    If b < c Then

      Call swap(b, c)

    End If

    

    If c < d Then

      Call swap(c, d)

    End If

    

    If d < e Then

      Call swap(d, e)

    End If

    

    If e < f Then

      Call swap(e, f)

    End If

    

    If a < b Then

      Call swap(a, b)

    End If

    

    If b < c Then

      Call swap(b, c)

    End If

    

    If c < d Then

      Call swap(c, d)

    End If

    

    If d < e Then

      Call swap(d, e)

    End If

    

    If a < b Then

      Call swap(a, b)

    End If

    

    If b < c Then

      Call swap(b, c)

    End If

    

    If c < d Then

      Call swap(c, d)

    End If

    

    If a < b Then

      Call swap(a, b)

    End If

    

    If b < c Then

      Call swap(b, c)

    End If

    

    If a < b Then

      Call swap(a, b)

    End If

   Print a & ”,” & b & ”,” & c & ”,” & d & ”,” & e

  Print f & ”,” & g & ”,” & h & ”,” & i & ”,” & k

  Print k & ”,” & l & ”,” & m & ”,” & n & ”,” & o

  End Sub

  Private Sub swap(x As Integer, y As integer)

  Dim temp As Integer

  If x < y Then

  temp = x

  x = y

End if

  End Sub

bin357852676
关注
  • 1
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
编写程序，实现用户输入15个数据后进行排序，要求排序后按由大到小存放在一个数组中。重新输入一个数，编写查找算法找到该数是数组中的第几个元素的值，如果该数不在数组中，则输出“无此数”。
m0_45143991的博客
04-25 5061
C语言实现：编写程序，实现用户输入15个数据后进行排序，要求排序后按由大到小存放在一个数组中。重新输入一个数，编写查找算法找到该数是数组中的第几个元素的值，如果该数不在数组中，则输出“无此数”。 编程基础第六版 课后题 代码如下 #include <stdio.h> #include <math.h> int main() { int i,j,t; int a[15]; i...
10个数从大到小排序
05-10
10个数从大到小排序
冒泡排序(对 15 个数进行排序，按从小到大的顺序输出)
2302_80472547的博客
12-26 714
【代码】冒泡排序(对 15 个数进行排序，按从小到大的顺序输出)
对数组赋值15个数，然后数组由大到小排序输出，还可以进行对数组数字的查找（还有一个是由小到大排序的）
weixin_51903996的博客
11-09 1599
#include <stdio.h> #define N 15 int main() { int i; //定于数组与需要的变量 int low = 0; int high = N - 1; int mid; int k = -1; int m; int a[N]; printf(“请输入15个数字（由大到小，中间用空格相隔）：\n”); //输入要求 scanf("%d",&a[0]); i=1; while(i<15)
vb
ZJM1101的博客
03-31 316
Dim a(15) As Integer Dim str As String str = "" Dim temp As Integer For i = 1 To 15 a(i) = Int(Rnd() * 90) + 10 Next For i = 1 To 15
复试练手
qq_41840755的博客
03-06 1007
由键盘输入的n个整数，输出其中最大和最小数。其中，n由用户通过键盘输入。 输入：n = 10 92 756 43 32 45 78 67 82 99 65 输出：756 （最大） 32 (最小) //由键盘输入的n个整数，输出其中最大和最小数。其中，n由用户通过键盘输入。 //输入：n = 10 //92 756 43 32 45 78 67 82 99 65 //输出：756 （最大） //32 (最小) #include<stdio.h> int .
探索Sort函数：实现从大到小的数组排序.txt
03-10
sort从大到小排序
一套sort从大到小排序
最新发布
03-10
排序算法是计算机科学中的一个基础且重要的概念，其中，从大到小的排序（降序排序）是排序算法的一种常见应用。这里，我将详细解释如何实现一个基本的降序排序算法，并结合实际应用进行阐述降序排序，即按照从大到小...
js对数组中的数字从小到大排序实现代码
10-27
对数组中的数字从小到大排序，很多时候需要用的多，需要的朋友可以参考下
C# 希尔算法实现数字从大到小排序
03-16
内容索引:C#源码,算法相关,希尔算法,排序　基于VS2008开发的C#排序程序，利用希尔算法实现数字的从大到小排序，通过这个小程序你会了解使用希尔排序来交换数据，排序数据等，要注意，输入的数字不能为空或者过大或过...
15位随机数由大到小依次排序程序
Evolution_hzk的博客
03-28 690
2016-03-25 18:37:14   Private Sub Command1_Click()   Cls       Me.Font.Size = 50       Dim a As Integer       Dim b As Integer       Dim c As Integer       Dim d As Integer       Dim e As Int
Ex6_1对15个数进行冒泡法排序
小字的计算世界
03-23 1712
//下面进行冒泡排序，目标是将数组元素以从大到小顺序排列并打印~~本应是由小到大排序的。 #include "stdio.h" void main() {         int a[15];         int temp;         printf("请输入这15个整数：/n");//INPUT         for(int k=0; k        {              
15个数排序！
cavaen的博客
03-31 425
Private Sub Command1_Click() Cls Font.Size = 30 Dim a As Integer Dim sierdun(15) As Integer n = 1 While n sierdun(n) = Int(Rnd * 1000)   n = n + 1 Wend Dim swap As Integer m = 1 While
15个数从小到大
Evolution_hzk的博客
03-31 409
移动数组实在不会呀！！！
C语言 ，有15个数按由大到小顺序存放在一个数组中，输入一个数，要求用拆半查找法找出该数是数组中的第几个元素的值，如果该数不在数组中，则输出“无此数”
热门推荐
luo44671854的专栏
09-01 2万+
注意此题是要求用拆半法#include<stdio.h> int main() { int t[9]={1,3,5,7,9,11,13,15,17}; int start=0,end=8,c,mid; //start表示查找区间开始的位置，end是查找区间的最末位置 scanf("%d",&c); while(start<=end) { mid
比较15个数的大小1
x123456yz的博客
03-24 230
在command1中编辑 Private Sub Command1_Click() Cls Me.Font.Size = 24 Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim e As Integer Dim f As Integer Dim g As Integer
排序了
yhj1253084621的博客
03-24 189
Private Sub cmdSort_Click() Cls Me.Font.Size = 50 Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim e As Integer Dim f As Integer Dim g As Integer Dim h As Integer Dim
期末编程
lynne20120908的专栏
06-23 583
程序设计  2.判断数m是否为素数（只能被1和它本身整除的整数）?若是，则输出yes；否则输出no 我的程序： #include int su(int n) { int i; if(n<=0) printf("输入大于0的整数\n"); if(n==1||n==2) printf("yes\n"); if(n>2) { for(i=2;i<n;i++) if(n%i
15个数按从小到大的顺序存放数组b中，现从键盘输入一个数n，利用折半查找法，找出数组中与该数相等的位置
weixin_44106287的博客
01-24 7069
思路如下：
18随机产生15个数，从大到小排序
06-09
好的，可以使用 Python 的 random 和 sort 模块来实现这个需求，代码如下： ```python import random # 产生 15 个随机整数 nums = [random.randint(1...运行代码后，输出的结果即为从大到小排序后的 15 个随机整数。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值