广告合作
  • 今日头条

    今日头条

  • 百度一下

    百度一下,你就知道

  • 新浪网

    新浪网 - 提供新闻线索,重大新闻爆料

  • 搜狐

    搜狐

  • 豆瓣

    豆瓣

  • 百度贴吧

    百度贴吧——全球领先的中文社区

  • 首页 尚未审核订阅工具 订阅

    VB求数组中最大值和它的位置

    来源:网络收集  点击:  时间:2024-04-14
    【导读】:

    定义一个q1,初始值为a(0),每次判断a(j) a(j + 1) 成立时,q1=j

    此时q1就为所求位置,但是初始位置是0,所以要准确时q1=q1+1

    如下所示:

    PrivateSub Command1_Click()

    Cls

    Dim a(1 To 10) As Integer, b(1 To 10) As Integer, work As Boolean, i As Integer, j As Integer,

    x As Integer

    Randomize

    For i = 1 To 10

    a(i) = Int((90 * Rnd) + 10)

    Print a(i)

    b(i) = a(i)

    Nexti

    Print

    For i = 10 To 2 Step -1

    work = True

    For j = 1 To i - 1

    If a(j) a(j + 1) Then

    x = a(j)

    a(j) = a(j + 1)

    a(j + 1) = x

    work = False

    EndIf

    Nextj

    If work Then Exit For

    Nexti

    Text1.Text = a(10)

    For k = 1 To UBound(a)

    If b(k) = a(10) Then

    MsgBox 原来位置: k, 64, 提示!

    Exit For

    EndIf

    Next k

    扩展资料:

    有两种方法定义数组:

    1、知道数组的元素个数,那么直接定义。

    dima(9) as integer

    2、暂时不知道元素个数,或者该数组应用在多个地方,那么如下定义。

    dim a() as integer

    在使用的时候,再重定义一下就可以了。

    ReDim a(9)

    数组的类型可以和变量的类型一样的。

    dim a(0 to 9) as string 表示定义了一个包含10个元素的字符串型的数组,数组名为:a

    参考资料来源:百度百科-Visual Basic

    本文关键词:

    版权声明:

    1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。

    2、本站仅提供信息发布平台,不承担相关法律责任。

    3、若侵犯您的版权或隐私,请联系本站管理员删除。

    4、文章链接:http://www.ff371.cn/art_513378.html

    ©2019-2020 http://www.ff371.cn/ 国ICP备20009186号05-29 14:34:22  耗时:0.028