| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 449 人关注过本帖
标题:乱序数组取数
只看楼主 加入收藏
ByCore
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2013-11-1
结帖率:0
收藏
已结贴  问题点数:5 回复次数:3 
乱序数组取数
像这样的乱序数组如;2、3 、7、9、4、1、5、10、8、6  想从1到9之间随机选一个数作为参考数,如选3,然后从数组中三开始,像后去5位数(不包含3)然后从左到右排列怎么写?
2013-11-01 16:02
liugongaoo
Rank: 2
等 级:论坛游民
帖 子:8
专家分:15
注 册:2012-12-26
收藏
得分:5 






西



2013-11-01 20:40
liugongaoo
Rank: 2
等 级:论坛游民
帖 子:8
专家分:15
注 册:2012-12-26
收藏
得分:0 
Option Explicit
Dim iStr() As String

Private Sub Form_Load()
    ReDim iStr(1000) '
    Dim i1 As Long
    '''''''''''''''''''''''''''''''''
    '
    For i1 = LBound(iStr) To UBound(iStr)
        Randomize
        iStr(i1) = Int(Rnd() * 50000)
    Next i1
    '''''''''''''''''''''''''''''''''''''''''
End Sub

Private Sub Command1_Click()
    Dim i1 As Long, i2 As Long
    Dim s1 As String, s2 As String
    Do
        i1 = Rnd() * UBound(iStr)
    Loop While i1 > UBound(iStr) - 5 '
    ''''''''''''''''
    For i2 = i1 To i1 + 5
        s1 = s1 & i2 & "#-" & iStr(i2) & "  "
    Next i2
    Label1 = " " & s1
    '''''''''''''''''
    For i2 = i1 + 5 To i1 Step -1
        s2 = s2 & i2 & "#-" & iStr(i2) & "  "
    Next i2
    Label2 = " " & s2

End Sub

图片附件: 游客没有浏览图片的权限,请 登录注册


[ 本帖最后由 liugongaoo 于 2013-11-1 21:07 编辑 ]
2013-11-01 21:02
liugongaoo
Rank: 2
等 级:论坛游民
帖 子:8
专家分:15
注 册:2012-12-26
收藏
得分:0 








6





[ 本帖最后由 liugongaoo 于 2013-11-1 21:14 编辑 ]
2013-11-01 21:10
快速回复:乱序数组取数
数据加载中...
 
   



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

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