| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1793 人关注过本帖
标题:爸爸们!!VB小题不会做
只看楼主 加入收藏
zesket
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2016-4-20
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:2 
爸爸们!!VB小题不会做
利用列表框完成以下功能:
①随机产生10个[10,20]区间的整数,并添加到列表框。
②使用冒泡法将列表框数据由小到大排序。

2016-04-20 13:45
happytwosky
Rank: 2
等 级:论坛游民
帖 子:3
专家分:20
注 册:2016-4-15
收藏
得分:20 
图片附件: 游客没有浏览图片的权限,请 登录注册
程序代码:
Option Explicit
Const MAXSIZE = 10
Dim d(MAXSIZE + 1) As Integer, n As Integer



Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    n = Val(txtSize.Text)
     
    If n <= 0 Or n > MAXSIZE Then
        txtSize = "数据个数必须大于0!"
        Exit Sub
    End If
       
    Randomize
    lstUnsorted.Clear
   
    For i = 1 To n
        j = Int(11 * Rnd)+20
        lstUnsorted.AddItem Str$(j)
        d(i) = j
    Next

    Command2.Enabled = True

End Sub



Private Sub Command2_Click()    '冒泡
    Dim i, j, TEMP, NextElement
    lstSorted.Clear
    For i = 1 To n - 1
        For j = n To i Step -1
            If d(j) < d(j - 1) Then
                TEMP = d(j)
                d(j) = d(j - 1)
                d(j - 1) = TEMP
            End If
        Next
    Next
    For i = 1 To n
        lstSorted.AddItem d(i)
    Next
End Sub


[此贴子已经被作者于2016-4-20 14:09编辑过]

2016-04-20 14:07
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:941
专家分:5244
注 册:2015-8-10
收藏
得分:0 
1. 这个就是一个函数的问题,多百度
2. 这个虽然复杂一点,但是思路很简单,而且有很现成的例子,略微已修改就可以了
这样简单的问题不开动脑筋做一下,直接来论坛上要,而且这个标题还十分令人
真的很无语
2016-04-20 14:27
快速回复:爸爸们!!VB小题不会做
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.036546 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved