精华内容
下载资源
问答
  • VB数值从小到大排序

    2021-01-28 22:56:38
    '数值从小到大排序的函数 Public Function PPSRS(txt As String) Dim x, y, temp As Integer Dim arr(1 To 10) As Integer Dim K As String Dim i% On Error Resume Next '-------------先给arr赋值。。 For i = 1 ...

    在这里插入图片描述
    '在窗体上画两个输入框(Text1、Text2),一个Command1按钮,代码如下:
    Option Explicit

    '数值从小到大排序的函数
    Public Function PPSRS(txt As String)
    Dim x, y, temp As Integer
    Dim arr(1 To 10) As Integer
    Dim K As String
    Dim i%
    On Error Resume Next
    '-------------先给arr赋值。。
    For i = 1 To 10
    arr(i) = Mid(Val(txt), i, 1)
    Next i
    '---------------排序
    For x = 1 To 10
    For y = x + 1 To 10
    If arr(x) > arr(y) Then
    temp = arr(y)
    arr(y) = arr(x)
    arr(x) = temp
    End If
    Next y
    K = K & arr(x)
    Next x
    PPSRS = Mid(K, Len(K) - Len(txt) + 1, Len(txt))
    End Function

    Private Sub Command1_Click()
    Text2.Text = PPSRS(Text1.Text)
    End Sub

    Private Sub Form_Load()
    Text1.Text = “8634957021”
    Command1.Caption = “排序”
    End Sub

    展开全文
  • VB常考算法八排序 1算法 1选择法排序 算法说明根据上例中求最小值的思路我们可以使用如下方法进行从小到大排序第一轮以第一个元素逐个跟后面的所有元素比较如果比后面的元素大就进行交换经过一轮比较第一个元素被...
  • 我们可以使用如下方法进行从小到大排序 第如果比后面的元素大就进行交换 经过一5个数进行选择排序的过程:16425 我们可以使用如下方法进行从小到大排序 第 如果比后面的元素大就进行交换 经过一 5个数进行选择排序的...
  • VB 常 用 算 法 排 序 VB常考算法八排序 1算法 1选择法排序 算法说明根据上例中求最小值的思路我们可以使用如下方法进行从小 到大排序第一轮以第一个元素逐个跟后面的所有元素比较如果比后面的 元素大就进行交换经过...
  • 实用标准文案 VB常考算法八排序 1算法 1 法排序 算法 明 根据上例中求最小 的思路 我 可以使用如下方法 行从小到大排序 第 一 以第一个元素逐个跟后面的所有元素比 如果比后面的元素大就 行交 一 比 第一个元素被...
  • 实用标准文案 VB 常考算法八排序 1 算法 1 选择法排序 算法说明 根据上例中求最小值的思路 我们可以使用如下方法进行从小到大排序 第 一轮 以第一个元素逐个跟后面的所有元素比较 如果比后面的元素大就进行交换 经过...
  • 本期案例:我们的原始数是一个数组a这个a数组的数据依次是:5 2 8 6现要将a中的数据进行排序从小到大达成目标:2 5 6 8设计界面 点击按钮后的效果 两个数据的比较思想是怎样的? 将思想转换为代码。比较的时候,...

    本期我们讲解冒泡排序法,使用VB语言。

    本期案例:

    我们的原始数是一个数组a

    这个a数组的数据依次是:5   2   8   6

    现要将a中的数据进行排序:从小到大

    达成目标:2   5   6   8

    设计界面

    点击按钮后的效果

    两个数据的比较思想是怎样的?

    将思想转换为代码。

    比较的时候,其实就是使用if语句的时候。

    text1中的文本是5

    text2中的文本是2

    如何比较,取出小的那个值?

    if val(text1.text)>val(text2.text) then

    print text2.text  ’这里是小的值

    else

    print text1.text  '这里是大的值

    end if

    本例冒泡排序的思想讲解:

    冒泡排序,我们这里的排序是按照从小到大排序。

    原始 5   2   8   6   在a这个数组中的。

    实际就是:

    a(0)=5

    a(1)=2

    a(2)=8

    a(3)=6

    小思想:先要找到最小的数字,然后,找到第二小,逐渐一个个找出来。

    比较过程如下:

    第一趟:找到最小的数字

    基准:以第一个数字作为基准。假设第一个数字是最小值,去跟后面所有的数进行比较。

    第一轮:2  5  8   6

    第二轮:2  5  8   6

    第三轮:2  5  8   6

    第一趟的结果:2  5  8   6

    第二趟:找出第二小的数字

    基准:以第二个数字作为基础。

    第一轮:2  5  8   6

    第二轮:2  5  8   6

    第二趟结果:2  5  8   6

    第三趟:找出第三小的数字

    基准:以第三个数字作为基准。

    第一轮:2  5  6  8

    下面将思想转为代码:

    '开始趟数

    for i=0 to 2 step 1

    ’开始轮数

    for j=1 to 3-i  step 1

    if a(i)>a(j+i) then '实现交互

    t=a(i)

    a(i)=a(j+i)

    a(j+i)=t

    end if

    next j

    next i

    源代码如下:

    Option ExplicitDim a(3) As IntegerPrivate Sub Command1_Click()a(0) = 5a(1) = 2a(2) = 8a(3) = 6Dim i%, j%, t%'开始趟数For i = 0 To 2 Step 1'开始轮数For j = 1 To 3 - i Step 1If a(i) > a(j + i) Then '实现交互t = a(i)a(i) = a(j + i)a(j + i) = tEnd IfNext jNext iFor i = 0 To 3 Step 1Print a(i)Next iEnd Sub

    长按关注公众号

    相关文章:

    展开全文
  • 最近遇到好多要生成 sign 的接口,要求使用URL键值对的格式(即key1=... ◆ 参数名ASCII码从小到大排序(字典序); . ◆ 如果参数的值为空不参与签名; . ◆ 参数名区分大小写; . ◆参数名Sign 、Key不参与拼接...

      最近遇到好多要生成 sign 的接口,要求使用URL键值对的格式(即key1=value1&key2=value2…)拼接成字符串,最后拼接上key进行MD5加密。

      规则:

    1. .    ◆ 参数名ASCII码从小到大排序(字典序);
    2. .    ◆ 如果参数的值为空不参与签名;
    3. .    ◆ 参数名区分大小写;
    4. .    ◆ 参数名Sign 、Key 不参与拼接字符串;

      发现VB6.0 的资料很少,特此整理一份网上的代码。

      转自:http://www.mzwu.com/article.asp?id=2245  

    '说明:Dictionary排序
    '参数:
    '   objDict:Dictionary对象
    '   intSort: 1 根据key排序; 2 根据value排序
    Function SortDictionary(objDict, intSort)
      ' declare our variables
      Dim strDict()
      Dim objKey
      Dim strKey, strItem
      Dim X, Y, Z
    
      ' get the dictionary count
      Z = objDict.Count
    
      ' we need more than one item to warrant sorting
      If Z > 1 Then
        ' create an array to store dictionary information
        ReDim strDict(Z, 2)
        X = 0
        ' populate the string array
        For Each objKey In objDict
            strDict(X, 1) = CStr(objKey)
            strDict(X, 2) = CStr(objDict(objKey))
            X = X + 1
        Next
    
        ' perform a a shell sort of the string array
        For X = 0 To (Z - 2)
          For Y = X To (Z - 1)
            If StrComp(strDict(X, intSort), strDict(Y, intSort), vbTextCompare) > 0 Then
                strKey = strDict(X, 1)
                strItem = strDict(X, 2)
                strDict(X, 1) = strDict(Y, 1)
                strDict(X, 2) = strDict(Y, 2)
                strDict(Y, 1) = strKey
                strDict(Y, 2) = strItem
            End If
          Next
        Next
    
        ' erase the contents of the dictionary object
        objDict.RemoveAll
    
        ' repopulate the dictionary with the sorted information
        For X = 0 To (Z - 1)
            If LCase(strDict(X, 1)) <> "sign" And LCase(strDict(X, 1)) <> "key" And strDict(X, 2) <> "" Then
                objDict.Add strDict(X, 1), strDict(X, 2)
            End If
        Next
    
      End If
    End Function

       使用方法:

        Dim dict As Dictionary
        Dim item
        Dim Return as String 
        
        Set dict = New Dictionary
        
        dict.Add "aaa", "094959"
        dict.Add "ccc", "0000000000"
        dict.Add "fff", "20180912"
    SortDictionary dict, 1 '排序 For Each item In dict Return = Return & item & "=" & dict(item) & "&" Next
       Return = Return & "key=keyvalue"
       Debug.Print Return 

     

    转载于:https://www.cnblogs.com/PengRay0221/p/9645528.html

    展开全文
  • 冒泡法排序就是将相邻的两个数比较,如果顺序不对则交换,1和2,2和3 ,3和4 ....n-1和n每一趟冒泡至少排好一个,下面是从小到大排序for k=1 to n-1__ for j=1 to n-1____if a(j)>a(j+1) then a(j) 和a(j+1...

    冒泡法排序就是将相邻的两个数比较,如果顺序不对则交换,1和2,2和3 ,3和4 ....n-1和n

    每一趟冒泡至少排好一个,下面是从小到大排序

    for k=1 to n-1

    __ for j=1 to n-1

    ____if a(j)>a(j+1) then a(j) 和a(j+1) 交换

    __next j

    next k

    每次都冒到头,k只起到计数的作用(每次排对一个,排对n-1个就排好了)

    第一次优化:

    因为每次能排好一个,所以不是每次都要“冒”到头(对于排好的部分只是比较,不会发生交换的),每次可以只“冒”到比上一次少一个就好,所以上面程序的第二行可改为:

    for j=1 to n-k ' 这时k不光是计数了

    第二次优化:

    如果某次“冒泡”没有发生交换则说明已经排好,没有必要继续了

    for k=1 to n-1

    __t=1 '标志变量

    __for j=1 to n-k

    ____if a(j)>a(j+1) then a(j) 和a(j+1) 交换 : t=0

    __next j

    __ if t=1 then exit for 't=1 表示最近一次冒泡没有发生交换

    next k

    第三次优化:

    基于没有发生交换则说明已经排好, 那么每次冒泡只需要“冒”到上一次冒泡最后一次发生交换的地方,因为最后一次发生交换的地方的后面已经排好了。

    w=n-1

    for k=1 to n-1

    __t=1 '标志变量

    __for j=1 to w

    ____if a(j)>a(j+1) then a(j) 和a(j+1) 交换 : t=0 : w=j-1

    __next j

    __if t=1 then exit for 't=1 表示最近一次冒泡没有发生交换

    next k

    这里面的W 不能代替t的作用

    展开全文
  • VB冒泡排序法详细教学

    万次阅读 2012-08-14 10:09:28
    前两个比较简单,后面的我来分析一下,首先以升序(从小到大)为例 第1步 第一个数与第二个数比较,如果第一个数大于第二个,则交换变量,直到倒数第二个数(i-1),将最大的排在最后面 第2步 最大的数被推倒最后,...
  •  前两天米老师讲了关于VB中产生随机数的例子,而且让我们自己想一下关于对产生的10个数字进行从小到大排序的问题。俗话说百看不如一练(不知有没有这句俗话),所以自己便根据网上的一些对排序的资料和视频加上...
  • VB对数字/字符数组的快速排序.查找.

    千次阅读 2008-10-10 22:31:00
    数值与数组操作 Option Explicit 数值快速排序(从小到大) 函数:NumSortAZ 参数:Myarray Double数组,L 数组的左边界,R 数组右边界. 返回值:无 例子: Public Sub NumSortAZ(ByRef Myarray, l As Long, R ...
  • 书籍排序

    2020-09-26 16:50:36
    10)本书的名称和定价并存入结构数组中,按单价从小到大排序并输出排序后的书籍信息。 输入输出示例:括号内为说明,无需输入输出 输入样例: 3 (n=3) Programming in C 21.5 Programming in VB 18.5 Programming in ...
  • 选择排序思想

    2021-04-13 18:25:13
    排序的意思是 对一串数字,进行从小到大,或者从大到小进行排序,比如 现在有一串数据 2 ,9,8,3,1 现在要对这5个数据进行排序,如果要求我们从小到大进行排序的话,最后排完之后的结果是 1,2,3,8,9 如果要求我们...
  • VB6.0好用模块-1.0串口

    2020-08-17 12:21:21
    //该函数功能将得到的Com口进行从小到大排序写入ComboBox Public Sub AddComForComBox(comboxcontral As ComboBox) Dim i As Integer Dim str2com() As String //COM字符串数组 Dim Serial_No() As String //...
  • 书籍排序编 写程序

    2020-03-18 21:35:59
    10)本书的名称和定价并存入结构数组中,按单价从小到大排序并输出排序后的书籍信息。 输入输出示例:括号内为说明,无需输入输出 输入样例: 3 (n=3) Programming in C 21.5 Programming in VB 18.5 Programming in ...
  • 【PTA】书籍排序

    千次阅读 2020-02-19 21:12:56
    10)本书的名称和定价并存入结构数组中,按单价从小到大排序并输出排序后的书籍信息。 输入输出示例:括号内为说明,无需输入输出 输入样例: 3 (n=3) Programming in C 21.5 Programming in VB 18.5 Programming in ...
  • PTA:书籍排序(c++)

    2020-05-22 14:02:38
    10)本书的名称和定价并存入结构数组中,按单价从小到大排序并输出排序后的书籍信息。 输入输出示例:括号内为说明,无需输入输出 输入样例: 3 (n=3) Programming in C 21.5 Programming in VB 18.5 Programming in ...
  • 7-4 书籍排序 (10分)

    千次阅读 2020-01-30 20:47:29
    10)本书的名称和定价并存入结构数组中,按单价从小到大排序并输出排序后的书籍信息。 输入输出示例:括号内为说明,无需输入输出 输入样例: 3 (n=3) Programming in C 21.5 Programming in VB 18.5 Programming in ...
  • VB 解析算 法及 程序 实 现 3.1解析算法及程序... 递归算法 下列问题适合用解析算法求解的是 将十三张纸牌按从小到大进行排列 统计100内偶数的各位数字之和恰好为10的个数 计算一辆车行驶100公里的油耗 寻找本年级身高
  • 按照从大到小排序从小到大也可以。其实算法就是一个,解决问题的思想。如果类比到,数学里面的话。算法的抽象,就好比是函数y=f(x)。 目录 思想: (一)选择排序 (二)冒泡排序 例子: 选择排序 对 1...
  • 10)本书的名称和定价并存入结构数组中,按单价从小到大排序并输出排序后的书籍信息。 输入输出示例:括号内为说明,无需输入输出 输入样例: 3 (n=3) Programming in C 21.5 Programming in VB 18.5 Programming in ...
  • 3.1解析算法及程序实现 计算... 递归算法 下列问题适合用解析算法求解的是( ) 将十三张纸牌按从小到大进行排列 统计100内偶数的各位数字之和恰好为10的个数 计算一辆车行驶100公里的油耗 寻找本年级身高最高的同学 有如
  • 我初学VB请教啊

    2008-10-20 09:04:00
    |||这个函数的功能是将3个输入框中的输入内容重新排序并显示在输入框中 在三个TextBox里输入三个数 点击命令按钮按照从小到大的顺序分别显示在Text1、Text2和Text3里
  • 3.1解析算法及程序实现 1.计算长方体体积的算法描述如下 输入长方体的长(z)宽(w)高(h) 计算长方形...将十三张纸牌按从小到大进行排列 B.统计100内偶数的各位数字之和恰好为10的个数 C.计算一辆车行驶100公里的油耗 D.
  •  如果下面的数据用于旋转矩阵,则按从小到大的顺序排下序,因为是中6保5型,所以测试选的10个号码有6个是中奖号码:  Const BaseStr = "0 08 19 29 31 34 36 22 05 01 18" '1 用07083期的7个中奖号码加上3个号码...
  • 编写了一个VB程序,功能如下:运行程序时首先在列表框List 1中显示10个大于10且小于等于99的随机自然数,单击“排序”按钮Command 1后,在列表框List 2中显示这些数据按从小到大排序后的结果,运行结果如图...
  • 请你编程实现以下功能:为48名考生各生成10个互不重复的介于1~30的随机整数,并按从小到大的顺序排序,然后以窗体和文件(或数据库)两种形式输出。输出内容包含考生的序号以及抽到的相应的题号(按顺序排列)。 ...

空空如也

空空如也

1 2
收藏数 29
精华内容 11
关键字:

vb从小到大排序