VB中的排序问题 15个
首次接触VB，以下就先进行VB中的排序问题
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
Private Sub Command1_Click()
Cls
Me.Font.Size = 50
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 a < c Then
Call swap(a, c)
End If
If a < d Then
Call swap(a, d)
End If
If a < e Then
Call swap(a, e)
End If
If a < f Then
Call swap(a, f)
End If
If a < g Then
Call swap(a, g)
End If
If a < h Then
Call swap(a, b)
End If
If a < i Then
Call swap(a, h)
End If
If a < j Then
Call swap(a, j)
End If
If a < k Then
Call swap(a, k)
End If
If a < l Then
Call swap(a, l)
End If
If a < m Then
Call swap(a, m)
End If
If a < n Then
Call swap(a, n)
End If
If a < o Then
Call swap(a, o)
End If
If b < c Then
Call swap(b, c)
End If
If b < d Then
Call swap(b, d)
End If
If b < e Then
Call swap(b, e)
End If
If b < f Then
Call swap(b, f)
End If
If b < g Then
Call swap(b, g)
End If
If b < h Then
Call swap(b, h)
End If
If b < i Then
Call swap(b, i)
End If
If b < j Then
Call swap(b, j)
End If
If b < k Then
Call swap(b, k)
End If
If b < l Then
Call swap(b, l)
End If
If b < m Then
Call swap(b, m)
End If
If b < n Then
Call swap(b, m)
End If
If b < o Then
Call swap(a, o)
End If
If c < d Then
Call swap(c, d)
End If
If c < e Then
Call swap(c, e)
End If
If c < f Then
Call swap(c, f)
End If
If c < g Then
Call swap(c, g)
End If
If c < h Then
Call swap(c, h)
End If
If c < i Then
Call swap(c, i)
End If
If c < j Then
Call swap(c, j)
End If
If c < k Then
Call swap(c, k)
End If
If c < l Then
Call swap(c, l)
End If
If c < m Then
Call swap(c, m)
End If
If c < n Then
Call swap(c, n)
End If
If c < o Then
Call swap(c, o)
End If
If d < e Then
Call swap(d, e)
End If
If d < f Then
Call swap(d, f)
End If
If d < g Then
Call swap(d, g)
End If
If d < h Then
Call swap(d, h)
End If
If d < i Then
Call swap(d, i)
End If
If d < j Then
Call swap(d, j)
End If
If d < k Then
Call swap(d, k)
End If
If d < l Then
Call swap(d, l)
End If
If d < m Then
Call swap(d, m)
End If
If d < n Then
Call swap(d, n)
End If
If d < o Then
Call swap(d, o)
End If
If e < f Then
Call swap(e, f)
End If
If e < g Then
Call swap(e, g)
End If
If e < h Then
Call swap(e, h)
End If
If e < i Then
Call swap(e, i)
End If
If e < j Then
Call swap(e, j)
End If
If e < k Then
Call swap(e, k)
End If
If e < l Then
Call swap(e, l)
End If
If e < m Then
Call swap(e, m)
End If
If e < n Then
Call swap(e, n)
End If
If e < o Then
Call swap(e, o)
End If
If f < g Then
Call swap(f, g)
End If
If f < h Then
Call swap(f, h)
End If
If f < i Then
Call swap(f, i)
End If
If f < j Then
Call swap(f, j)
End If
If f < k Then
Call swap(f, k)
End If
If f < l Then
Call swap(f, l)
End If
If f < m Then
Call swap(f, m)
End If
If f < n Then
Call swap(f, n)
End If
If f < o Then
Call swap(f, o)
End If
If g < h Then
Call swap(g, h)
End If
If g < i Then
Call swap(g, i)
End If
If g < j Then
Call swap(g, j)
End If
If g < k Then
Call swap(g, k)
End If
If g < l Then
Call swap(g, l)
End If
If g < m Then
Call swap(g, m)
End If
If g < n Then
Call swap(g, n)
End If
If g < o Then
Call swap(g, o)
End If
If h < i Then
Call swap(h, i)
End If
If h < j Then
Call swap(h, j)
End If
If h < k Then
Call swap(h, k)
End If
If h < l Then
Call swap(h, l)
End If
If h < m Then
Call swap(h, m)
End If
If h < n Then
Call swap(h, n)
End If
If h < o Then
Call swap(h, o)
End If
If i < j Then
Call swap(i, j)
End If
If i < k Then
Call swap(i, k)
End If
If i < l Then
Call swap(i, l)
End If
If i < m Then
Call swap(i, m)
End If
If i < n Then
Call swap(i, n)
End If
If i < o Then
Call swap(i, o)
End If
If j < k Then
Call swap(j, k)
End If
If j < l Then
Call swap(j, l)
End If
If j < m Then
Call swap(j, m)
End If
If j < n Then
Call swap(j, n)
End If
If j < o Then
Call swap(j, o)
End If
If k < l Then
Call swap(k, l)
End If
If k < m Then
Call swap(k, m)
End If
If k < n Then
Call swap(k, n)
End If
If k < o Then
Call swap(k, o)
End If
If l < m Then
Call swap(l, m)
End If
If l < n Then
Call swap(l, n)
End If
If l < o Then
Call swap(l, o)
End If
If m < o Then
Call swap(m, o)
End If
If m < n Then
Call swap(m, n)
End If
If m < o Then
Call swap(m, o)
End If
If n < o Then
Call swap(n, o)
End If
Print a & "," & b & "," & c & "," & d & ", " & e & "," & f & "," & g & "," & h & "," & i & "," & j & "," & k & "," & l & "," & m & ", " & n & "," & o
End Sub
Private Sub swap(ByVal x As Integer, ByVal y As Integer)
Dim temp As Integer
If x < y Then
temp = x
x = y
y = temp
End If
做完这个编程我的手已经残废
，但毕竟这是我做的第一份编程，感觉苦点累点也值得
。接触到VB这门课，我感觉自己不再对程序员这样的动物陌生了，慢慢的了解了他们的生活，就是把自己想要完毕的事变成字符敲到电脑上汇成编程
马妮娜原创
VB中的排序问题 15个的更多相关文章
- java Collection中的排序问题
java Collection中的排序问题 这里讨论list.set.map的排序,包括按照map的value进行排序. 1)list排序 list排序可以直接采用Collections的sort方法 ...
- 小工具：天气查询 Vs自定义设置 DevGridControl中GridView排序问题 小工具：火车票查询 小工具：邮件发送 小工具：截图&简单图像处理
小工具:天气查询 开发一个天气查询的工具主要由两步构成,一是数据的获取,二是数据的展示. 一.数据获取 数据获取又可以分为使用其它公司提供的API和手动抓取其它网站数据. 1. 某公司提供的AP ...
- VB中 '&' 和 '+' 号的区别
释义 &(Ampersand)是英语单字and之代表符号,亦可用作中文中的“和”.“与”之代表符号.这个符号源于拉丁文的et的连写. 可读做 ampersand,即 "and per ...
- VB 中 NumericUpDown 控件 如何为手动输入设定触发事件
Private Sub numDuration_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) ...
- VB 中Sub和Function的区别
Sub可以理解为执行一个过车,一个操作. Function在执行完过后,还要返回一个结果. Sub:过程:Function:函数,可以带返回值. 语法: Sub SubName(参数1,参数2,... ...
- VB中的API详解
一.API是什么? 这个我本来不想说的,不过也许你知道其它人不知道,这里为了照顾一下新手,不得不说些废话,请大家谅解. Win32 API即为Microsoft 32位平台的应用程序编程接口(Appl ...
- VB中 ByRef与ByVal区别
函数调用的参数传递有"值传递"和"引用传递"两种传递方式.如果采用"值传递",在函数内部改变了参数的值,主调程序的对应变量的值不会改变:如果 ...
- 【转】VB中应用DDE
动态数据交换(dde)是windows应用程序间通讯的基本方法之一,在动态数据交换的过程中,提供数据和服务的应用程序称为服务器,请求数据或服务的应用程序则称为客户. dde交谈是由客户程序启动的.如果 ...
- VB中的+与&符号的区别
字符串运算符和字符串表达式 字符串运算符的作用是将两个字符串连接成一个字符串,经常形象的叫做连接符. 在VB中就提供了两种连接用的字符串运算符 “&”.“+” 例如 “VB”+“编程入门” ...
随机推荐
- Spring Cloud之分布式配置中心
用服务的方式来实现 ConfigAppApplication.java package com.packtpub.ConfigApp; import org.springframework.boot. ...
- ORA-01940: cannot drop a user that is currently connected
https://www.cnblogs.com/lwlxqlccc/p/8694696.html
- VS2010/2012Web负载测试
原文地址:http://www.cnblogs.com/aarond/archive/2013/04/18/performance.html VS自带的Web负载测试真的很大程度上能和专业的loadr ...
- J.U.C并发框架源码阅读（五）Semaphore
基于版本jdk1.7.0_80 java.util.concurrent.Semaphore 代码如下 /* * ORACLE PROPRIETARY/CONFIDENTIAL. Use is sub ...
- 陕西师范大学第七届程序设计竞赛网络同步赛 C iko和她的糖【贪心/ STL-优先队列/ 从1-N每个点有能量补充，每段有消耗，选三个点剩下最多能量】
链接:https://www.nowcoder.com/acm/contest/121/C来源:牛客网 题目描述 iko超级超级喜欢吃糖,有一天iko想出去玩,她计划从1点走到N点(按1,2,3,.. ...
- POJ 3686 The Windy's （费用流）
[题目链接] http://poj.org/problem?id=3686 [题目大意] 每个工厂对于每种玩具的加工时间都是不同的, 并且在加工完一种玩具之后才能加工另一种,现在求加工完每种玩具的平均 ...
- RestAPI的实现
转自:http://blog.csdn.net/yanical/article/details/7856670 Rest的作者认为计算机发展到现在,最大的成就不是企业应用,而是web,是漫漫无边的互联 ...
- Object 类中的 equals方法
1 相等与同一 如果两个对象具有相同的类型以及相同的属性值,则称这两个对象相等.如果两个引用对象指的是同一个对像,则称这两个变量同一.Object类中定义的equals 函数原型为:public bo ...
- django模板解析 循环列表中 切片和求长度
{% for subrow in subdic.content|slice:":5" %} {% endfor %} {% if "{{subdic.content|le ...
- Eclipse插件开发 学习笔记 PDF 第一篇到第四篇 免分下载 开发基础 核心技术 高级进阶 综合实例
<<Eclipse插件开发 学习笔记>>,本书由浅入深.有重点.有针对性地介绍了Eclipse插件开发技术,全书分为4篇共24章.第一篇介绍Eclipse平台界面开发的基础知识 ...