我用VB写的一个小程序帮忙看看循环有没有问题

Private Sub Command1_Click()

If Option1.Value = True Then

MsgBox " "

ElseIf Option2.Value = True Then

Do until Option1.Value = True

MsgBox ""

Loop

End If

End Sub

你要把Do While改成DO Until这样才能循环起来，现在根本就不循环！

当i=1时进行5次循环，

拿score(1)和score(2)比较，

若score(2)大，则通过交换变量的值，把较大的数赋值给score(1)，

然后再拿score(1)和score(3)比较，把较大的数赋值给score(1)，……，一直到和score(6)比较，经过一轮循环，这样最大的值就赋值给了score(1)。

当i=2时，进行4次循环，

拿score(2)和score(3)，……，score(6)分别比较，注意每次都把较大的值赋给score(2)，经过一轮循环，这样第二大的值就赋值给了score(2)。

计算出来的答案应该是43

首先没有步进-0.5之前18.9算一次

然后可以将18.9-(–2.5) 也就是21.4

21.4/0.5=42 因为0.4小于0.5不能执行，所以这里只有42次

这里说明18.9和-2.5之间可以步进-0.5的话可以减42次

在加上原先18.9的一次总共43次

---