林润华 2021-09-15 13:06 采纳率: 100%
浏览 63
已结题

排序算法为什么理解不了?

[例 3-8]数组的排序.
数据排序的算法问题在任何程序设计语言中都作为一种典型的算法来介绍,因此本书不再赘述.程序代码如下:
Dim i, j, intMin As Integer
Dim strMsg As String
Dim sngSq(5), sngT As Single '①
'输入原始数据
For i = 1 To 5
strMsg = "请输入第" & Str(i) & "个数:"
sngSq(i) = Val(InputBox(j, "数据")) '将输入的数据转换为数值型
Next
'排序
For i = 1 To 4 '②
intMin = i '对第i遍排序,初始假定第i个元素最小
For j = i + 1 To 5 '找出最小的元素序号 '③
If sngSq(j) < sngSq(intMin) Then intMin = j
Next j
'将找出的最小元素与第i个元素交换
sngT = sngSq(i)
sngSq(i) = sngSq(intMin)
sngSq(intMin) = sngT
Next i
'打印输出
For i = 1 To 5
Print sngSq(i) '不换行输出
Next i
在Vbxx工程中新建一个名为frmExam_3_8窗体,在窗体的Click事件中输入上述代码.

①处的英文缩写sngSq换成中文是什么意思,创建的sngSq(5)数组是从索引0开始的还是从索引1开始的?
②处的为什么不是For i = 1 To 5而是For i = 1 To 4?
③处的j = i + 1又是什么意思,因为i是从1到4?

  • 写回答

4条回答 默认 最新

  • CSDN专家-showbo 2021-09-15 14:52
    关注

    ①处:定义一个有6个元素的单精度浮点数数组(sq应该是sequence的缩写),下标从0开始。这个vb6(含vbs)和其他语言有点区别,vb6中数组项是定义的数字+1个项,下标0 ~ 5,其他语言是定义5个项的数组,下标0 ~ 4.。

    ②处:1 to 4(循环四次),可以想象为一个框中有5个数,一次找出一个最小的,是不是找4次就能找完了,还剩一个最大的在框内。所以只需要找4次。
    ③处:j = i + 1 To 5,这个不难理解了吧,最小的已经拍前面,j再从1开始比较没意义了,i所在位置的前面的数肯定是小于i当前位置的数,所以找比i位置还小的数,应该从下一项开始找(j=i+1)

    有帮助或启发麻烦点个采纳【本回答右上角】,谢谢~~

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(3条)

报告相同问题?

问题事件

  • 已结题 (查看结题原因) 9月15日
  • 已采纳回答 9月15日
  • 创建了问题 9月15日

悬赏问题

  • ¥15 Arcgis相交分析无法绘制一个或多个图形
  • ¥15 seatunnel-web使用SQL组件时候后台报错,无法找到表格
  • ¥15 fpga自动售货机数码管(相关搜索:数字时钟)
  • ¥15 用前端向数据库插入数据,通过debug发现数据能走到后端,但是放行之后就会提示错误
  • ¥30 3天&7天&&15天&销量如何统计同一行
  • ¥30 帮我写一段可以读取LD2450数据并计算距离的Arduino代码
  • ¥15 飞机曲面部件如机翼,壁板等具体的孔位模型
  • ¥15 vs2019中数据导出问题
  • ¥20 云服务Linux系统TCP-MSS值修改?
  • ¥20 关于#单片机#的问题:项目:使用模拟iic与ov2640通讯环境:F407问题:读取的ID号总是0xff,自己调了调发现在读从机数据时,SDA线上并未有信号变化(语言-c语言)