首次接触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个的更多相关文章

  1. java Collection中的排序问题

    java Collection中的排序问题 这里讨论list.set.map的排序,包括按照map的value进行排序. 1)list排序 list排序可以直接采用Collections的sort方法 ...

  2. 小工具:天气查询 Vs自定义设置 DevGridControl中GridView排序问题 小工具:火车票查询 小工具:邮件发送 小工具:截图&简单图像处理

    小工具:天气查询   开发一个天气查询的工具主要由两步构成,一是数据的获取,二是数据的展示.  一.数据获取 数据获取又可以分为使用其它公司提供的API和手动抓取其它网站数据. 1. 某公司提供的AP ...

  3. VB中 '&' 和 '+' 号的区别

    释义 &(Ampersand)是英语单字and之代表符号,亦可用作中文中的“和”.“与”之代表符号.这个符号源于拉丁文的et的连写. 可读做 ampersand,即 "and per ...

  4. VB 中 NumericUpDown 控件 如何为手动输入设定触发事件

    Private Sub numDuration_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) ...

  5. VB 中Sub和Function的区别

    Sub可以理解为执行一个过车,一个操作. Function在执行完过后,还要返回一个结果. Sub:过程:Function:函数,可以带返回值. 语法: Sub SubName(参数1,参数2,... ...

  6. VB中的API详解

    一.API是什么? 这个我本来不想说的,不过也许你知道其它人不知道,这里为了照顾一下新手,不得不说些废话,请大家谅解. Win32 API即为Microsoft 32位平台的应用程序编程接口(Appl ...

  7. VB中 ByRef与ByVal区别

    函数调用的参数传递有"值传递"和"引用传递"两种传递方式.如果采用"值传递",在函数内部改变了参数的值,主调程序的对应变量的值不会改变:如果 ...

  8. 【转】VB中应用DDE

    动态数据交换(dde)是windows应用程序间通讯的基本方法之一,在动态数据交换的过程中,提供数据和服务的应用程序称为服务器,请求数据或服务的应用程序则称为客户. dde交谈是由客户程序启动的.如果 ...

  9. VB中的+与&符号的区别

    字符串运算符和字符串表达式 字符串运算符的作用是将两个字符串连接成一个字符串,经常形象的叫做连接符. 在VB中就提供了两种连接用的字符串运算符 “&”.“+” 例如  “VB”+“编程入门” ...

随机推荐

  1. 【转载】SQL server connection KeepAlive

    1.什么是SQL server TCP连接的keep Alive? 简单说,keep alive 是SQL server在建立每一个TCP 连接的时候,指定了TCP 协议的keepaliveinter ...

  2. 这篇 感觉很实用--DJANGO ORM

    Django之model F/Q以及多对多操作 http://www.cnblogs.com/ccorz/p/5882400.html model之F/Q操作 F操作,使用查询条件的值 打个比方吧,有 ...

  3. N皇后问题(C++实现和函数式编程实现)

    题意 在 N * N 的方格棋盘放置了 N 个皇后,使得它们不相互攻击(即任意2个皇后不允许处在同一排,同一列,也不允许处在与棋盘边框成45角的斜线上.求出有多少种合法的放置方法. C++实现(位运算 ...

  4. 【CodeForces 788B】奇妙的一笔画问题

    [pixiv] https://www.pixiv.net/member_illust.php?mode=medium&illust_id=61845295 题目大意 给定n个点m条边的无向图 ...

  5. XTU | 人工智能入门复习总结

    写在前面 本文严禁转载,只限于学习交流. 课件分享在这里了. 还有人工智能标准化白皮书(2018版)也一并分享了. 绪论 人工智能的定义与发展 定义 一般解释:人工智能就是用 人工的方法在 **机器( ...

  6. LRC的效验码的计算方法

    图一中需要检验ASCI码数据是30.31.30.30.30.30.30.30,转化为16进制累加后是0000 0001,取反加1得到1111 1111,转换为ASCI码46.46.和图中是一样的. 图 ...

  7. 【Linux】CentOS7 添加常用源

    CentOS 的官方源去掉了一些与版权有关的软件,因此想要安装这些软件或者手动下载安装,或者使用其他源. 下面是添加EPEL源和RPMforge源的步骤. 1.首先, 添加源之前要确定系统架构及版本 ...

  8. WEB将本地项目添加到git

    前提下载好git bush1.找到对应的文件夹git init2.Windows下打开Git Bash$ ssh-keygen -t rsa -C "myaccount@example.co ...

  9. ElasticSearch搜索

    1.搜索---最基本的工具 我们可以将一个 JSON 文档扔到 Elasticsearch 里,然后根据 ID 检索.但 Elasticsearch 真正强大之处在于可以从无规律的数据中找出有意义的信 ...

  10. zabbix2.2.22 升级3.0.18

      环境说明 系统版本 CentOS 7.2 x86_64 zabbix2.2.22界面如下 升级过程: 清除之前的zabbix的yum源缓存 [root@zabbix ~]# yum clean a ...